r - 如何在 ggplot 函数中使用以数字开头的列名

Question

我有一个巨大的数据框，其变量/列名称以数字开头，例如“1_variable”。现在我正在尝试创建一个函数，该函数可以将这些列名称作为参数，然后使用 ggplot 绘制一些箱线图。但是，我需要该字符串，但还需要将其输入与 `` 一起使用，以使用 ggplot 中的参数。但是我不确定如何转义“1_variable”等字符串，以便为 ggplot 提供“1_variable”输入。

可重现的小示例:

dfx = data.frame(`1ev`=c(rep(1,5), rep(2,5)), `2ev`=sample(10:99, 10), 
             `3ev`=10:1, check.names = FALSE)

如果我手动绘制该图，输入将如下所示:

 dfx$`1ev` <- as.factor(dfx$`1ev`)
 ggplot(dfx, aes(x = `1ev`, y = `2ev`))+
   geom_boxplot()

我希望能够为数据帧运行的函数是这个:

plot_boxplot <- function(data, group, value){
    data = data[c(group, value)]
    data[,group] = as.factor(data[,group])
    plot <- ggplot(data, aes(x = group, y = value))+
    geom_boxplot() 
    return(plot)
}

<强>1。尝试一下

plot_boxplot(dfx, `1ev`, `2ev`)

这给了我一个错误，说Error in [.data.frame(data, c(group, value)) : object '1ev' not find

<强>2。尝试一下

用双引号“”输入参数给了我意想不到的结果:

plot_boxplot(dfx, "1ev", "2ev")

<强>3。尝试一下我还尝试在函数中用 gsub 替换字符串的双引号

gsub('\"', '`', group)

但这不会改变其输出的任何内容。

<强>4。尝试一下

最后，我还尝试使用 aes_string ，但这只会给我带来同样的错误。

plot_boxplot <- function(data, group, value){
   data = data[c(as.character(group), as.character(value))]
   data[,group] = as.factor(data[,group])
   plot <- ggplot(data, aes_string(x= group, y=value))+
     geom_boxplot() 
   return(plot)    
}

plot_boxplot(dfx, `1ev`, `2ev`)

plot_boxplot(dfx, "1ev", "2ev")

---

理想情况下，我想运行该函数来产生以下输出:

plot_boxplot(dfx, group = "1ev", value = "2ev")

[可以用此代码手动生成]

ggplot(dfx, aes(x= `1ev`, y=`2ev`)) +
  geom_boxplot() 

任何帮助将不胜感激。

Answer 1

实现此目的的一种方法是结合使用 aes_ 和 as.name():

plot_boxplot <- function(data, group, value){
    data = data[c(group, value)]
    data[,group] = as.factor(data[,group])

    plot <- ggplot(data, aes_(x= as.name(group), y=as.name(value))) +
      geom_boxplot()

    return(plot)
}

并传入group和value的字符串:

plot_boxplot(dfx, "1ev", "2ev")

这与您上面显示的图表不同，但它看起来与数据一致。