题目如图所示
index<-c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户")
year08<-c(1500,2935,4203,5929,11290)
year09<-c(1545,3110,4502,6468,12319)
year10<-c(1870,3621,5222,7441,14050)
year11<-c(2001,4256,6208,8894,16783)
year12<-c(2316,4808,7041,10142,19009)
table1_1<-data.frame(index,year08,year09,year10,year11,year12)
library(reshape)
rename(table1_1,c(index="指标",year08="2008年",year09="2009年",year10="2010年",year11="2011年",year12="2012年"))
matrix1_1<-matrix(cbind(year08,year09,year10,year11,year12),ncol=5)
dimnames(matrix1_1)<-list(c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户"),c("2008年","2009年","2010年","2011年","2012年"))
matrix1_1
因为不能直接命名变量为数字，所以需要使用rename函数，先下载reshape包，可能是因为rename是这个包中的吧。
