3 回答

TA貢獻(xiàn)1866條經(jīng)驗(yàn) 獲得超5個贊
使用重塑包:
#data
x <- read.table(textConnection(
"Code Country 1950 1951 1952 1953 1954
AFG Afghanistan 20,249 21,352 22,532 23,557 24,555
ALB Albania 8,097 8,986 10,058 11,123 12,246"), header=TRUE)
library(reshape)
x2 <- melt(x, id = c("Code", "Country"), variable_name = "Year")
x2[,"Year"] <- as.numeric(gsub("X", "" , x2[,"Year"]))

TA貢獻(xiàn)1871條經(jīng)驗(yàn) 獲得超8個贊
reshape()需要一段時間才能習(xí)慣,就像melt/ cast。假設(shè)您的數(shù)據(jù)框被調(diào)用,這是一個重塑的解決方案d:
reshape(d, direction = "long", varying = list(names(d)[3:7]), v.names = "Value",
idvar = c("Code","Country"), timevar = "Year", times = 1950:1954)
- 3 回答
- 0 關(guān)注
- 959 瀏覽
添加回答
舉報