来自数据集的20个样本中的100个样本，并绘制了回归线以及总体回归线

如何解决来自数据集的20个样本中的100个样本，并绘制了回归线以及总体回归线

我有一个数据集，其中有两个变量学习时间和等级。我想从该数据集中获取100个样本，每个样本20个，并显示100条回归线以及原始回归线。有什么建议吗？

library(ggplot2)
#> Warning: package 'ggplot2' was built under R version 3.6.3
grades = read.csv("https://www.dropBox.com/s/me6wiww943hzddj/grades.csv?dl=1")
qplot(hours,grade,data = grades,geom = "point") + geom_smooth(method = lm)
#> `geom_smooth()` using formula 'y ~ x'

解决方法

使用循环：

n=100
for(i in 1:n){
  df = grades[sample(1:nrow(grades),20),]
  g = g + geom_smooth(method = lm,data=df,color="red",size=0.5,alpha = 0)
}
plot(g)

输出：

我鼓励您弄乱它的美观性，例如添加虚线：

,

我们也可以使用sample_n

library(dplyr)
library(ggplot2)
g <- qplot(hours,grade,data = grades,geom = "point") +
      geom_smooth(method = lm)
n <- 100
for(i in seq_len(n)) {
       tmpdat <- grades %>%
                  sample_n(20)
        g <- g +
         geom_smooth(method = lm,data = tmpdat,color = 'red',size = 0.5,alpha = 0)
    }

plot(g)