grid.arrange 함수와 결합 된 몇 개의 ggplots와 동일한 너비

Question

ggplot의 너비를 설정하는 방법이 있습니까?

하나의 열에 세 개의 시간 표시를 결합하려고합니다. y 축 값 때문에 플롯의 폭이 다릅니다 (두 개의 플롯은 범위 (-20, 50), 하나 (18 000, 25 000) - 플롯을 더 얇게 만듭니다). 모든 플롯을 정확히 같은 폭으로 만들고 싶습니다.

plot1<-ggplot(DATA1, aes(x=Date,y=Load))+ 
    geom_line()+ 
    ylab("Load [MWh]") + 
    scale_x_date(labels = date_format("%m/%y"),breaks = date_breaks("months"))+ 
    theme_minimal()+ 
    theme(panel.background=element_rect(fill = "white")) 
plot2<-ggplot(DATA1, aes(x=Date,y=Temperature))+ 
    geom_line()+ 
    ylab("Temperature [C]") + 
    scale_x_date(labels = date_format("%m/%y"),breaks = date_breaks("months"))+ 
    theme_minimal()+ 
    theme(panel.background=element_rect(fill = "white")) 
plot3<-ggplot(DATA1, aes(x=Date,y=WindSpeed))+ 
    geom_line()+ 
    ylab("Wind Speed [km/h]") + 
    scale_x_date(labels = date_format("%m/%y"),breaks = date_breaks("months"))+ 
    theme_minimal()+ 
    theme(panel.background=element_rect(fill = "white")) 
grid.arrange(plot1, plot2, plot3, nrow=3) 

결합 줄거리는 다음과 같습니다 : 당신은 단순히 이것에 대한 facetting을 사용할 수 있습니다

Answer 1

. 먼저 일부 데이터 munging을 할 필요가 :

library(tidyr) 

new_data = gather(DATA1, variable, value, Load, Temperature, WindSpeed) 

이 하나의 큰 열 (value)에 Load, Temperature 및 Windspeed의 모든 데이터를 수집합니다. 또한 벡터의 어느 값이 어떤 변수에 속하는지를 지정하는 추가 열이 생성됩니다 (variable). 모든 무거운의

ggplot(new_data) + geom_line(aes(x = Date, y = value)) + 
    facet_wrap(~ variable, scales = 'free_y', ncol = 1) 

이제 ggplot2 소요됩니다주의 :

그 후에는 데이터를 플롯 할 수 있습니다.

ps 질문이 reproducible 인 경우 제 응답을 재현 할 수 있습니다.