Geom_smooth 线条未显示或未出现在 r 中的图表上

Question

我正在尝试为该图绘制趋势线（附在下面）。我通过组合两个数据帧（df_year1 和 df_year2）创建了一个新的数据帧（bothyearsdf）。它们具有相同的列名但行值不同。我将第一列的 class 从“字符”更改为“日期”，因为它显示了 2019 年和 2020 年的所有日期 (%y/%m/%d)。我将另一列保留原样，它是数字。

      class(bothyearsdf$Data.first_max_value) #"numeric"
      class(bothyearsdf$Data.date_local) #"character"
      bothyearsdf$Data.date_local <- as.Date(df_year2$Data.date_local, 
      format='%y/%m/%d')
      class(bothyearsdf$Data.date_local)"date"

然后，我尝试单独使用 geom_smooth - geom_smooth() - 来创建该行，但它一开始给我一个错误，“FUN 错误（X[[i ]], ...)：找不到对象 'Data.date_local'。”然后，我使用了下面的代码，它不再给我一个错误，但它没有在图上形成趋势线。它还说“geom_smooth()` 使用方法 = 'loess' 和公式 'y ~ x'”

提前致谢！！

picture of the graph

    w <- ggplot(NULL, aes(x=Data.date_local,y=Data.first_max_value)) +
         geom_point(data = bothyearsdf) + 
         geom_smooth(data = bothyearsdf, aes(x = Data.date_local,y = 
         Data.first_max_value, 
         color = 'red')) +
         labs(x = "Days", y = "PM2.5 Max Value", title = "Wake County, NC Max PM2.5 
         Value for 2019 and 2020")

     w

'''

Answer 1

如果你尝试你会得到什么：

w <- ggplot(bothyearsdf,
            aes(x = as.Date(Data.date_local),
                y = Data.first_max_value)) +
  geom_point() + 
  geom_smooth(color = 'red') +
  labs(x = "Days", y = "PM2.5 Max Value",
  title = "Wake County, NC Max PM2.5 Value for 2019 and 2020")

w

Geom_smooth 线条未显示或未出现在 r 中的图表上

Geom_smooth line not showing up or not appearing on the graph in r

r

graph

ggplot2

loess

lm