R变量名称和字符串的转换

应用场景

数据

data <- data.frame(x=1:5, y=3:7)
data$z=sin(data$x+data$y) 
data$a=sin(data$x*data$y)
data$b=cos(data$x+data$y)
data$d=cos(data$x*data$y)
data
  x y          z          a          b          d
1 1 3 -0.7568025  0.1411200 -0.6536436 -0.9899925
2 2 4 -0.2794155  0.9893582  0.9601703 -0.1455000
3 3 5  0.9893582  0.6502878 -0.1455000 -0.7596879
4 4 6 -0.5440211 -0.9055784 -0.8390715  0.4241790
5 5 7 -0.5365729 -0.4281827  0.8438540 -0.9036922

需求：批量画散点图

library(ggplot2)
col_names <- colnames(data)
plot_list <- lapply(3:6, function(xx) {
    ggplot(data=data, aes(x=x, y=y, color=col_names[xx])) + geom_point() + ggtitle(col_names[xx])
})
cowplot::plot_grid(plotlist = plot_list, ncol = 2)

这样其实是不行的，我们将字符串传给color，color不会读取data中的数据，而是把col_names[xx]当做一个字符串来处理。

get

解决方案

library(ggplot2)
col_names <- colnames(data)[3:6]
plot_list <- lapply(col_names, function(xx) {
    ggplot(data=data, aes(x=x, y=y, color=get(xx))) + geom_point() + ggtitle(xx) + 
    theme(plot.title = element_text(hjust = 0.5))
})
cowplot::plot_grid(plotlist = plot_list, ncol = 2)