grid.arrange

Question

ile birleştirilen iki ggplots arasındaki tüm boşluğu kaldırma Temanın arasına boşluk bırakmadan iki grafik çizmek istiyorum (böylece bir eksen paylaşırlar).

Verilen:

p1 <- qplot(1,1,xlab="") 

p1 <- p1 + 
    theme(legend.position="none", 
     axis.text.x=element_blank(), 
     axis.ticks.x=element_blank(), 
     plot.margin=unit(c(1,1,0,1), "cm"), 
     panel.margin=unit(c(1,1,0,1), "cm")) 
p2 <- qplot(1,2) 

grid.arrange(p1,p2) 

üretir Hangi:

iki araziler arasında boşluk ortadan kaldırmak istiyoruz.

left align two graph edges (ggplot)'un genişlikleri için yapıldığı gibi, ince ayar yükseklikleri var ancak çözüm bulamıyor.

Answer 1

Her iki grafik için de plot.margin belirtmeli ve p1 için alt kenar boşluğu ve p2 için üst kenar boşluğu için negatif değer belirtmelisiniz. Bu, her iki arsaya katılmasını sağlayacaktır.

p1 <- qplot(1,1,xlab="")+ 
    theme(legend.position="none", 
     axis.text.x=element_blank(), 
     axis.ticks.x=element_blank(), 
     plot.margin=unit(c(1,1,-0.5,1), "cm")) 
p2 <- qplot(1,2)+ 
    theme(legend.position="none", 
     plot.margin=unit(c(-0.5,1,1,1), "cm")) 


grid.arrange(p1,p2) 

Answer 2

grid.arrange

kullanmadan önce alanlara (p1, p2) etrafında sola ve alt kenar boşluklarını kaldırmak için

+ labs(x=NULL) 

VEYA

+ labs(x=NULL, y=NULL) 

deneyin

p1 <- qplot(1,1)+ 
theme_bw() + 
theme(axis.text.x=element_blank(), 
axis.ticks.x=element_blank(), 
plot.margin = rep(unit(0,"null"),4), 
panel.margin = unit(0,"null"), 
axis.ticks.length = unit(0,"null"), 
axis.ticks.margin = unit(0,"null")) + 
labs(x=NULL) 
p2 <- qplot(1,2)+ 
theme_bw() + 
theme(
plot.margin = rep(unit(0,"null"),4), 
panel.margin = unit(0,"null"), 
axis.ticks.length = unit(0,"null"), 
axis.ticks.margin = unit(0,"null")) 

grid.arrange(p1,p2)