如何在r中绘制每周时间序列数据在r或ggplot中显示x轴上的日期？

我有时间序列数据集

y<-c(1,5,12,21,30,50,90,100)

Date = c("2020/07/16","2020/07/23","2020/07/30","2020/08/06","2020/08/13","2020/08/20","2020/08/27","2020/09/13")

---

y将
Date
转换为Date类，然后将这两个向量添加到数据帧中，以便在
ggplot
中使用

library(ggplot2)
df <- data.frame(y, Date = as.Date(Date))
ggplot(df) + aes(Date, y) + geom_line()

库（ggplot2）
df%
ggplot（）+aes（日期、值、颜色=名称）+geom_线（）

将
Date
转换为Date类，然后将这两个向量添加到数据帧中，以便在
ggplot
中使用

library(ggplot2)
df <- data.frame(y, Date = as.Date(Date))
ggplot(df) + aes(Date, y) + geom_line()

库（ggplot2）
df%
ggplot（）+aes（日期、值、颜色=名称）+geom_线（）

谢谢您的回答，但我正在寻找时间序列图。您的代码看起来生成了一个图形，x标签不是日期，y标签看起来奇怪x标签是日期，因为您的数据分布在2013年到2020年之间，它只显示年份。也许2013年的第二个日期是错的，因为其他日期都在2020年？我不知道为什么
y
标签对您来说看起来很奇怪，因为这就是您数据中的内容。你能再检查一下你发布的数据吗？您可以使用
scale\u x\u date
编辑x轴，使其采用所需的任何格式。例如，在上面的答案中添加
+比例x\u日期（日期标签=“%d-%m-%Y”）
。很抱歉，这之前是一个打字错误。我现在修复了。@Hardwarker您现在可以重新运行上面的代码了。你觉得现在的剧情有什么“奇怪”的地方？这对剧情很好，对不起我之前的困惑。如果我想再画一个ts QT，我有一个额外的问题谢谢你的回答，但我正在寻找一个时间序列图。您的代码看起来生成了一个图形，x标签不是日期，y标签看起来奇怪x标签是日期，因为您的数据分布在2013年到2020年之间，它只显示年份。也许2013年的第二个日期是错的，因为其他日期都在2020年？我不知道为什么
y
标签对您来说看起来很奇怪，因为这就是您数据中的内容。你能再检查一下你发布的数据吗？您可以使用
scale\u x\u date
编辑x轴，使其采用所需的任何格式。例如，在上面的答案中添加
+比例x\u日期（日期标签=“%d-%m-%Y”）
。很抱歉，这之前是一个打字错误。我现在修复了。@Hardwarker您现在可以重新运行上面的代码了。你觉得现在的剧情有什么“奇怪”的地方？这对剧情很好，对不起我之前的困惑。如果我想绘制另一个ts q，我还有一个额外的问题
df <- data.frame(y, Date = as.Date(Date), q)
df %>%
  tidyr::pivot_longer(cols = -Date) %>%
  ggplot() + aes(Date, value, color = name) + geom_line()