--原文链接--
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
网友评论