长格式文件

library(tidyverse)
# 将数据转换为宽格式
data_wide <- data %>%
  pivot_wider(names_from = V2, values_from = V3)

# 保存数据框为CSV文件
write.csv(data_wide, "E:/gene_expression_data_wide.csv", row.names = FALSE)

library(tidyverse)
# 将数据转换为宽格式
data_wide <- data %>%
  pivot_wider(names_from = V2, values_from = V3)

结果文件（宽格式文件）

原文链接：【金山文档 | WPS云文档】 R语言长格式转换成宽格式
https://www.kdocs.cn/l/cr0vVo4VxNMh