указать имена столбцов dplyr

Question

Как передать имена столбцов в dplyr, если я не знаю имя столбца, но хочу указать его через переменную?

например. это работает:

require(dplyr) 
df <- as.data.frame(matrix(seq(1:9),ncol=3,nrow=3)) 
df$group <- c("A","B","A") 
gdf <- df %.% group_by(group) %.% summarise(m1 =mean(V1),m2 =mean(V2),m3 =mean(V3)) 

Но это не

require(dplyr) 
someColumn = "group" 
df <- as.data.frame(matrix(seq(1:9),ncol=3,nrow=3)) 
df$group <- c("A","B","A") 
gdf <- df %.% group_by(someColumn) %.% summarise(m1 =mean(V1),m2 =mean(V2),m3 =mean(V3)) 

Answer 1

Я ожидаю, что вы просто должны использовать Eval

require(dplyr) 
someColumn = "group" 
df <- as.data.frame(matrix(seq(1:9),ncol=3,nrow=3)) 
df$group <- c("A","B","A") 
gdf <- df %.% group_by(eval(someColumn)) %.% summarise(m1 =mean(V1),m2 =mean(V2),m3 =mean(V3)) 

Answer 2

Вот ответ на этот простой вопрос, полученный путем выбора через раствор Хэдли к его опубликованному обману.

gdf <- df %.% regroup(lapply(someColumn, as.symbol)) %.% summarise(m1 =mean(V1),m2 =mean(V2),m3 =mean(V3))

FWIW, мое использование дело касается группировки одного переменного столбца и одной постоянной колонки. Решение это:

gdf <- df %.% regroup(lapply(c('constant_column', someColumn), as.symbol)) %.% summarise(m1 =mean(V1),m2 =mean(V2),m3 =mean(V3))

Наконец, посланной eval решение не работает. Это просто создает новый столбец, значения которого равны someColumneval s. Я еще не достаточно крут, чтобы оставить комментарий или уменьшить его.

Answer 3

pollutant <- "sulfate" 
summarise(data, mean(eval(as.symbol(pollutant)), na.rm = TRUE)) 

Я пытался задать тот же вопрос для моей проблемы. Тогда я нашел решение. Я инкапсулирую выражение с помощью eval (as.symbol()).

Answer 4

Я только что дал аналогичный ответ на Group by multiple columns in dplyr, using string vector input, но для хорошей меры: функции, которые позволяют вам работать с столбцами с использованием строк, были добавлены к dplyr. Они имеют то же имя, что и обычные функции dplyr, но заканчиваются символом подчеркивания. Функции подробно описаны в this vignette.

Учитывая df и someColumn из ОП, это теперь работает лакомство:

gdf <- df %>% group_by_(someColumn) %>% summarise(m1=mean(V1),m2=mean(V2),m3=mean(V3)) 

Обратите внимание, что group_by_, а не group_by, а оператор %>% используется как %.% осуждается.

Answer 5

Вы можете использовать summarise_ следующим образом:

plotVar   = "Stocks_US_TotalCrudeOil" 
dfBand <- mydf[ c(plotVar , "year", "week" ) ] %>% 
      filter (year %in% bandYears) %>% 
      group_by ( week) %>% 
      summarise_ ( ymini = paste("min(" , as.name(plotVar) ,")" ) 
         , ymaxi = paste("max(" , as.name(plotVar) ,")" ) ) 
dfBand