r - 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

我不知道 waffle 返回一个 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)
})