我想在拼湊布局中的空白處放置一個圖例（所有繪圖通用）。從我在網上可以找到的內容來看，legend.position如果我也使用guides="collect"（但可以使用左、右等），我無法手動定位圖例。
我嘗試使用l <- get.legend，然后 inset_element(l, 0.6, 0.6, 1, 1)它不明白l。我也試過混進去， inset_element(gridExtra::tableGrob(l))但運氣不好。
我的目標是將圖例放在空白處。我實際拼湊的情節更復雜，但有兩個空白我希望傳說坐在其中。
MWE
library(patchwork)
library(ggplot2)
p1 <- ggplot(mtcars)
geom_point(aes(mpg, disp, color = mpg))
ggtitle('Plot 1')
p2 <- ggplot(mtcars)
geom_boxplot(aes(gear, disp, group = gear))
ggtitle('Plot 2')
p3 <- ggplot(mtcars)
geom_point(aes(hp, wt, colour = mpg))
ggtitle('Plot 3')
design <- "
1111
223#
"
p1 p2 p3 plot_layout(guides = 'collect') plot_layout(design=design, guides = "collect") &
theme(legend.position = 'right',
legend.direction = 'vertical')
uj5u.com熱心網友回復：
更改您的design物件以包含第四個元素并用于guide_area()放置指南。
library(patchwork)
library(ggplot2)
design <- "
1111
2234
"
p1 p2 p3 guide_area() plot_layout(design=design, guides = "collect")
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/440267.html