创建并合并 2 grid.tables

Question

我创建了一个 grid.table object 来在 PowerBi 中显示数据框，下面是我的代码：

dataset <- data.frame(BDS_ID = c("001","002"),
                  PRIORITY = c("high","medium"),
                  STATUS = c("onair","onair"),
                  COMPANY = c("airfr","fly"))
my.result <- melt(dataset, id = c("BDS_ID"))

mytheme <- ttheme_default(base_size = 10,
                          core=list(fg_params=list(hjust=0, x=0.01),
                                    bg_params=list(fill=c("white", "grey90"))))

for (i in 1:nrow(tg)) {
  tg$grobs[[i]] <- editGrob(tg$grobs[[i]], gp=gpar(fontface="bold"))
}

grid.draw(tg)

这是我的输出：

我想通过以下方式改进我的输出：我希望行 headers 是唯一的，并且每个变量的每个不同值都有一个不同的列，用行 headers每次。

我尝试使用语句 t(dataset) 执行此操作，但我没有得到想要的结果，因为行 headers 没有重复。

我想要得到类似于此的输出（总是优雅 grob）：

**PRIORITY**  high   **PRIORITY**  medium
**STATUS**    onair  **STATUS**    onair
**COMPANY**   airfr  **COMPANY**   fly

有人知道如何实现吗？

谢谢

Answer 1

根据您提供的代码，我无法重现您显示的 grob 格式，但我有类似的东西：

dataset <- data.frame(BDS_ID = c("001","002"),
                  PRIORITY = c("high","medium"),
                  STATUS = c("onair","onair"),
                  COMPANY = c("airfr","fly"))
dataset <- data.frame(t(dataset))
dataset$label1 <- rownames(dataset)
dataset$label2 <- rownames(dataset)
colnames(dataset) <- c("status1", "status2", "label1", "label2")
dataset <- dataset[c(2:nrow(dataset)), c(3, 1, 4, 2)]
rownames(dataset) <- NULL

test <- grid.draw(tableGrob(dataset))

以上代码生成以下对象。它看起来并不完全像你的，但它是你正在寻找的一般结构：

创建并合并 2 grid.tables

Create and combine 2 grid.tables

grid

r

dataframe

grob