Slopegraph of African GDP in R

jerven_fig1.R

library(dplyr)
library(ggplot2)
library(directlabels)

raw <- read.csv("Jerven_Table1.csv", encoding = "UTF-8")

mad <- raw[, 1:2]
names(mad) <- c("Country", 'Per.Capita.GDP')
mad$group <- "Maddison"
wdi <- raw[, 3:4]
names(wdi) <- c("Country", 'Per.Capita.GDP')
wdi$group <- "World Development Indicators"
pwt <- raw[, 5:6]
names(pwt) <- c("Country", 'Per.Capita.GDP')
pwt$group <- "Penn World Tables"

forplot <- dplyr::bind_rows(mad, wdi, pwt)

ggplot(forplot, aes(x = group, y = Per.Capita.GDP, group = Country, colour = Country)) + 
  geom_line(size=2) +
  scale_colour_discrete(guide = 'none') +
  scale_x_discrete(expand=c(0, 1)) +
  geom_dl(aes(label = Country), method = list(dl.combine("first.points", "last.points"),
                                              cex = 1.5)) + theme_bw() +
  theme(axis.text=element_text(size=12),
        axis.title=element_text(size=14,face="bold")) + ylab("Per Capita GDP") +
  ggtitle("African Economies ranked by per capita GDP (in international USD)")
ggsave("AfricanEconomiesbyGDP.png")

#log transformed
ggplot(forplot, aes(x = group, y = log10(Per.Capita.GDP), group = Country, colour = Country)) + 
  geom_line(size=2) +
  scale_colour_discrete(guide = 'none') +
  scale_x_discrete(expand=c(0, 1)) +
  geom_dl(aes(label = Country), method = list(dl.combine("first.points", "last.points"),
                                              cex = 1.5)) + theme_bw() +
  theme(axis.text=element_text(size=12),
        axis.title=element_text(size=14,face="bold")) + ylab("log10(Per Capita GDP)")+
  ggtitle("African Economies ranked by per capita GDP (in international USD)")
ggsave("AfricanEconomiesbyGDP_logscaled.png")

Jerven_Table1.csv