Category : ggplot2

# Geslacht gsl <- ggplot(data = df_wwg, aes(ymax=df_wwg$ymax, ymin=df_wwg$ymin, xmax=4, xmin=3, fill=df_wwg$geslacht)) + theme_sb() + geom_rect() + coord_polar("y", start=0, direction=-1) + theme(panel.grid.major.y = element_blank(), legend.direction = "vertical", legend.position=c(0.075,0.075), rect = element_rect(fill = "transparent")) + guides(color=guide_legend(label.position = ‘right’),fill=FALSE) # Leeftijd lft <- ggplot(data = df_wwl, aes(ymax=df_wwl$ymax, ymin=df_wwl$ymin, xmax=4, xmin=3, fill=df_wwl$leeftijd)) + theme_sb() + geom_rect() + coord_polar("y", ..

Read more