1. 示例一
kk <- as.data.frame(list(1:20, c(rep("aa",10), rep("bb",10)), rep(LETTERS[1:10],2)))
colnames(kk) <- c("num","type","class")
kk[,2] <- ordered(kk[,2], levels=c("aa","bb"))
kk[,3] <- ordered(kk[,3], levels=c("cc","dd"))
ggplot(kk, aes(x=type, y=num))+
geom_boxplot()+
geom_point()+
geom_line(aes(group=class)) 示例一
示例一