如何在expss包生成的etable指定位置添加行？

嘿，我来帮你搞定在expss输出的etable任意位置插入行的问题～你之前用的暴力方法只能在行首加行，确实不够灵活，下面给你分享两种实用的方式：

首先先回顾你的测试数据生成代码：

library(tidyverse)
library(expss)
test1 <- mtcars %>% tab_cells(cyl) %>% tab_cols(vs) %>% tab_stat_cpct() %>% tab_pivot()

生成的test1本质是继承自data.frame的expss表格对象，所以我们可以用dplyr或者base R的行操作工具来灵活插入行。

方法1：用dplyr::add_row指定位置 #

add_row函数的.before和.after参数可以直接指定插入的行位置，完全不受行首限制。先创建好要插入的行，再指定位置插入：

# 先构造要插入的行，注意列名要和原表完全匹配
new_row <- tibble(
  cyl = "6缸/4缸占比",  # 给第一列设置清晰的标签，替代空字符串更易读
  `0` = (test1[2, 2]/test1[1, 2])*100,
  `1` = (test1[2, 3]/test1[1, 3])*100
)

# 转换成tibble后插入到第3行之前（也可以用.after指定在某行之后）
test_modified <- test1 %>% 
  as_tibble() %>% 
  add_row(new_row, .before = 3)

如果你想在第5行之后插入，只需要把.before = 3改成.after = 5就行，非常灵活。

方法2：用base R的rbind结合索引拆分原表 #

如果你习惯用base R，也可以把原表拆成前后两部分，中间插入新行：

# 拆分原表：前2行 + 新行 + 从第3行开始的剩余部分
test_modified_base <- rbind(
  test1[1:2, ],
  new_row,
  test1[3:nrow(test1), ]
)

这种方式本质是通过索引控制插入位置，比如上面的代码就是在第2行之后插入新行，对应原表的第3行位置。

注意事项 #

• 插入的行必须和原表列数、列名完全一致，否则会出现匹配错误；
• 原表的第一列是分类标签列，建议给新行的对应位置设置明确的标签，方便后续阅读表格。

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