1.1 names<-c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户") a<-c(1500,2935,4203,5929,11290) b<-c(1549,3110,4502,6468,12319) f<-data.frame("指标"=names,"2008年"=a,"2009年"=b) f save(f,file="F:/R/f.RData") matrix1_1<-matrix(cbind(a,b),ncol=2) dimnames(matrix1_1