- genre_num <- c(36, 9, 9, 6, 6, 6, 19, 8, 1)
- p_pie <- ggplot(data = df, mapping = aes(x = "", y = genre_num, fill = genre_type)) +
- geom_bar(stat = 'identity', position = 'stack', width = 1) +
- labs(x = '', y = '') +
- scale_fill_discrete(name="Genre") +
- coord_polar(theta = 'y', direction = 1) +
- theme(axis.text = element_blank(), axis.ticks = element_blank())