我试图在 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 分中的问题创建一个百分比分数变量。

谢谢！！

回答

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