我正在制作一张桌子,其中包含折叠行和拥挤行.我想删除列第一个的名称,但当我这样做时,kable会删除折叠.

有什么 idea 吗?

这里是一个具有相同错误的可复制示例代码:

library(tidyverse)
library(kableExtra)

data("iris") 

Tbl <- iris %>% 
  pivot_longer(cols = c(Sepal.Length, Sepal.Width, Petal.Length, Petal.Width)) %>% 
  separate(name, sep = 5, into = c("Flower_part", "Measure")) %>% 
  group_by(Species, Flower_part, Measure) %>% 
  summarise(Mean = mean(value),
            SD = sd(value)) 

#Table with colapsed rows and the name of column
Tbl %>% 
  ungroup() %>% 
  select(-Species) %>% 
  kbl(digits = 3) %>%
  kable_classic("striped", full_width = T) %>% 
  collapse_rows(columns = 1, valign = "top") %>% 
  pack_rows(index = table(Tbl$Species), indent = FALSE)

#Table with colapsed rows and the name of column

#Table with a "blank" name with the collapsing not working.
Tbl %>% 
  ungroup() %>% 
  select(-Species) %>% 
  rename(" " = "Flower_part") %>%
  kbl(digits = 3) %>%
  kable_classic("striped", full_width = T) %>% 
  collapse_rows(columns = 1, valign = "top") %>% 
  pack_rows(index = table(Tbl$Species), indent = FALSE)

#Table with a

推荐答案

您可以使用Unicode:

Tbl %>% 
  ungroup() %>% 
  select(-Species) %>% 
  rename("\U00A0" = "Flower_part") %>%
  kbl(digits = 3) %>%
  kable_classic("striped", full_width = T) %>% 
  collapse_rows(columns = 1, valign = "top") %>% 
  pack_rows(index = table(Tbl$Species), indent = FALSE)

enter image description here

R相关问答推荐

使用rlang s arg_match判断函数输入列表

提取R中值和列名的所有可能组合

修改用R编写的用户定义函数

如何在编辑列时更新可编辑数据表,并使用该表在Shiny中执行连续计算

将文件保存到新文件夹时,切换r设置以不必创建目录

使用R中的正则表达式将一列分割为多列

try 将 colored颜色 编码添加到ggploly的标题中

在ggplot2的框图中绘制所有级别的系数

如何将R中数据帧中的任何Nas替换为最后4个值

如何将网站图像添加到带有极坐标的面包裹条形图?

以字符格式导入的ExcelElectron 表格日期列标题

R -如何分配夜间GPS数据(即跨越午夜的数据)相同的开始日期?

以不同于绘图中元素的方式对GG图图例进行排序

如果满足条件,则替换列的前一个值和后续值

在不重复主题的情况下重新排列组

每行不同列上的行求和

使用LAG和dplyr执行计算,以便按行和按组迭代

如何修复geom_rect中的层错误?

如何在分组蜂群小区中正确定位标签

在shiny /bslb中,当卡片是从json生成时,如何水平排列卡片?