特定单元格中的控制数字

Question

我有一个如下所示的表格：

+-----------------------------------+-------+--------+------+
|                                   | Male  | Female |  n   |
+-----------------------------------+-------+--------+------+
| way more than my fair share       | 2,4   | 21,6   |  135 |
| a little more than my fair share  | 5,4   | 38,1   |  244 |
| about my fair share               | 54,0  | 35,3   |  491 |
| a littles less than my fair share | 25,1  | 3,0    |  153 |
| way less than my fair share       | 8,7   | 0,7    |   51 |
| Can't say                         | 4,4   | 1,2    |   31 |
| n                                 | 541,0 | 564,0  | 1105 |
+-----------------------------------+-------+--------+------+

一切都很好，但我想做的是在最后一行中根本不显示任何数字，因为它们显示了边距（真实案例）。 RI中是否有机会操纵特定的单元格及其数字？

谢谢！

Answer 1

您可以使用ifelse 在不同行中以不同格式输出数字，如下例所示。但是，要使最后一行中的值与前几行按位置值对齐，还需要一些额外的技巧：

library(knitr)
library(tidyverse)

# Fake data
set.seed(10)
dat = data.frame(category=c(LETTERS[1:6],"n"), replicate(3, rnorm(7, 100,20)))

dat %>% 
  mutate_if(is.numeric, funs(sprintf(ifelse(category=="n", "%1.0f", "%1.1f"), .))) %>% 
  kable(align="lrrr")

|category |    X1|    X2|    X3|
|:--------|-----:|-----:|-----:|
|A        | 100.4|  92.7| 114.8|
|B        |  96.3|  67.5| 101.8|
|C        |  72.6|  94.9|  80.9|
|D        |  88.0| 122.0|  96.1|
|E        | 105.9| 115.1| 118.5|
|F        | 107.8|  95.2| 109.7|
|n        |    76|   120|    88|

huxtable 包可以轻松地对值进行小数对齐（有关表格格式的更多信息，请参阅the Vignette）：

library(huxtable)

tab = dat %>% 
  mutate_if(is.numeric, funs(sprintf(ifelse(category=="n", "%1.0f", "%1.1f"), .))) %>% 
  hux %>% add_colnames()

align(tab)[-1] = "."

tab

这是从rmarkdown 文档编织成 PDF 时的 PDF 输出的样子：