tableGrob格式

Question

我在R中有以下表格（下面以csv格式）。由于有很多这些并且我需要它们格式化，我尝试使用tableGrob来节省大量时间，但我需要以非常特定的格式输出，包括Calibri字体（也在下面）。

“2015 \ nabril”， “2016 \ nabril”， “2017 \ nmarzo”， “2017 \ nabril”

“Pedidos”， - 23.3，-13.8，-26，-39

“Existencias”，7.6,1.2,5.3,10.5

“Expectativas”，30.7,32.7,28.7,24

“ICI”， - 0.1,5.9，-0.9，-8.5

“ICI Desest *”，0.4,5.7，-3.2，-6.9

但是，每当我尝试编辑主题并打印表格时，我都会收到此错误

library(gridExtra)
t1 <- ttheme_default(core=list(
       fg_params=list(fontface=c(rep("plain", 4), "bold.italic")),
       bg_params = list(fill=c(rep(c("grey95", "grey90"),
                               length.out=4), "#6BAED6"),
                    alpha = rep(c(1,0.5), each=5))
))

t  <- tableGrob(tabla_fin)
grid.table(t, theme = t1)

  

数组中的错误（x，c（length（x），1L），if（！is.null（names（x）））   list（names（x），：dims [product 60]与长度不匹配   对象[12]

我很感激任何帮助。谢谢！

Answer 1

以下是一些可能有助于解决问题的想法。

.graphql

这是表格：