我有一个华夫图,看起来像这样:
使用以下代码:
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)
})
但是它是非常小的,特别是传说。如何增加大小?
发布于 2017-12-17 18:37:10
我不知道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)
})
https://stackoverflow.com/questions/47839343
复制相似问题