R: save_plot: как убрать пробел внизу рисунка - PullRequest
Новая
       31

R: save_plot: как убрать пробел внизу рисунка

1 голос
/ 04 октября 2019

Я использовал функцию save_plot в пакете 'cowplot' для нескольких графиков. Однако я не могу убрать большое пространство внизу рисунков. Пожалуйста, кто-нибудь может посоветовать, как это сделать? Спасибо 

  library(ggthemes) 
  library(cowplot)
  theme_set(theme_gray()) 
  rft <- gpdRangeFit(DatMaxSub$DatMax,umin=2,umax=4)
  p1<-ggplot(rft)
  m <- mrl(DatMaxSub$DatMax)
  p2<- ggplot(m)
  p12 <- plot_grid(p1[[1]],p1[[2]], p2, labels = NULL,nrows=3,ncol=1,align = 'v',
                   axis="b",scale=1)
  save_plot(paste('04_Thres_',parname,'.png'), p12,nrow = 3,ncol=1,base_height=3, 
            base_aspect_ratio = 2) # make room for figure legend
  dev.off()

Пример фигуры с большим количеством места

...