R 使用ggplot2的表格标题

我想在ggplot2中复制LaTeX/pgf中完成的组合表/绘图

这是原始表格/绘图：

以下是我使用ggplot2取得的成绩：

还有一些小问题，但我的主要问题是：如何添加表头

它应该与元素正确对齐

理想情况下，它还可以使用水平线模拟原始示例中的BookTab外观

有什么想法吗

这是我目前使用的代码：

tmptable <-
    data.frame(Method=c("label", "svlabel", "libor", "rpirat", "Frankfurt", "high"),
               p=c(0.03, 0.38, 0.27, 0.31, 0.05, 0.36),
               p_lo=c(-0.05, 0.34, 0.21, 0.24, -0.03, 0.32),
               p_hi=c(0.11, 0.41, 0.33, 0.38, 0.13, 0.41))
plotPointsCIinMatrix(tmptable)

---

tmptable您可以通过放置选项
main=“将您的标题放在这里！”

我知道这不完全是你想要的，但是你可以在
arrangeGrob
框架中工作。另一种方法是用乳胶制作表头，并将图形与之完美对齐

以下是我更改的函数部分：

... previous code in plotPointsCIinMatrix()

library("gridExtra")
a <- arrangeGrob(gp, gdata.table,
               ##clip = FALSE,
               ncol = 2,
               widths = unit(c(10,5),
                             c("null", "null")),
               main = "Put your title here!")

a
}

。。。plotPointsCIinMatrix（）中的上一个代码
图书馆（“gridExtra”）
a我会一直使用gtable，而不是将其与arrangeGrob混合使用。添加与其余行对齐的顶行将更容易。
... previous code in plotPointsCIinMatrix()

library("gridExtra")
a <- arrangeGrob(gp, gdata.table,
               ##clip = FALSE,
               ncol = 2,
               widths = unit(c(10,5),
                             c("null", "null")),
               main = "Put your title here!")

a
}