用for循环批量画图

1. library(tidyverse)
   
2. df <- matrix(rnorm(100 * 16), 100, 16) %>% as.data.frame()
   
3. colnames(df) <- paste0('v', 1:16)
   
4. 
   
5. plot.hist <- function(v_x) {
   
6.   p <- paste0(
   
7.     'ggplot() + geom_histogram(aes(df$',
   
8.     v_x,
   
9.     '), binwidth = 0.2)'
   
10.   )
    
11.   eval(parse(text = p))
    
12.   ggsave(paste0(v_x, '.png'), plot = last_plot())
    
13. }
    
14. 
    
15. setwd('C:/Users/swufe/Desktop/Plot')
    
16. map(paste0('v', c(2:13, 16)), plot.hist)

复制代码

再提供一种思路。
1、df是100行16列由随机数构成的数据框，列向量的名称分别为v1, v2 ... v16
2、定义一个函数plot.hist()，如果传入字符参数'v4'，则绘制df$v4的直方图，并保存在本地。
3、用map()函数绘制第2-13、第16列随机数的直方图并保存。