小编Gey*_*off的帖子

嗨跟随dplyr编程我注意到可以使用quo_name添加名称.我想知道如何为多列执行此操作,例如.像quos_name的种类.例如:

   my_mutate <- function(df, expr) {
  expr <- enquo(expr)
  mean_name <- paste0("mean_", quo_name(expr))
  sum_name <- paste0("sum_", quo_name(expr))

  mutate(df, 
    !!mean_name := mean(!!expr), 
    !!sum_name := sum(!!expr)
  )
}

变

   my_mutate <- function(df, ...) {
  exprs <-quos(...)
  mean_names <- paste0("mean_", quos_name(exprs))
  sum_names <- paste0("sum_", quos_name(exprs))

  mutate(df, 
    !!!mean_names := mean(!!!exprs), 
    !!!sum_names := sum(!!!exprs)
  )
}

即.为...中指定的所有列添加mean和sum列,当然这仅作为示例,并且quos_names不存在.如果有办法,这将是非常有帮助的.

我知道有可能在data.table中做这样的事情DT[,(Col_names):=lapply(Cols,mean)](这段代码不起作用,但我之前做过类似的事情).

在 R 中，如何为所有绘图设置默认调色板？我知道plot_ly()您可以设置colors=palette，但这仅适用于散点图，不适用于线图。对于线图，您必须单独设置每条迹线的颜色。