alpha <- data2[1:63,]
alpha
alpha$Population_2017
library(ggplot2)
alpha$Population_2017 <- as.numeric(alpha$Population_2017)
alpha$Population_2001 <- as.numeric(alpha$Population_2001)
chart <- ggplot( data = alpha, aes(x = `Gini_coefficient_2016`, y = `GVA_per_worker_2017__£`, color=`Region`, size = Population_2017))
chart + geom_point(aes(x=`Population_2001`)) + xlab("Population_2001")
Here is my code. Not sure why the legends and scale show scientific numbers.
