时间戳

首页 > 解决方案 > Flextable：如果满足条件和格式，则更改单元格值

r - Flextable：如果满足条件和格式，则更改单元格值

问题描述

我有一个数据集（称为示例），如下所示。

mic <- rep(c("One", "Two", "Tree", "Four"), each = 3)  
pap <- rep(c("1", "2", "3", "4"), each = 3)  
ref <- rep(c("Trial 1", "Trial 2", "Trial 3", "Trial 4"), each = 3)  
prob <- c(rep(NA,4), "Nogood", NA, "Bad", "Nogood", "Norel", NA, "Bad", "Nogood")  
example <- data.frame(Micro = mic, Paper = pap, Reference = ref, Problem = prob)  
example

例子

当连续的单元格具有相同的值时，我想垂直合并单元格，所以我使用flextable merge_v()函数。

ft_example <- example %>%
flextable() %>%
merge_v(j = ~ Micro + Paper + Reference + Problem) %>%
theme_vanilla()
ft_example

我在 Word 中编织时获得下表： 获得的表格

有没有办法：

  1. 在合并在一起的“问题”字段的空单元格中插入后验值“未识别”；和
  2. 当有一个（或多个）非空单元格和一些空单元格时，删除“问题”字段中不适当的水平线，以便有一条水平线清楚分隔 Micro、Paper、Reference 和水平线的每个组合，仅分隔非空问题字段中的单元格？

您可以在下面看到所需的结果： 所需表

标签： rformattingcelleditflextable

解决方案

推荐阅读