把所要绘制的几何图形代码，封装入一个列表中，再用隐式函数表达，比较简洁。

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) # 这里是隐式函数，随用随写。

转载本文请联系原作者获取授权，同时请注明本文来自王雷宏科学网博客。

链接地址：https://wap.sciencenet.cn/blog-3509182-1365898.html?mobile=1

收藏

分享