R怎么能把wide的数据变成long的数据【已经解决】

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

如下面的数据是wide数据
wide <- data.frame(id  = rep(1:8),
                 x1990 = rnorm(4), x2000 = rnorm(4),
                 y1990 = runif(4), y2000 = rnorm(4),
                 age=runif(4))
wide

> wide
  id      x1990      x2000     y1990      y2000       age
1  1 -0.3391266  0.2116209 0.9651395  0.5107261 0.6414690
2  2  0.6105478 -0.8521457 0.2798804  0.7340399 0.4104719
3  3 -0.8593098  1.2534132 0.5698498 -0.7069206 0.7748600
4  4  1.2901323 -0.5807881 0.3347142  0.2247963 0.9009608
5  5 -0.3391266  0.2116209 0.9651395  0.5107261 0.6414690
6  6  0.6105478 -0.8521457 0.2798804  0.7340399 0.4104719
7  7 -0.8593098  1.2534132 0.5698498 -0.7069206 0.7748600
8  8  1.2901323 -0.5807881 0.3347142  0.2247963 0.9009608


如何变成long格式数据
id  year   x  y  age
1  1990
1  2000

2  1990
2  2000

[size=13.63636302948px]

[size=13.63636302948px]

[size=13.63636302948px]

谢谢

解决方法

1. rm(list=ls())
   
2. 
   
3. wide <- data.frame(id  = rep(1:8),
   
4.                    x1990 = round(rnorm(4),2),
   
5.                    x2000 = round(rnorm(4),2),
   
6.                    y1990 = round(runif(4),2),
   
7.                    y2000 = round(runif(4),2),
   
8.                    age=seq(from = 35, to = 70, by = 5))
   
9. wide
   
10. 
    
11. long <- reshape(wide, idvar = "id",
    
12.                 varying = c("x1990", "x2000", "y1990", "y2000"),
    
13.                 timevar = "year",
    
14.                 times = c(1990, 2000),
    
15.                 v.names = c("x", "y"),
    
16.                 direction = "long")
    
17. long

复制代码

不过显然R这个的不如stata的reshape方便

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：long 已经解决 wide IDE wid

tidy保就是干这个的。

tidyr包。

使用reshape 包

1. library(reshape)
   
2. data1<-melt(wide,id=c("id","age"))
   
3. data1$xory<-substr(data1$variable,1,1)
   
4. data1$year<-as.numeric(substr(data1$variable,2,5))
   
5. data1$variable<-NULL
   
6. cast(data1,id+age+year~xory)

复制代码

Nicolle 发表于 2015-2-17 03:54

谢谢，我研究研究

jiangbeilu 发表于 2015-2-16 21:40
使用reshape 包

谢谢，学习一下

jiangbeilu 发表于 2015-2-16 21:40
使用reshape 包

谢谢，学习一下

soccy 发表于 2015-2-16 20:00
tidy保就是干这个的。

谢谢提示

soccy 发表于 2015-2-16 20:00
tidy保就是干这个的。

谢谢提示