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

1047521767

R语言录入数据保存格式转换矩阵
0 `" Z4 }4 N) j' S, _- v
) ]4 U/ Q7 ]  Dindex<-c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户")
year2008<-c(1500,2935,4203,5929,11290)
year2009<-c(1549,3110,4502,6468,12319)
$ Q5 S2 _! A. e* N/ kyear2010<-c(1870,3621,5222,7441,14050)
year2011<-c(2001,4256,6208,8894,16783)
; p9 d3 k) k- c! ^year2012<-c(2316,4808,7041,10142,19009)
tt<-data.frame("指标"=index,"2008年"=year2008,"2009年"=year2009,"2010年"=year2010,"2011年"=year2011,"2012年"=year2012)
tt
1 B: R* Q& u1 @
9 |  @5 K/ g& U2 fsave(tt,file="F:/统计学/实验作业/tt.RData")
% \/ H* l8 k) p0 Q3 kload("F:/统计学/实验作业/tt.RData")
( M  [$ d* N5 x# a2 a- e1 Amatrix1_1<-as.matrix(tt[,2:6])
$ E" j8 _2 h2 l, e2 q% g7 e$ erownames(matrix1_1)=tt[,1]
save(matrix1_1,file="F:/统计学/实验作业/matrix.RData")
matrix1_1
) j5 n0 |! B& I% }; m7 w基础知识：
# ?: z( [8 C. l& @+ j( D* V) \1.为对象赋值
8 K; G2 i8 s6 H* H$ U& V
+ f6 B# l7 ?: _6 x
, m% ]' P' G6 ~  R- I+ h" }* f2.对对象X进行各种计算和绘图

( z( c, l/ Q8 s3 \5 B3.R包的安装和加载
查看
3 c6 e) U* \/ u: ?  ]
6 s) n% _: A2 N3 A, U. E0 P在线安装所需包

) t$ t/ g' W8 J0 f一次安装多个包

要使用包，需要用library()函数或者require()函数载入这个包
4.在R中录入数据
（1）用C函数产生向量
例：names<-c(“张三”,“李四”,“王五”)
; l' ]0 b, u+ W8 L2 T
1 c6 D" s' \9 h$ Y# B9 B& M（2）将向量形式的数据组织转换成数据框模式
! M6 t/ p  w7 O$ \! H( u例：table<-data.frame(“姓名”=names，···)
; ]: a, A1 }4 T5 @& _table
  ~5 ?9 r* e' l( H5 ~
9 A% x# E8 N& q1 B（3）将向量形式的数据转组织成矩阵
6 c! n1 k) r1 z4 I$ n
4 c5 I+ c! P! A/ Z4 O6 @, P（4）在R中录入数据并组织成矩阵

' m3 Q1 ^5 V: p  |) O. a& w
5. 读取R数据
load(“load(“存储路径 /文件名字.RData”)”)
读取包含标题的csv文件
read.csv(“存储路径 /文件名字.csv”)
; ^! t0 ~* g7 t; @- J+ ~6 H& M读取不包含标题的csv文件
5 q! u- N+ q! g8 l' r) zread.csv(“存储路径 /文件名字.csv”,header=FALSE)
' L6 k5 f* A  B0 j+ G6 _# ^导入Excel数据


导入spss数据
% `7 U: q% s( [8 p+ m& j, \
6.保存数据
% p2 _5 a+ J, ^( V, p, e. m4 ]R格式
save(table,file=“存储路径 /table.RData”)
0 _2 r4 A* H2 u4 y. gcsv格式
write.csv(table,file=“存储路径 /table.csv”)
7.查看数据
全部
: b7 S' ^3 h) M* ]4 A; x. Ktable
前几行
: l4 g: H- k) _head(table)
最后几行
- y4 |, T  U$ d6 L2 X' Jtail(table)
8.数据排序
% y1 r( L" V+ ]) O& `! n升序：newt1<-t[order(t地 区 生 产 总 值 ) , ] 降 序 ： n e w t 2 < − t [ o r d e r ( − t 地区生产总值),] 降序：newt2<-t[order(-t地区生产总值),]降序：newt2<−t[order(−t地区生产总值),]
' t% m, U- ?+ S3 b. y6 w或者：newt2<-t[order(t$地区生产总值),decreasing=TRUE]

  o# M- K! d# A! |4 ^
$ q$ t. }0 o4 z1 p" e' {/ @. E
变量重命名：
library(reshape)
0 O$ I$ T0 ^% |$ V9 n- Wrename(t,c(“地区生产总值”=“GDP”))
  N* l  F. |  C缺失值的处理：
检测：x<-c(2,4,6,NA)
is.na(x)
! h2 C8 f4 F& @0 v9 p$ B排除：x<-c(2,4,6,NA)
sum(x)
/ x& @  w( ?. G1 s3 Uy<-sum(x,na.rm=TRUE)

) R$ j* h4 U7 O+ a7 M1 l