无法让 R 显示回归线（geom_smooth）？

Question

晚上好，希望有人能帮忙。我整晚都在搞乱 ggplot 包，但由于某种原因，我无法使用 geom_smooth 显示回归线！

我在这里包含了代码，不幸的是，终端实际上​​并没有将其标记为错误，但这也是我被难住的部分原因！我逐行运行它，每一行都没有标志执行。图表本身甚至可以顺利出现，只是缺少回归线！

代码：

library(ggplot2)
ScatterPlot <- ggplot(graph, aes (x= Specimen.date, y= Daily.lab.confirmed.cases)) + geom_point() + geom_smooth(method = lm) + theme(axis.text.x = element_text(angle=90))

ScatterPlot + ylim(0,5000) + labs(x = "Date") + labs(y = "Daily Cases")

输出：

> ScatterPlot <- ggplot(graph, aes (x= Specimen.date, y= Daily.lab.confirmed.cases)) + geom_point() + geom_smooth(method = lm) + theme(axis.text.x = element_text(angle=90))
> ScatterPlot + ylim(0,5000) + labs(x = "Date") + labs(y = "Daily Cases")

geom_smooth() 使用公式'y ~ x'

我也尝试将列转换为数字，但这似乎也不起作用 (x = as.numeric(), y = as.numeric() )。

有什么建议！？

谢谢

迈克尔

Answer 1

好吧，我们终于到了那里。 Mlcyo（请参阅 cmets，谢谢！）取得了大部分进展。至少给了我一个更有帮助的错误。以下是它的修改方式...：

graph[] <- lapply(graph, as.numeric) # Force entire dataframe into numeric type


fit <- lm(Daily.lab.confirmed.cases ~ Specimen.date, data = graph) # Manually generate linear model 

 geom_line(data = fortify(fit), aes(x = Specimen.date, y = .fitted)) # Insert after geom_point()

希望它可以帮助别人！再次感谢 mlcyo，祝您获得博士学位！

M