creo que es lo que estas buscando
library(reshape2)
lista <- rep(list(NA),4)
lista.melt <- rep(list(NA),4)
for(i in 1:4){
lista[[i]] <- data.frame(`Country Name` = c("Aruba","Afganistán","Angola","Albania","Andorra",
"El mundo árabe","Emiratos Árabes Unidos","Argentina","Armenia","Samoa Americana"),
`1960` = rnorm(n = 10, mean = 45, sd = 35),
`1961` = rnorm(n = 10, mean = 45, sd = 35),
`1962` = rnorm(n = 10, mean = 45, sd = 35),
`1963` = rnorm(n = 10, mean = 45, sd = 35),
`1964` = rnorm(n = 10, mean = 45, sd = 35),
`1965` = rnorm(n = 10, mean = 45, sd = 35),
`1966` = rnorm(n = 10, mean = 45, sd = 35),
`1967` = rnorm(n = 10, mean = 45, sd = 35),
`1968` = rnorm(n = 10, mean = 45, sd = 35),
`1969` = rnorm(n = 10, mean = 45, sd = 35),
`1970` = rnorm(n = 10, mean = 45, sd = 35),
check.names = F)
}
for(i in 1:4) lista.melt[[i]] <- melt(data = lista[[i]], id = "Country Name")
lista.melt
str(lista[[1]]
a tu pregunta?