gistfile1.txt

child_mortality <- gs_key("0ArfEDsV3bBwCcGhBd2NOQVZ1eWowNVpSNjl1c3lRSWc",lookup = FALSE,  verbose=FALSE) %>% gs_read(ws = "Data", check.names=FALSE)
## Accessing worksheet titled "Data"

democracy_score <- gs_key("0ArfEDsV3bBwCdGQ2YlhDSWVIdXdpMmhLY2ZZRHdNNnc",lookup = FALSE,  verbose=FALSE) %>% gs_read(ws = "Data", check.names=FALSE)
## Accessing worksheet titled "Data"

life_expectancy  <- gs_key("tiAiXcrneZrUnnJ9dBU-PAw",lookup = FALSE,  verbose=FALSE) %>% gs_read(ws = "Data", check.names=FALSE)
## Accessing worksheet titled "Data"

population <- gs_key("phAwcNAVuyj0XOoBL_n5tAQ",lookup = FALSE,  verbose=FALSE) %>% gs_read(ws = "Data", check.names=FALSE)
## Accessing worksheet titled "Data"

colnames(child_mortality)[1]
## [1] "Under five mortality"

# I tried to figure a way to change column names on multiple data frames at once, but was unable to get the right syntax.
colnames(democracy_score)[1] <- c("Country")
colnames(gdp_per_capita)[1] <- c("Country")
colnames(child_mortality)[1] <- c("Country")
colnames(life_expectancy)[1] <- c("Country")
colnames(population)[1] <- c("Country")