搜索
人大经济论坛 附件下载

附件下载

所在主题:
文件名:  t1.txt
资料下载链接地址: https://bbs.pinggu.org/a-1373904.html
附件大小:
845.38 KB   举报本内容
  1. t1<-read.csv('t1.csv')
  2. library(reshape)
  3. temp1<-melt(t1,id=c('year','Bdcd'))
  4. temp2<-cast(temp1,year+Bdcd~variable,mean)
  5. str(temp2)
  6. fix(temp2)
  7. temp3<-melt(temp2,id=c("year"))
  8. temp4<-cast(temp3,year~variable,c(mean,median,sd),na.rm=T)
复制代码

str(t1)
'data.frame': 45846 obs. of3 variables:
$ year: int2008 2008 2008 2008 2008 2008 2008 2008 2008 2008 ...
$ Bdcd: int112001 112001 112001 112001 112001 112001 112001 112001 112001 112001 ...
$ age : num0.589 0.597 0.6 0.603 0.605 0.608 0.616 0.619 0.622 0.625 ...
> temp1<-melt(t1,id=c('year','Bdcd'))
> temp2<-cast(temp1,year+Bdcd~variable,mean,na.rm=T)
> str(temp2)
List of 3
$ year: int [1:618] 2007 2007 2008 2008 2008 2008 2008 2008 2008 2008 ...
$ Bdcd: int [1:618] 122000 122001 112001 112002 112003 112004 112005 112006 122000 122001 ...
$ age : num [1:618] 0.1569 0.0807 0.4268 0.3747 0.227 ...
- attr(*, "row.names")= int [1:618] 1 2 3 4 5 6 7 8 9 10 ...
- attr(*, "idvars")= chr [1:2] "year" "Bdcd"
- attr(*, "rdimnames")=List of 2
..$ :'data.frame': 618 obs. of2 variables:
.. ..$ year: int [1:618] 2007 2007 2008 2008 2008 2008 2008 2008 2008 2008 ...
.. ..$ Bdcd: int [1:618] 122000 122001 112001 112002 112003 112004 112005 112006 122000 122001 ...
..$ :'data.frame': 1 obs. of1 variable:
.. ..$ variable: Factor w/ 1 level "age": 1
> fix(temp2)
> str(temp2)
'data.frame': 618 obs. of3 variables:
$ year: num2007 2007 2008 2008 2008 ...
$ Bdcd: num122000 122001 112001 112002 112003 ...
$ age : num0.1569 0.0807 0.4268 0.3747 0.227 ...
为什么fix前后temp2的结构会发生变化,cast函数有没有错?


    熟悉论坛请点击新手指南
下载说明
1、论坛支持迅雷和网际快车等p2p多线程软件下载,请在上面选择下载通道单击右健下载即可。
2、论坛会定期自动批量更新下载地址,所以请不要浪费时间盗链论坛资源,盗链地址会很快失效。
3、本站为非盈利性质的学术交流网站,鼓励和保护原创作品,拒绝未经版权人许可的上传行为。本站如接到版权人发出的合格侵权通知,将积极的采取必要措施;同时,本站也将在技术手段和能力范围内,履行版权保护的注意义务。
(如有侵权,欢迎举报)
二维码

扫码加我 拉你入群

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

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

GMT+8, 2026-1-1 19:41