基于CASE将多行数据透视为单行和多列

在R语言中，可以使用tidyverse包中的pivot_wider函数来实现将多行数据透视为单行和多列的操作。下面是一个示例代码：

library(tidyverse)

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

# 使用pivot_wider函数将多行数据透视为单行和多列
pivot_data <- data %>% 
  pivot_wider(
    names_from = category, # 用于创建新列的列名
    values_from = value # 用于填充新列的值
  )

# 输出结果
print(pivot_data)

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

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

在以上示例中，我们使用pivot_wider函数将原始数据集中的category列的唯一值（"A"和"B"）作为新数据集的列名，并将对应的value值填充到相应的单元格中。如果某行的category列的值在原始数据集中不存在，则在新数据集中对应的单元格填充NA。