r - R在dyplyr函数中使用粘贴来构建本地函数

Question

我试图在构建本地函数时在 dplyr 的汇总或重命名中使用粘贴来命名变量。我收到一个错误：意外的 '=' in: " mutate(some.text= x) %>% rename(paste('hp', x, sep= '')="

这是一个例子：

data(mtcars)

get.information <- function(df, x) {
  df %>% 
    group_by(hp) %>% 
    summarize(paste('hp', x, sep= "")= n()) %>%
    mutate(some.text= x) 
}

或者

get.information <- function(df, x) {
  df %>% 
    group_by(hp) %>% 
    summarize(Frequency= n()) %>%
    mutate(some.text= x) %>%
    rename(paste('hp', x, sep= "")= Frequency)
}

get.information(mtcars, 2)

我会很感激任何帮助，在此先感谢！

Answer 1

尝试这个：

get.information <- function(df, x) {
    var.name = paste0('hp', x)
    var.val = lazyeval::interp('Frequency')
    df %>% 
        group_by(hp) %>% 
        summarize(Frequency= n()) %>%
        mutate(some.text= x) %>%
        mutate_(.dots = setNames(list(var.val), var.name))

}