Data Science, Data Visualization, R.
ggplot(firstLevel) # Just a foundation sunburst_1 = sunburst_0 + geom_bar(data=firstLevel, aes(x=1, y=total_pop), fill='darkgrey', stat='identity') + geom_text(aes(x=1, y=sum_total_pop/2, label=paste('Egypt in 2014 had', comma(total_pop))), color='white') sunburst_1 This code produces this (dull)