下面是一个ggplot2/dplyr的解决方案，我同意其他评论者的观点，制作1100+个人的情节是不现实的，把每个人都画在一个情节里可能会更好，如果每次阅读是15分钟的间隔（例如，Reading1表示0分钟至15分钟），那么你需要加长你的数据，把所有的读数合并成一个长列。一旦读数合并成一列，你就可以把这列转换成15分钟的间隔，以更好地表示你的x轴。

library(tidyverse)
StudyID <- c(100:110)
Reading1 <- sample(20:100, 11, T); Reading2 <- sample(20:50, 11, T); Reading3 <- sample(10:30, 11, T)
Reading4 <- sample(20:100, 11, T); Reading5 <- sample(20:50, 11, T); Reading6 <- sample(10:30, 11, T)

df <- data.frame(StudyID, Reading1, Reading2, Reading3, Reading4, Reading5, Reading6) %>%
  pivot_longer(cols = -StudyID, names_to = "time") %>%
  mutate(StudyID = factor(StudyID)) %>%
  mutate(time = as.numeric(str_replace(time, "Reading", ""))) %>%
  mutate(time = time*15) %>%
  mutate(lowertime = time-15) %>%
  mutate(timeinterval = paste0(lowertime,"-",time))

ggplot(df, aes(x = timeinterval, y = value
               , color = StudyID # <- remove this to prevent each subject getting its own color
               )) +
  geom_point() + 
  ylab("Reading Value") + xlab("Time Interval in Minutes") + 
  ggtitle("Reading Plot") + theme(legend.position = "none")