使用summary_at将多列除以其他列

Question

我想将多个列除以另一个指定的列。 该代码的唯一相关部分在下面发布。

summarize_at(vars(starts_with('total')),list(~./count_short)) 

错误：“ total_age”必须为长度1，而不是集合的长度。

Answer 1

问题是summarise/summarise_at返回的长度为1，但是当我们除以整列时，它的长度为n（）。 所以，与其summarise_at ，使用mutate_at修改列

...
 %>%
  mutate_at(vars(starts_with('total')),list(~./count_short))

或者如果需要。 创建新列，在list换行后指定一个名称，该名称将在现有列后缀后创建新列

... %>%
   mutate_at(vars(starts_with('total')),list(value = ~./count_short))