--原文链接--

image.png image.png image.png

绿色点为第一周，红色点为第二周数据，两点之间线段越长说明两周数据差异越大。

image.png

library(ggplot2)

week_n <- rep(c("week1","week2"),each=7)
week <- rep(c("Monday","Tuesday","Wednesday","Thursday",'Friday','Saturday','Sunday'),times=2)
time <- c(10,14,16,20,24,28,34,8,12,17,18,20,26,29)

mydata <- data.frame(week_n,week,time)

ggplot(mydata, aes(time,week,fill=week_n)) +
  geom_line(aes(group = week)) +
  geom_point(shape=21,size=3,colour="black")+
  scale_fill_manual(values=c("#00AFBB", "#FC4E07","#36BED9"))+
  theme(legend.position = c(0.85,0.8))

精彩推荐：

R语言绘制散点图geom_point
R语言添加拟合曲线geom_smooth
R语言箱线图boxplot
R语言线图geom_line

image.png