我想將每個標簽的位置更改為每個圖形的底部和居中部分，可以嗎？
library(ggplot2)
library(cowplot)
df <- data.frame(
x = 1:10, y1 = 1:10, y2 = (1:10)^2, y3 = (1:10)^3, y4 = (1:10)^4
????
p1 <- ggplot(df, aes(x, y1)) geom_point()
p2 <- ggplot(df, aes(x, y2)) geom_point()
p3 <- ggplot(df, aes(x, y3)) geom_point()
p4 <- ggplot(df, aes(x, y4)) geom_point()
# Create a simple grid
p <- plot_grid(p1, p2, p3, p4, align = 'hv')
# Default font size and position
p draw_figure_label(label = "Figure 1")
我想為每個數字貼上標簽：
(a)圖1 (b)圖2 (c)圖3 (d)圖4
但是，我希望標簽位于每個圖形的底部。這是可能的 ？
uj5u.com熱心網友回復：
問題是draw_figure_label在整個網格上繪制單個標簽，而不是在每個圖上繪制標簽。您最好為每個圖添加一個標題以獲得相同的效果：
p <- Map(function(a, b) {
a
labs(caption = b)
theme(plot.caption.position = 'panel',
plot.caption = element_text(hjust = 0.5, size = 12, face = 2,
margin = margin(10, 0, 30, 0)))
},
a = list(p1, p2, p3, p4),
b = list('(a) Figure 1', '(b) Figure 2', '(c) Figure 3', '(d) Figure 4'))
現在重新創建您的網格：
plot_grid(p[[1]], p[[2]], p[[3]], p[[4]], align = 'hv')
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/537771.html
標籤：r图表2阴谋