使用
ggplot2
自带函数facet_wrap()
进行分页操作
plot + facet_wrap(~split_by)
split_by
: 按照哪个参数进行分页设置
1. 示例一
aa <- as.data.frame(list("num_1"=1:10, "num_2"=rnorm(10)))
aa[["sample"]] <- "aa"
bb <- as.data.frame(list("num_1"=1:10, "num_2"=rnorm(10)))
bb[["sample"]] <- "bb"
kk <- rbind(aa,bb)
ggplot()+geom_point(data = kk, aes(num_1, num_2))+theme_bw()+
facet_wrap(~sample) '#示例一
ggplot()+geom_point(data = aa, aes(num_1, num_2))+theme_bw()+
facet_wrap(~sample) #示例二


网友评论