|
把所要绘制的几何图形代码,封装入一个列表中,再用隐式函数表达,比较简洁。
library(ggplot2)
#把三种几何图形放入一个列表中
geoms <- list(
geom_point(),
geom_boxplot(aes(group=cut_width(displ,1))),
list(geom_point(),geom_smooth()))
p <- ggplot(mpg,aes(displ,hwy))
lapply(geoms,function(geoms) p+geoms) # 这里是隐式函数,随用随写。
Archiver|手机版|科学网 ( 京ICP备07017567号-12 )
GMT+8, 2024-7-23 05:30
Powered by ScienceNet.cn
Copyright © 2007- 中国科学报社