geom_smooth lm線未繪制-ggplot2

Question

我正在嘗試使用此代碼繪制lm線

df <- data.frame(c1=factor(c(1,1,1,1,2,2,2,2,3,3,3,3)),c2=c(65,42,56,75,43,43,21,23,12,12,21,11))
p <- ggplot(aes(x=c1,y=c2),data=df)
p + geom_point() + geom_smooth(method="lm")

但是沒有顯示lm線。 我想念什么嗎？

Answer 1

原因是“ c1”是一個factor 。 將其轉換為numeric將解決問題

library(dplyr)
library(ggplot2)
df %>%
  mutate(c1 = as.numeric(as.character(c1)) %>%
  ggplot(., aes(x = c1, y = c2)) +
    geom_point() + 
    geom_smooth(method="lm")