R语言录入数据保存格式转换矩阵

1047521767

R语言录入数据保存格式转换矩阵

index<-c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户")
% e' _4 ]8 J) Tyear2008<-c(1500,2935,4203,5929,11290)
) V2 H: I7 U3 H7 F- m2 r! b9 Cyear2009<-c(1549,3110,4502,6468,12319)
year2010<-c(1870,3621,5222,7441,14050)
year2011<-c(2001,4256,6208,8894,16783)
year2012<-c(2316,4808,7041,10142,19009)
6 ?) \  z0 T3 U* N  Utt<-data.frame("指标"=index,"2008年"=year2008,"2009年"=year2009,"2010年"=year2010,"2011年"=year2011,"2012年"=year2012)
tt
  ^' i4 O1 w0 {* q5 r/ h
save(tt,file="F:/统计学/实验作业/tt.RData")
load("F:/统计学/实验作业/tt.RData")
matrix1_1<-as.matrix(tt[,2:6])
rownames(matrix1_1)=tt[,1]
8 B" Z/ S( s$ f4 E; dsave(matrix1_1,file="F:/统计学/实验作业/matrix.RData")
& p; w2 T9 o- z- mmatrix1_1
基础知识：
1.为对象赋值

  E7 a- |; s$ w) N/ C- W0 Y1 _
+ G( j% u; ~4 h% y4 R2.对对象X进行各种计算和绘图
$ S8 v8 f3 _  l1 f9 L+ b
3.R包的安装和加载
查看
* }2 Q3 e, C: s6 {" p3 I9 f
9 i! Q+ L0 K5 F2 E在线安装所需包

一次安装多个包

  {- D1 R5 ~' w: S要使用包，需要用library()函数或者require()函数载入这个包
2 \/ d6 h5 r7 h4.在R中录入数据
（1）用C函数产生向量
例：names<-c(“张三”,“李四”,“王五”)

# Q$ t' n8 T' Z7 E- r（2）将向量形式的数据组织转换成数据框模式
% E  e! q9 i3 `- p2 n; x6 L例：table<-data.frame(“姓名”=names，···)
table
4 o; f; p/ L8 j, R; ?( H2 w& U7 l7 f
4 n) _( f- u- C1 A（3）将向量形式的数据转组织成矩阵

) A6 H2 S# j9 o8 x( O（4）在R中录入数据并组织成矩阵

3 u  s- M" R+ C- L# s$ `
5. 读取R数据
. U7 m* ~4 F( Gload(“load(“存储路径 /文件名字.RData”)”)
读取包含标题的csv文件
read.csv(“存储路径 /文件名字.csv”)
) _2 l! y" K3 G读取不包含标题的csv文件
$ G7 k3 T1 Z5 F8 b# L5 J' lread.csv(“存储路径 /文件名字.csv”,header=FALSE)
导入Excel数据
* F: e% k  [8 m3 q& ~9 }9 i

6 `6 |9 s5 h( T7 F4 C导入spss数据

6 |; r: @9 ?% z, I9 o6.保存数据
' A8 k& i5 d% K  `R格式
save(table,file=“存储路径 /table.RData”)
' @. a3 Z+ f; L2 Hcsv格式
4 l3 w2 x" d/ m' \write.csv(table,file=“存储路径 /table.csv”)
0 L; j! y( |. ]# n( G7 @- j7.查看数据
3 n8 L( L  O: o! s8 C! y& C全部
table
5 X( Y3 l6 M# ~# E* Q/ j前几行
# t8 N, D" d8 P4 ?head(table)
最后几行
; G% Z; `9 J/ ]( Ptail(table)
8.数据排序
9 c# F  {7 m) X. n# A$ c升序：newt1<-t[order(t地 区 生 产 总 值 ) , ] 降 序 ： n e w t 2 < − t [ o r d e r ( − t 地区生产总值),] 降序：newt2<-t[order(-t地区生产总值),]降序：newt2<−t[order(−t地区生产总值),]
或者：newt2<-t[order(t$地区生产总值),decreasing=TRUE]
1 b8 l2 S0 X$ P( M& M- U

2 [4 ~" _/ ~9 }4 D5 A
变量重命名：
library(reshape)
rename(t,c(“地区生产总值”=“GDP”))
2 [1 ]: Z8 r' j! f! `缺失值的处理：
检测：x<-c(2,4,6,NA)
! C) ?+ T4 s. W7 q4 L3 l( ?3 w/ Ois.na(x)
; v9 W/ o( N6 z- i0 i8 W排除：x<-c(2,4,6,NA)
1 A' Z5 K3 y  s: D8 Z/ J" w( Y6 esum(x)
y<-sum(x,na.rm=TRUE)
* V0 M, V' d2 s1 I8 @