由于我要使用用于创建图的拟合的软件包，因此我必须使用gridExtra :: grid.arrange绘制除彼此以外的多个图。 我必须使用grid.arrange为图创建标题。 现在，我想将两者结合起来，但无法弄清楚如何做。所以：我想画出几个彼此并排的人物，并给每个人一个不同的标题。
我有euler1和euler2，适合于用euler图表示我的数据。 用于绘制除彼此之外的2个地块，此代码对我有用：
gridExtra::grid.arrange(plot(euler1),plot(euler2))
为单个图赋予标题，此代码对我有用：
plot1 <- plot(euler1)
grid.arrange(grobs = list(plot1), top = "Title 1")
现在，我想将两个代码结合起来。 我该怎么办？
我尝试例如（但不起作用）
plot1 <- plot(euler1)
plot2 <- plot(euler2)
gridExtra::grid.arrange(plot1, plot2, grobs = list(plot1, plot2), top = list("Title 1","Title 2"))
亲切的问候， 朱迪思
答案 0 :(得分：0)
通常，您会在情节本身中添加标题，如
p1 = ggplot() + ggtitle('plot 1')
p2 = ggplot() + ggtitle('plot 2')
grid.arrange(grobs = list(p1, p2), top = "Global Title", ncol=2)
但是，如果您更喜欢使用grid.arrange的top参数作为标题，则可以嵌套它们，
p = ggplot()
grid.arrange(arrangeGrob(p, top = 'title 1'), arrangeGrob(p, top = 'title 2'), top = "Global Title", ncol=2)
答案 1 :(得分：0)
我想出了办法，因为e where inputArray.Contains(s.area)
&& s.sdate == _context.sales.Where(ss => ss.area == s.area).Max(ss => ss.sdate)
中main的使用对于eulerr软件包是固定的。现在我可以使用：
plot感谢大家的反馈。