是否有可能使用mutate_at或其他方法使此代码更简洁？

是的，可以使用mutate_at或其他方法来使代码更简洁。

mutate_at是dplyr包中的一个函数，用于对指定的列进行变换操作。它可以接受一个或多个列名作为参数，并对这些列进行相同的变换操作。

下面是一个示例代码，展示了如何使用mutate_at来简化代码：

library(dplyr)

# 原始代码
df <- data.frame(a = 1:5, b = 6:10, c = 11:15)

df <- df %>%
  mutate(a = a * 2,
         b = b * 3,
         c = c * 4)

# 使用mutate_at简化代码
df <- df %>%
  mutate_at(vars(a, b, c), ~ . * 2)

在上面的示例中，原始代码中使用了三次mutate来对列a、b和c进行变换操作，而使用mutate_at后，可以通过一行代码实现相同的效果，大大简化了代码。

除了mutate_at，dplyr包还提供了其他类似的函数，如mutate_all、mutate_if等，它们可以根据不同的条件对所有列或满足特定条件的列进行变换操作。

希望这个示例能帮助您更好地理解如何使用mutate_at或其他方法来简化代码。如果您对其他问题有疑问，请随时提问。