如何在R中設置ggplot2中y軸刻度標籤的寬度？

Question

我想左對齊g中的ggplot2圖形的垂直陣列中的繪圖面板。y軸刻度標籤的最大寬度因圖形而異，因此打破了此對齊方式，如下面的代碼示例所示。

我已經嘗試過各種情節，面板和axis.text保證金選項沒有成功，並且一直未能找到控制y軸刻度標籤寬度的選項。

引導讚賞。

#install.packages(c("ggplot2", "gridExtra", "reshape2"), dependencies = TRUE) 
require(ggplot2) 
require(gridExtra) 
require(reshape2) 

v <- 1:5 
data1 <- data.frame(x=v, y=v) 
data2 <- data.frame(x=v, y=1000*v) 
plot1 <- ggplot(data=melt(data1, id='x'), mapping=aes_string(x='x', y='value')) + geom_line() 
plot2 <- ggplot(data=melt(data2, id='x'), mapping=aes_string(x='x', y='value')) + geom_line() 
grid.arrange(plot1, plot2, ncol=1) 

Answer 1

您可以使用功能plot_grid()從庫cowplot對準地塊

# install.packages(c("ggplot2", "cowplot", "reshape2"), dependencies = TRUE) 
library(cowplot) 
plot_grid(plot1,plot2,ncol=1,align="v") 

Answer 2

將這個東西我喜歡你的工作：

data1$Data <- "data1" 
data2$Data <- "data2" 
data3 <- rbind(data1, data2) 
ggplot(data=data3, aes(x=x, y=y)) + geom_line() + facet_grid(Data~., scales = "free_y") 

Answer 3

這樣嗎？ （下面的代碼）

# install.packages(c("ggplot2", "gridExtra", "reshape2"), dependencies = TRUE) 
require(ggplot2) 
require(gridExtra) 
require(reshape2) 

v <- 1:5 
data1 <- data.frame(x=v, y=v) 
data2 <- data.frame(x=v, y=1000*v) 
plot1 <- ggplot(data=melt(data1, id='x'), mapping=aes_string(x='x', y='value')) + geom_line() + scale_y_continuous(breaks=NULL) 
plot2 <- ggplot(data=melt(data2, id='x'), mapping=aes_string(x='x', y='value')) + geom_line() + scale_y_continuous(breaks=c(1000,2000)) 
grid.arrange(plot1, plot2, ncol=1)