Мне трудно переименовать столбцы в функции с помощью dplyr. Я уже нашел полезные сообщения о нестандартной оценке и использовании enquo (например, http://dplyr.tidyverse.org/articles/programming.html и Изменение имен результирующих переменных в пользовательской функции dplyr). Конечная цель - использовать функцию для суммирования каждой группы, а затем переименовать столбцы во что-то более значимое, чем исходные имена переменных.
Вот простой пример, который работает за исключением закомментированных строк.
library(tidyverse)
myfunc <- function(df, groupvar, colvar, grouplab, collab) {
groupvar <- enquo(groupvar)
colvar <- enquo(colvar)
grouplab <- enquo(grouplab) # quo_name instead?
collab <- enquo(collab) # quo_name instead?
t <- df %>%
select(!!groupvar, !!colvar) %>%
group_by(!!groupvar, !!colvar) %>%
summarise(
Frequencies = length(!!colvar),
Percentages = length(!!colvar) / nrow(df)
) %>%
mutate(
Frequencies = scales::comma(Frequencies),
Percentages = scales::percent(Percentages)
) #%>%
# rename(
# (!!grouplab) = !!groupvar, # add a more descriptive grouping var label
# (!!collab) = !!colvar) # add a more descriptive column var label
# Error: unexpected '=' in: rename((!!grouplab) = "
... # code to create an xtable, print it into LaTeX
}
myfunc <- (df = mtcars, groupvar = gear, colvar = cyl, grouplab = "Vehicle Gears", collab = "Vehicle Cylinders")
# I purposely made grouplab and collab have a space in case that changes anything.
Вне функций соответствующая часть будет выглядеть просто: mtcars <- mtcars %>% rename("Vehicle Cylinders" = cyl, "Vehicle Gears" = gear)
Я, должно быть, запутался в том, как переименование работает в функции, а не вне ее. Любой совет? Я открыт для предложений.
ОБНОВЛЕНИЕ
Вот один из способов сделать это. Я бы предпочел не помещать имена переменных в строки, но я не знаю, как это обойти. Открыт для предложений.
library(tidyverse)
library(xtable)
data(mtcars)
t_groupedfreqprop <- function(df, groupvar, colvar, grouplab, collab, plotname) {
groupvar2 <- rlang::sym(groupvar)
colvar2 <- rlang::sym(colvar)
grouplab <- rlang::sym(grouplab)
collab <- rlang::sym(collab)
t <- df %>%
select(!!groupvar2, !!colvar2) %>%
group_by(!!groupvar2, !!colvar2) %>%
summarise(
Frequencies = length(!!colvar2),
Percentages = length(!!colvar2) / nrow(df)
) %>%
mutate(
Frequencies = scales::comma(Frequencies),
Percentages = scales::percent(Percentages)
) %>%
rename(
!!grouplab := !!rlang::sym(groupvar2),
!!collab := !!rlang::sym(colvar2)
)
# remainder of function removed
}
t_groupedfreqprop(df = mtcars, groupvar = "gear", colvar = "cyl", grouplab = "Vehicle Gears", collab = "Vehicle Cylinders")