将变形应用于dplyr中的多个列和行

library(dplyr)

# 创建一个示例数据框
data <- tibble(
  id = c(1, 1, 2, 2),
  category = c("A", "B", "A", "B"),
  value = c(10, 20, 30, 40)
)

# 使用pivot_wider()进行变形操作
data_wide <- data %>%
  pivot_wider(names_from = category, values_from = value)

# 输出结果
data_wide

# A tibble: 2 x 3
     id     A     B
  <dbl> <dbl> <dbl>
1     1    10    20
2     2    30    40

library(dplyr)

# 创建一个示例数据框
data <- tibble(
  id = c(1, 2),
  A = c(10, 30),
  B = c(20, 40)
)

# 使用pivot_longer()进行变形操作
data_long <- data %>%
  pivot_longer(cols = c(A, B), names_to = "category", values_to = "value")

# 输出结果
data_long

# A tibble: 4 x 3
     id category value
  <dbl> <chr>    <dbl>
1     1 A           10
2     1 B           20
3     2 A           30
4     2 B           40