r scatter plot 和回归线问题

Question

我正在尝试为此图创建回归线，为什么下面的代码不起作用？

这样做之后，我需要创建一个带有标签的自定义图例：名为“实际”的黑点和名为“预测”的蓝色短划线（对应于线）

library(ggplot2)
d1 <- c(20,30,40,50,60,70)
d2 <- c(23, 32,41,53,60,69)

df <- data.frame(d1, d2)


ggplot(df,aes(x=d1,y=d2)) +
  geom_point(size=1.1)+
  geom_smooth(method = "glm", 
              method.args = list(family = "binomial"), 
              se = FALSE)  

Answer 1

由于图表中因变量的值范围不在 0 和 1 之间，因此在geom_smooth()中，族不能是二项式，如ggplot()的错误消息所述：

`geom_smooth()` using formula 'y ~ x'
Warning message:
Computation failed in `stat_smooth()`:
y values must be 0 <= y <= 1 

如果我们使用family=的默认值，则会打印回归线。

library(ggplot2)
d1 <- c(20,30,40,50,60,70)
d2 <- c(23, 32,41,53,60,69)

df <- data.frame(d1, d2)


ggplot(df,aes(x=d1,y=d2)) +
     geom_point(size=1.1)+
     geom_smooth(method = "glm", 
                 se = FALSE)  

注释 plot 的一种方法是添加回归线和 R^2 信息。 我们可以使用ggpubr package 及其stat_regline_equation() function 来做到这一点。

library(ggpubr)
ggscatter(df, x = "d1", y = "d2", add = "reg.line",
          add.params = list(color = "blue", fill = "lightgray")) +
     stat_cor(label.x = 3, label.y = 70) +
     stat_regline_equation(label.x = 3, label.y = 66)

 

...和 output：