r - 跨多列变异以在 R 中创建百分比分数

Question

我试图在 df 中的 36 个独立列中重现以下代码。因此，不必重新键入此代码 36 次，我如何应用一个函数来一次将其应用于所有列？我需要应用它们的 df 中的列是 4:40。

df <- df %>% 
  mutate(percent_score_1 = (score_1 / 5) * 100,
         percent_score_2 = (score_2 / 5) * 100)

数据如下所示:

   score_1   score_2
     2           3
     3           4
     5           1

如果不清楚，我将根据满分 5 分的问题创建百分比分数变量。

谢谢!!

Answer 1

你可以这样做:

df %>%
   mutate(across(starts_with('score'), ~ ./5 * 100, .names = 'percent_{col}'))