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)<-list(c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户"),c("2008年","2009年"))
matrix1_1
1.2
a<-c(北京市,天津市,河北省,山西省,内蒙古自治区,辽宁省,吉林省,黑龙江省,上海市,江苏省,浙江省,安徽省,福建省,江西省,山东省,河南省,湖北省,湖南省,广东省,广西壮族自治区,海南省,重庆市,四川省,贵州省,云南省,西藏自治区,陕西省,甘肃省,青海省,宁夏自治区,新疆维吾尔自治区)
b<-c(21330.83,15726.93,29421.15,12761.49,17770.19,28626.58,13803.14,15039.38,23567.70,65088.32,40173.03,20848.75,24055.76,15714.63,59426.59,34938.24,27379.22,27037.32,67809.85,15672.89,3500.72,14262.60,28536.66,9266.39,12814.59,920.83,17689.94,6836.82,2303.32,2752.10,9273.46)
table_1<-data.frame("地区"=a,"地区生产总值"=b）
table_1
newdata<-table_1[order(table_1$地区生产总值,decreasing=FALSE),]
newdata
newdata<-table_1[order(table_1$地区生产总值,decreasing=TRUE),]
newdata
library(reshape)
rename(table_1,c(地区生产总值="GDP"))
table_1
sample(table_1$地区,6,replace=TRUE)#有放回
sample(table_1$地区,6,replace=FALSE)#无放回
sample(table_1$地区[table_1$GDP<20000])#小于2万
sample(table_1$地区[table_1$GDP>50000])#大于5万
1.3
a<-rnorm(20)
a
matrix1_1<-matrix(data=a,nrow=4,ncol=5)
dimnames(matrix1_1)<-list(c(1,2,3,4),c(1,2,3,4,5))
matrix1_1
matrix1_1<-matrix(data=a,nrow=5,ncol=4)
dimnames(matrix1_1)<-list(c(1,2,3,4,5),c(1,2,3,4))
matrix1_1
