R语言表格转置问题：如何在函数末尾实现行列互换？

不用全盘修改现有列操作的代码，转置可以用tidyverse的pivot_longer+pivot_wider组合实现，全程保持dataframe结构，比base R的t()更可控，也不用改动你前面的业务处理逻辑。

问题根源 #

你用t()转置后得到的是矩阵，不是dataframe，所以后续操作会失效。最佳路径是完成所有列层面的清洗、格式化后，再做转置，而非提前把所有列操作改成行操作——这会徒增代码复杂度，完全没必要。

具体实现步骤 #

1. 保留你现有所有处理total_stats的代码（重命名、补NA、排序、格式化、选列这些全部不用改），这些都是针对原始数据的合理业务逻辑。
2. 用tidyverse的重塑函数转置，全程维持dataframe属性。
3. 调整转置后的表格拆分逻辑，因为行列互换后，行数和列数的对应关系变了。

修改后的代码示例 #

# 保留原有的所有数据处理代码，完全不变
total_stats = submarket_stats %>%  
    rename(`Direct Vacant SF` = `Vacant SF - Direct`,
           `Sublease Vacant SF` = `Vacant SF - Sublease`,
           `Overall Vacant SF` = `Vacant SF - Total`) %>%
    replace_na(list(District = "Unspecified")) %>%
    arrange(Market, Submarket) %>% 
    mutate(across(c(`Direct Vacancy Rate`, `Overall Vacancy Rate`, `Overall Availability Rate`), scales::percent, accuracy = .1),
           across(c(`Property Count`, NRA,
                    `Direct Vacant SF`, `Sublease Vacant SF`, `Overall Vacant SF`,
                    `Overall Available SF`),
                  scales::dollar, accuracy = 1, style_negative="parens", prefix=""),
           across(any_of(c("Full Service Gross Asking Rate", "Lease Rate")),
                  scales::dollar)) %>%
    select(Submarket, all_of(col_order)) %>%
    replace_na(list(`Full Service Gross Asking Rate` = "-"))

# 新增转置逻辑：用tidyverse重塑保持dataframe结构
transposed_stats = total_stats %>%
    # 将Submarket以外的所有列转为长格式，列名存为Metric，值存为Value
    pivot_longer(-Submarket, names_to = "Metric", values_to = "Value") %>%
    # 转宽格式，把Submarket作为新的列名，Metric作为行标识
    pivot_wider(names_from = Submarket, values_from = Value) %>%
    # 可选：将Metric列移到第一列，符合表格阅读习惯
    select(Metric, everything())

# 调整拆分逻辑：转置后原列变行、原行变列，需根据新的行数设置table_rows
# 示例值，你可以根据实际列数（原数据除Submarket外的列数）调整
table_rows = if(property_type == "Industrial") 10 else 8 
table_breaks = ((1:floor(nrow(transposed_stats)/table_rows))*table_rows)+1

# 拆分转置后的表格
split(transposed_stats, cumsum(1:nrow(transposed_stats) %in% table_breaks))

备选方案：base R转置（不推荐） #

如果一定要用t()，转置后需手动转回dataframe并修正行列名，但这种方式处理格式化后的字符串（如带%、$的内容）容易出类型问题：

# 排除Submarket列后转置，再转为dataframe
transposed_stats = as.data.frame(t(total_stats[-1]))
# 设置新列名为原Submarket的值
colnames(transposed_stats) = total_stats$Submarket
# 添加原列名作为Metric列
transposed_stats$Metric = rownames(transposed_stats)
# 调整列顺序并清除行名
transposed_stats = transposed_stats %>% select(Metric, everything())
rownames(transposed_stats) = NULL

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