Как передать столбец для упорядочивания() и mutate()

Question

Мне нужна функция, которая использует dplyr и выглядит примерно как AddPercentColumns().

AddPercentColumns <- function(df, col) { 
    # Sorts and adds "Percent" and "Cumulative Percent" columns to a data.frame. 
    # 
    # Args: 
    # df: data frame 
    # col: column symbol 
    # 
    # Returns: 
    # Data frame sorted by "col" with new "Percent" and "Cumulative Percent" columns. 

    df %>% 
     arrange(desc(col)) %>% 
     mutate(Percent = col/sum(col) * 100) %>% 
     mutate(Cumulative = cumsum(Percent)) 
} 

Тем не менее, у меня возникают проблемы с обмотанием головы вокруг того, как обходить NSE. Я мог бы передать строку имени столбца и использовать arrange_() и mutate_(), но тогда я не уверен, что делать с desc(), sum() и cumsum().

Как эту функцию следует написать с помощью dplyr?

Answer 1

На основе предложений Konrad, я отправляю другое решение, как она развивается. :)

AddPercentColumns <- function(df, col) { 
    # Sorts data.frame and adds "Percent" and "Cumulative Percent" columns. 
    # 
    # Args: 
    # df: data frame 
    # col: unevaluated column symbol e.g. substitute(col) 
    # 
    # Returns: 
    # Data frame sorted by "col" with new "Percent" and "Cumulative Percent" columns. 

    df %>% 
     arrange_(bquote(desc(.(col)))) %>% 
     mutate_(Percent = bquote(.(col)/sum(.(col)) * 100)) %>% 
     mutate(Cumulative = cumsum(Percent)) 
} 

Определенно более чистый, более отлаживаемый и удобочитаемый.

Answer 2

Я нахожу sprintf() немного легче читать, чем paste(). Функция ниже кажется, что было бы очень весело отлаживать, но она выполняет свою работу.

AddPercentColumn <- function(df, col) { 
    # Sorts data.frame and adds "Percent" and "Cumulative Percent" columns. 
    # 
    # Args: 
    # df: data frame 
    # col: column name string 
    # 
    # Returns: 
    # Data frame sorted by "col" with new "Percent" and "Cumulative Percent" columns. 

    df %>% 
     arrange_(sprintf("desc(%s)", col)) %>% 
     mutate_(Percent = sprintf("%s/sum(%s) * 100", col, col)) %>% 
     mutate_(Cumulative = "cumsum(Percent)") 
} 

Не супер чистый, хотя ...