World gdp growth rates by region

CountriesGates.csv

growth.r

data <- read.csv("countriesGates.csv")
data$Country <- factor(data$Country, levels = data$Country)

#make a simple graph
  ggplot(data, aes(x=Country, y=randomC, color=Continent,group = Continent)) +
  geom_bar(stat="identity")

#more complicated picture
  ggplot(data, aes(x=Country, y=randomC, color=Continent,group = Continent)) +
  geom_bar(stat="identity") + coord_polar(theta = "x")

#

sequence_length = length(unique(small$Country))
first_sequence = c(1:(sequence_length%/%2)) 
second_sequence = c((sequence_length%/%2+1):sequence_length) 
first_angles =c(90 - 180/length(first_sequence) * first_sequence)
second_angles = c(-90 - 180/length(second_sequence) * second_sequence)



p<-ggplot(small, aes(x=bothG, y=Growth.Rate.., fill=Continent,group = Continent)) +
    geom_bar(stat="identity") + coord_polar()+ 
  theme(plot.caption = element_text(hjust=0.5,vjust=-0.5, size=rel(6)),
        axis.text.y=element_blank(),axis.ticks=element_blank(),
          axis.title.x=element_blank(),
          axis.title.y=element_blank(),legend.position="none",
          panel.background=element_blank(),panel.border=element_blank(),panel.grid.major=element_blank(),
          panel.grid.minor=element_blank(),plot.background=element_blank(),
        axis.text.x=element_text(angle= c(second_angles),size=15),
        plot.margin=unit(c(1,1,1.5,1.2),"cm")
        )

p <- p +
        annotate("text", x = 18, y = 3.3, 
                 label = "Africa", size=10, colour="red",alpha = .9) 

p <- p +
        annotate("text", x = 52, y = 3, 
                 label = "Asia", size=10, colour="#ffdb58",alpha = .99) 

p <- p +
        annotate("text", x = 95, y = 3, 
                 label = "Europe", size=10, colour="green",alpha = .9)

p <- p +
        annotate("text", x = 105
                 , y = 3, 
                 label = "N. America", size=10, colour="#00CED1",alpha = .99)

p <- p +        annotate("text", x = 120, y = 3, 
                 label = "Oceania", size=10, colour="darkblue",alpha = .9)

p <- p +
        annotate("text", x = 125, y = 3, 
                 label = "S. America", size=10, colour="purple",alpha = .9)
p <- p +
      scale_fill_manual(values = alpha(c("green", "red", "darkblue", "yellow","pink","purple"), .3),aesthetics = "colour")
#p<-p + ggtitle("Population Growth", size=12)
p <- p + labs(caption = "Population Growth Rate")
ggsave('GrowthMore4Mil.png', width=20, height=20)

I saw this graph Bill Gates posted and I wanted to create something similar https://www.reddit.com/r/Infographics/comments/aulqu1/africa_is_the_youngest_continent/?sort=old

Data from Countries and Continents from https://www.worldatlas.com/cntycont.htm (which does not contain Palestine and Taiwan) Growth rates from http://worldpopulationreview.com/countries/

This graph only contains countries of size more than than 4 million. 121 countries of this size or 194 in total. So the graph is much clearer only looking at larger countries.

R package GGplot2 code. From various dplyr hacking the two datasets get combined to look like. I can do a full write up of the steps if people want it.

Country Continent Growth.Rate bothG

...

Algeria AFRICA 1.60 Algeria 1.6 2

Angola AFRICA 3.29 Angola 3.29

Benin AFRICA 2.75 Benin 2.75