使用pivot_wider函数未实现行列转换，求正确实现方法

你的代码无法得到目标结果，核心原因是搞反了数据转换的步骤：原始数据是宽表格式，而pivot_wider的作用是将长表转为宽表。要实现你要的行列翻转，需要先把宽表转成长表，再执行宽表转换。

正确的处理步骤 #

1. 用pivot_longer将所有月份列（jan、feb、mar等）转换为长表结构，生成month和value两列
2. 用pivot_wider将model字段的取值作为新列名，value字段的数值对应填充到各列

完整代码实现 #

library(tidyverse)

df <- data.frame(model = c('a', 'b', 'c', 'd', 'e'),
                 jan = c(1, 2, 3, 4, 5),
                 feb = c(2, 4, 6, 8, 10),
                 mar = c(3, 6, 9, 12, 14)
)

# 先转长表，再转宽表
result <- df %>%
  # 选中除model外的所有列，转为month和value
  pivot_longer(cols = -model, names_to = "month", values_to = "value") %>%
  # 以model为列名，value为对应值
  pivot_wider(names_from = model, values_from = value)

print(result)

针对真实数据集的适配 #

你的真实数据集有15列，代码里的cols = -model会自动选中除model外的所有列，不需要手动指定列序号（比如你之前用的2:4），这种写法更灵活，能适配任意数量的月份列。

运行后得到的结果和你期望的一致，完美匹配PowerBI的可视化需求。

内容的提问来源于stack exchange，提问作者Dre Day