亚洲在线久爱草,狠狠天天香蕉网,天天搞日日干久草,伊人亚洲日本欧美

為了賬號安全,請及時綁定郵箱和手機立即綁定
已解決430363個問題,去搜搜看,總會有你想問的

左對齊兩個圖形邊

左對齊兩個圖形邊

拉莫斯之舞 2019-06-15 10:24:23
左對齊兩個圖形邊我正在使用ggkett,并有兩個圖形,我想顯示在彼此之上。我用grid.arrange從gridExtra到堆棧。問題是,我希望圖的左邊對齊,以及右邊,而不考慮軸標簽。(問題的出現是因為一個圖的標簽是短的,而另一個是長的)。問題:我該怎么做?我不是和格雷斯結婚的。安排一下,但這是必須的。我試過的是:我試著玩寬度和高度,以及NCOL和NROW,形成一個2×2的網格,把視覺效果放置在相對的角落,然后玩寬度,但我無法在對面的角落獲得視覺效果。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貢獻1869條經驗 獲得超4個贊

嘗嘗這個,

 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.gtable包括在gridExtra

gA <- ggplotGrob(A)gB <- ggplotGrob(B)grid::grid.newpage()grid::grid.draw(rbind(gA, gB))


查看完整回答
反對 回復 2019-06-15
  • 3 回答
  • 0 關注
  • 679 瀏覽

添加回答

舉報

0/150
提交
取消
微信客服

購課補貼
聯系客服咨詢優惠詳情

幫助反饋 APP下載

慕課網APP
您的移動學習伙伴

公眾號

掃描二維碼
關注慕課網微信公眾號