Ciao, 我在更改可伸缩表格的字体颜色时遇到一些麻烦。
R版本为3.5.2
我正在处理此对象,因为我必须在pptx演示文稿上添加表格,并且为此,我当然会使用Officer包。让我向您展示一个伪代码和输出:
library(officer)
library(flextable)
ppt <- read_pptx()
ppt <- add_slide( ppt, layout = "Title and Content", master = "Office Theme")
ppt <- ph_with_text(ppt, "Title whatever", type = "title")
df = head(mtcars)
ft = flextable(df)
ft <- bg(ft, i = 1, bg = "#FF0000", part = "body")
ft <- bg(ft, i = 1, bg = "#FF0000", part = "header")
ft <- fontsize(ft, i = 1, size = 15, part = "body")
ft <- fontsize(ft, i = 1, size = 20, part = "header")
ft <- color(ft, i = 1, color = "#FFFFFF", part = "body")
ft <- color(ft, i = 1, color = "white", part = "header")
ft <- font(ft, i = 1, fontname = "Consolas", part = "header")
ft <- autofit(ft)
ppt <- ph_with_flextable(ppt, ft)
if(file.exists("prova.pptx"))
file.remove("prova.pptx")
print(x = ppt, target = "prova.pptx")
如您所见,我在表格上应用了许多格式化功能,但我注意到唯一失败的是“颜色”功能。
表格的标题和第一行应为白色。请注意,我尝试将“ white”和“ #FFFFFF”这两个值都分配给“ color”参数,但在两种情况下均不起作用。
考虑到所有其他设置都已成功应用,这更加令人担忧。
flextable包中关于 color 函数的我缺少什么?您是否注意到了相同的问题(错误)?
谢谢
Ciao
AM