3

Ciao，我在更改 flextable 中的字体颜色时遇到了一些麻烦。

R版本是3.5.2

我正在研究这个对象，因为我必须在 pptx 演示文稿中添加表格，为此我当然会使用官员包。让我向您展示一个虚拟代码和输出：

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 包中的颜色功能缺少什么？您是否注意到相同的问题（错误）？

谢谢，

再见

是

4

0 回答 0