提取R中的列名與lapply

因此，這裏是我的代碼提取R中的列名與lapply

h <- lapply(select(winedata, -quality), function(variable){ 
return(ggplot(aes(x = variable), data = winedata) + 
geom_histogram(bins = 30) + xlab(variable))})

有一個問題，那就是xlab（變量）顯示第一列作爲x軸標題的值，如果我選擇變量[2]它顯示第二列的值作爲x軸標題。我如何獲得它將列名稱作爲X軸標題。名字（變量）似乎並沒有工作

來源

2017-09-02 Mark

請參閱[MCVE。 –

你可以迭代'names（winedata）'並使用'aes_string'，但更好的方法是重塑長表單並使用'facet_wrap'來將所有的圖表合併爲一個，例如'庫（tidyverse）; winedata％>％gather（變量，值）％>％ggplot（aes（value））+ geom_histogram（）+ facet_wrap（〜變量）' – alistaire

您可以使用Map：

library(ggplot2) 
library(dplyr) 

Map(function(var, names){ 
    return(ggplot(iris, aes(x = var)) + 
      geom_histogram(bins = 30) + xlab(names))}, 
    select(iris, -Species), names(iris)[1:4])

Map基本上是mapply與SIMPLIFY=FALSE，這需要多個輸入，並返回一個列表。