左對(duì)齊兩個(gè)圖形邊我正在使用ggkett，并有兩個(gè)圖形，我想顯示在彼此之上。我用grid.arrange從gridExtra到堆棧。問題是，我希望圖的左邊對(duì)齊，以及右邊，而不考慮軸標(biāo)簽。(問題的出現(xiàn)是因?yàn)橐粋€(gè)圖的標(biāo)簽是短的，而另一個(gè)是長(zhǎng)的)。問題：我該怎么做？我不是和格雷斯結(jié)婚的。安排一下，但這是必須的。我試過的是：我試著玩寬度和高度，以及NCOL和NROW，形成一個(gè)2×2的網(wǎng)格，把視覺效果放置在相對(duì)的角落，然后玩寬度，但我無法在對(duì)面的角落獲得視覺效果。require(ggplot2);require(gridExtra)A <- ggplot(CO2, aes(x=Plant)) + geom_bar() +coord_flip() B
<- ggplot(CO2, aes(x=Type)) + geom_bar() +coord_flip() grid.arrange(A, B, ncol=1)
3 回答
MMTTMM
TA貢獻(xiàn)1869條經(jīng)驗(yàn) 獲得超4個(gè)贊
gA <- ggplotGrob(A) gB <- ggplotGrob(B) maxWidth = grid::unit.pmax(gA$widths[2:5], gB$widths[2:5]) gA$widths[2:5] <- as.list(maxWidth) gB$widths[2:5] <- as.list(maxWidth) grid.arrange(gA, gB, ncol=1)
編輯
rbind.gtablegridExtra
gA <- ggplotGrob(A)gB <- ggplotGrob(B)grid::grid.newpage()grid::grid.draw(rbind(gA, gB))
- 3 回答
- 0 關(guān)注
- 672 瀏覽
添加回答
舉報(bào)
0/150
提交
取消