Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- library(ggplot2)
- blank_theme <- theme_minimal()+
- theme(
- axis.title.x = element_blank(),
- axis.title.y = element_blank(),
- panel.border = element_blank(),
- panel.grid=element_blank(),
- axis.ticks = element_blank(),
- plot.title=element_text(size=14, face="bold")
- )
- dat = data.frame(count=c(319, 442, 239), category=c("University", "High Scool", "Lower"))
- dat$fraction = dat$count / sum(dat$count)
- dat$ymax = cumsum(dat$fraction)
- dat$ymin = c(0, head(dat$ymax, n=-1))
- dat$category <- factor(dat$category, levels = c("University", "High Scool", "Lower"))
- p1 = ggplot(dat, aes(fill=category, ymax=ymax, ymin=ymin, xmax=4, xmin=3)) +
- geom_rect(color='blue') +
- coord_polar(theta="y") +
- xlim(c(1, 4))
- edu<-p1 + scale_fill_brewer("Education") + blank_theme +
- theme(axis.text.x=element_blank()) + theme(legend.position=c(.5, .5)) + ggtitle("") +
- theme(panel.grid=element_blank()) +
- theme(axis.text=element_blank()) +
- theme(axis.ticks=element_blank()) +
- theme(legend.title = element_text(size=16, face="bold")) +
- theme(legend.text = element_text(size = 14, face = "bold"))
- edu
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement