r - 多个三元图上的行的“垂直”标题

Question

我正在尝试使用ggtern和绘制多图图形的行和列的标题ggplot2。我尝试使用theme()但找不到可以正确标记行并替换文本的属性（使用 旋转它之后angle）。理想情况下，我希望这些行有垂直文本，上面写着“侧面标题：1”和“侧面标题 2”。

此代码来自ggtern 网站上的示例。提前感谢您的帮助。

require(ggplot2)
require(ggtern)
data(Feldspar)

arrangement = list()

for(r in seq(1,2)){
    for(c in seq(1, 2)){

    title <- ""
    if (r == 1){title <- paste("Top title:", c)}

    ytitle <- ""
    if (c == 1){ ytitle <- paste("Side title:", r)}

      x = ggtern(data=Feldspar,aes(x = Ab,y = An,z = Or)) +
        geom_point() + 
        ggtitle(title)+
        labs(y = ytitle)

      arrangement[[length(arrangement) + 1]] = x
      }
}
grid.arrange(grobs = arrangement)

Answer 1

我认为您要实现的目标应该使用 faceting via 来完成facet_grid(...)，例如以下简单示例：

library(ggtern)
set.seed(1) #for reproducability
df = data.frame(A=runif(100),B=runif(100),C=runif(100),
                COLS=paste("Column",sample(1:2,100,replace=TRUE)),
                ROWS=paste("Row",   sample(1:2,100,replace=TRUE)))
ggtern(data=df,aes(A,B,C)) + 
  geom_point() + 
  facet_grid(ROWS~COLS)

产生以下内容：