R 有没有办法画出3个不同的变量（时间和两个因变量）？

我正在为我的课程做一个R分析的项目，但我需要两个单变量图和一个双变量图。目前，我的数据集由5列组成（参见下面的示例行）。我做了一张x=time和y=Strengency_索引的图，一张x=time和y=new_cases_平滑的图，我尝试了一个根据新案例绘制Strengency索引的图，但结果并不像一个真实的图。有没有一种方法可以把这些变量相对地画出来，看看随着时间的推移是否有一种模式

我将附上我的dput和我制作的其中一张图表的照片

   Entity, Code,  Day, stringency_index, new_cases_smoothed 
1   China   CHN 2020-03-14  81.02   29.571
2   China   CHN 2020-03-15  81.02   25.714
3   China   CHN 2020-03-16  79.17   24.714
4   China   CHN 2020-03-17  79.17   24.429
5   China   CHN 2020-03-18  79.17   25.857
6   China   CHN 2020-03-19  79.17   32.000

[enter image description here][1]dput(head(joined))
structure(list(Entity = c("China", "China", "China", "China", 
"China", "China"), Code = c("CHN", "CHN", "CHN", "CHN", "CHN", 
"CHN"), Day = structure(c(18335, 18336, 18337, 18338, 18339, 
18340), class = "Date"), stringency_index = c(81.02, 81.02, 79.17, 
79.17, 79.17, 79.17), new_cases_smoothed = c(29.571, 25.714, 
24.714, 24.429, 25.857, 32)), row.names = c(NA, -6L), class = c("tbl_df", 
"tbl", "data.frame"))

你想要这个吗

library(tidyverse)
df %>%
  pivot_longer(c(stringency_index, new_cases_smoothed), 
               names_to = "Vars", values_to = "Values") %>%
  ggplot() + 
  geom_line(aes(x = Day, y = Values, color = Vars)) +
  geom_point(aes(x = Day, y = Values, color = Vars))

---

这是否回答了您的问题？实际上，如果您想在一个轴上绘制两个变量，可能有两种情况。或者在同一个Y轴上绘制（在这种情况下，您必须转换数据，正如Anoushiravan所建议的，现在已删除）。否则，您必须将其绘制在第二个Y轴上，正如上面的注释所建议的那样，这可能会起作用，谢谢！