ggplot增加华夫饼图的大小

Question

我有一张华夫饼图，看起来像这样：

使用此代码：

output$DS47<- renderPlot({
plot_tab6<-waffle(DS27$Prozent, rows=11)
  mydata <- c('Auslandsstudium'=57, 'Auslandspraktikum'=  30, 
              'Sprachkurs'=5, 'Studienreise'=11, 'Sonstige'=14 )
  plot_tab6 <- waffle(mydata, title = "lalalalal")
  return(plot_tab6)
})

然而它非常小，特别是传说。我怎样才能增加尺寸？

Answer 1

我不知道华夫饼会返回一个ggplot对象。我使用这段代码解决了这个问题：

output$DS47<- renderPlot({
  mydata <- c('Auslandsstudium'=57, 'Auslandspraktikum'=  30, 'Sprachkurs'=5, 'Studienreise'=11, 'Sonstige'=14 )
  plot_tab6 <- waffle(mydata) +
    ggtitle("lalalala ?")+
    theme(plot.title = element_text(hjust = 0.5,size = 27, face = "bold", colour = "darkred"),
                              legend.text = element_text(size = 15))
  return(plot_tab6)
})