配对数据画图

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))     示例一