跨多列进行变异 - R

在R中，可以使用dplyr包中的pivot_wider函数来跨多列进行变异。下面是一个示例代码：

# 加载dplyr包
library(dplyr)

# 创建一个示例数据集
data <- data.frame(
  id = c(1, 2, 3, 4),
  category = c("A", "B", "C", "A"),
  value1 = c(10, 20, 30, 40),
  value2 = c(50, 60, 70, 80),
  value3 = c(90, 100, 110, 120)
)

# 使用pivot_wider函数进行变异
data_wide <- data %>%
  pivot_wider(
    id_cols = id,
    names_from = category,
    values_from = c(value1, value2, value3)
  )

# 打印结果
print(data_wide)

运行上述代码，将得到以下输出：

# A tibble: 4 x 10
     id value1_A value1_B value1_C value2_A value2_B value2_C value3_A value3_B value3_C
  <dbl>    <dbl>    <dbl>    <dbl>    <dbl>    <dbl>    <dbl>    <dbl>    <dbl>    <dbl>
1     1       10       NA       NA       50       NA       NA       90       NA       NA
2     2       NA       20       NA       NA       60       NA       NA      100       NA
3     3       NA       NA       30       NA       NA       70       NA       NA      110
4     4       40       NA       NA       80       NA       NA      120       NA       NA

在结果中，每个category的value1、value2和value3都被变异到了相应的列中。对于原始数据中缺失的值，使用NA进行填充。