如何更改 facet_nested 标签之一的位置？

Question

我有一个图，我想在图的顶部放置一个小平面标签，在图的左侧放置另一个小平面标签。但是，我不知道这是否可行，或者我是否应该以其他方式进行。下面我展示了一个假的例子来玩：

library(ggplot2)
library(ggsci)
library(ggthemes)
library(ggh4x)

df <- data.frame(x=c(0,0,0.3,0.8,1.5,3,5,7,9,13,15,20,28),
                 y=c(0,0,0.3,0.8,1.5,3,5,7,9,13,15,20,28))
df$Method <- "Pearson"
df$ID <- "A"

Plot <-  ggplot(df, aes(x=x, y=y)) + 
  geom_point(size=.8) + 
  theme_hc() +
  theme(strip.background = element_rect(colour = "black", fill = "white", 
                                        size = 1.5, linetype = "solid"),
        axis.title.x =element_blank(),
        axis.title.y =element_blank(),
        axis.text.x = element_text(angle = 0, hjust = 0.5,size = 10.5, face="bold"),
        axis.text.y = element_text(angle = 0, hjust = 0.5,size = 10.5),
        strip.text.x = element_text(size = 9),
        strip.text.y = element_text(size = 13),
        axis.line = element_line(),
        panel.grid.major= element_blank(),
        panel.grid.minor = element_blank(),
        legend.text=element_text(size=9),
        legend.title = element_text(size=10,face="bold"),
        legend.key=element_blank(),
        legend.justification = c(0.5,0),
        legend.position = "right",
        panel.border = element_blank(),
        strip.placement = "outside",
        plot.title = element_text(size = 16, hjust = 0.5),
        strip.switch.pad.grid = unit('0.1', "cm")) + 
  labs(x= '\nTime delay (modifiable device)',y=expression(R^{2})) +
  guides(color=guide_legend(override.aes=list(fill=NA))) +
  scale_y_continuous(limits = c(0., 30), breaks = c(5, 15,25)) +
  facet_wrap(Method~ID) +
  scale_color_jco() 

Plot

我想将 A 标签放在绘图的左侧？有人知道怎么做吗？

谢谢

Answer 1

很抱歉删除了大部分绘图代码，但以下内容抓住了本质并且需要更少的附加包。

facet_wrap() 只在绘图的一侧放置条带。如果需要两侧带条，可以使用facet_grid()。要将条带放在左侧，您可以使用 switch = 'y' 参数。

library(ggplot2)

df <- data.frame(x=c(0,0,0.3,0.8,1.5,3,5,7,9,13,15,20,28),
                 y=c(0,0,0.3,0.8,1.5,3,5,7,9,13,15,20,28))
df$Method <- "Pearson"
df$ID <- "A"

ggplot(df, aes(x=x, y=y)) + 
  geom_point(size=.8) + 
  facet_grid(Method~ID, switch = 'y')

如何更改 facet_nested 标签之一的位置？

How to change the position of one of the facet_nested labels?

r

ggplot2

facet