Question

我有一个数据框架, 看起来像这个, 有两个关键列, 然后计算出三个不同类型的东西。

  Year Month Urban Suburban Rural
1    1     1    11       12    13
2    1     2    21       22    23

我想扩展每一行, 以便它将类型列成一个因数, 然后将数字排成一个因数, 类似 :

  Year Month     Type Number
1    1     1    Urban     11
2    1     1 Suburban     12
3    1     1    Rural     13
4    1     2    Urban     21
5    1     2 Suburban     22
6    1     2    Rural     23

是否有一个函数可以无痛地做这种事情?

Answer 1

这正是 reshape 和 reshape2 包的设计目的:

require(reshape2)
x <- read.table(text = "Year Month Urban Suburban Rural
1    1     1    11       12    13
2    1     2    21       22    23")

#Specify the variables that are your ID variables. The others will form your "long" data
x.m <- melt(x, id.vars = c("Year", "Month"))
#-----  
Year Month variable value
1    1     1    Urban    11
2    1     2    Urban    21
3    1     1 Suburban    12
...

"中有一篇论文,这是一个很好的开始。

Answer 2

dat <- read.table(text=" Year Month Urban Suburban Rural
 1    1     1    11       12    13
 2    1     2    21       22    23
 ", header=TRUE)

reshape(dat, direction="long", idvar=1:2, varying=names(dat)[3:5], times=names(dat)[3:5], v.names="Number", timevar="Type")
             Year Month     Type Number
1.1.Urban       1     1    Urban     11
1.2.Urban       1     2    Urban     21
1.1.Suburban    1     1 Suburban     12
1.2.Suburban    1     2 Suburban     22
1.1.Rural       1     1    Rural     13
1.2.Rural       1     2    Rural     23

(注意 reshape 函数在标准包件组中,而不是在重塑或重塑2 包件组中。 )

友情链接