如何添加两个线性拟合以进行绘制？

Question

我想在绘图中添加两个线性拟合（在ggplo2中为是）。第一个适合度将使用我的所有要点，第二个适合度将排除一个要点（假设第一个要点）。

dosis <- c(0.24, 0.33, 0.26, 0.18, 0.11, 0.05)
corriente <-c(301.3, 275.4, 253.8, 235.5, 219.8, 205.8)
library(ggplot2)
datos <-cbind.data.frame(dosis, corriente)
ggplot(datos, aes(x=corriente, y=dosis)) + geom_point() + geom_smooth(method=lm, se=FALSE)

这将使我的绘图具有第一个拟合度（使用所有点）。现在如何排除基准面并创建第二个拟合度？ 我需要添加另一个geom_smooth命令吗？

谢谢

Answer 1

您可以添加另一个geom_smooth()，并指定要在第二个geom_smooth()调用中绘制的数据框的子集。在这里，我排除了corriente变量的最高值。

ggplot(datos, aes(x=corriente, y=dosis)) + 
  geom_point() + 
  geom_smooth(method=lm, se=FALSE) +
  geom_smooth(method = lm, se = FALSE, #add a second geom_smooth line 
               #use only a subset of your dataframe
              data = datos[-1,])