我正在构建flextable
对象以显示表,有时我想在第一列中添加一个或几个缩进,在其中显示一些行的名称。
接下来,我分享一些代码来模拟一些数据,并提供一个可重现的示例。我的问题的真正出发点是ft
(Table 1):
library(dplyr)
library(flextable)
# Simulate data
g_A <- expand.grid(x = "A", y = c("A_1", "A_2"), z = c("A_1_a", "A_1_b", "A_2_a", "A_2_b"))
g_B <- expand.grid(x = "B", y = c("B_1", "B_2"), z = c("B_1_a", "B_1_b", "B_2_a", "B_2_b"))
g <- rbind(g_A, g_B)
n <- 123
set.seed(1)
df <- sample_n(g, n, replace = TRUE)
# Build table
tmp <- c(table(df$x)[1],
table(df$y)[1],
table(df$z)[1:2],
table(df$y)[2],
table(df$z)[3:4],
table(df$x)[2],
table(df$y)[3],
table(df$z)[5:6],
table(df$y)[4],
table(df$z)[7:8])
my_tab <- data.frame("tmp" = names(tmp), "counts" = tmp, "percentages" = round(tmp/n*100, 2))
# flextable operations
ft <- flextable(my_tab)
ft <- set_header_labels(ft, tmp = "")
ft <- align(ft, align = "center")
ft <- align(ft, j = 1, align = "left")
# ft
现在,我想在第一栏中缩进一些名称。例如,为了缩进A_1
,我尝试了以下策略:
compose(ft, i = 2, j = 1, as_paragraph(" A_1"))
compose(ft, i = 2, j = 1, as_paragraph("\t A_1"))
# Or
# colformat_char(ft, i = 2, j = 1, prefix = " ")
# colformat_char(ft, i = 2, j = 1, prefix = "\t")
但是它们不起作用(结果与表1中的结果相同)。一种“次优”的策略可以是以下(Table 2):
compose(ft, i = 2, j = 1, as_paragraph("- A_1"))
# Or
# colformat_char(ft, i = 2, j = 1, prefix = "- ")
但是,我想要适当的缩进。
最后,我与预期的最终结果Table 3相同,并以缩进代替了每个“-”。
等待您的见解!
Ciao
答案 0 :(得分:1)
要缩进flextable
中的单元格,可以使用padding
函数:
ft <- padding(ft, i=2, j=1, padding.left=20)