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

1047521767

R语言录入数据保存格式转换矩阵
/ B# H! O3 a6 u' P* a
index<-c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户")
  m/ ^/ W2 h5 Z$ syear2008<-c(1500,2935,4203,5929,11290)
year2009<-c(1549,3110,4502,6468,12319)
year2010<-c(1870,3621,5222,7441,14050)
year2011<-c(2001,4256,6208,8894,16783)
; w* S" T- `5 N  w$ o  u% C6 Uyear2012<-c(2316,4808,7041,10142,19009)
tt<-data.frame("指标"=index,"2008年"=year2008,"2009年"=year2009,"2010年"=year2010,"2011年"=year2011,"2012年"=year2012)
% _6 ~  t& {" g: rtt
$ }' r, w1 I1 y3 {5 j9 v
4 q/ l. _7 ?* R& esave(tt,file="F:/统计学/实验作业/tt.RData")
) V' J2 \' |# xload("F:/统计学/实验作业/tt.RData")
matrix1_1<-as.matrix(tt[,2:6])
7 T! l+ y# {$ G8 }. Rrownames(matrix1_1)=tt[,1]
% ^4 O7 d9 p: T" H* Osave(matrix1_1,file="F:/统计学/实验作业/matrix.RData")
1 f# r% V4 W+ O( F# s9 Fmatrix1_1
基础知识：
1.为对象赋值
; o: U5 `1 p& u
  f0 _; o$ R0 y% `. t* G1 }, k/ E
3 r0 V5 B0 _8 s2.对对象X进行各种计算和绘图

' {+ D  k2 I: @$ O8 |3.R包的安装和加载
" [( H8 G. N" ~+ j' k& I查看

在线安装所需包
" _/ t. _% r4 K# u
一次安装多个包
# B/ d/ l& e# K3 d
6 G: J' L$ B4 E/ t( P) u要使用包，需要用library()函数或者require()函数载入这个包
4.在R中录入数据
（1）用C函数产生向量
例：names<-c(“张三”,“李四”,“王五”)

+ e; d# {7 W# B# D: H1 S（2）将向量形式的数据组织转换成数据框模式
例：table<-data.frame(“姓名”=names，···)
; i+ F, S* V! d  y/ C8 Ttable

% e/ e$ h, ?% A（3）将向量形式的数据转组织成矩阵
: f; x7 Z; n9 s6 E  h4 X! e8 ~4 ~
3 p0 H% O% j& Y9 T% ]" Q# h- ?' C（4）在R中录入数据并组织成矩阵


5. 读取R数据
8 j6 C; @3 [5 u2 D0 w1 Tload(“load(“存储路径 /文件名字.RData”)”)
读取包含标题的csv文件
8 ?/ a3 F1 Z: q" }, Xread.csv(“存储路径 /文件名字.csv”)
读取不包含标题的csv文件
read.csv(“存储路径 /文件名字.csv”,header=FALSE)
- a1 W& b7 e- \2 J) }  I1 q导入Excel数据

9 v5 C5 Y4 x. S/ T
% q7 k/ q% y5 n, ]导入spss数据

6.保存数据
R格式
) c# d2 l; F* g; Osave(table,file=“存储路径 /table.RData”)
% Z1 o$ X* p: `8 }csv格式
% I& W; B2 z" Z5 |write.csv(table,file=“存储路径 /table.csv”)
, H- V% U  c4 I5 @: d8 B7.查看数据
! t, C' {+ _/ f  C全部
9 @3 t: }0 N/ U% [table
前几行
9 j7 C( T8 I: yhead(table)
最后几行
  t" L4 h3 U8 ~- }% v" F2 L4 h& Utail(table)
7 C: v, C" `' v# W3 }* v  |8.数据排序
: ?+ ]0 x) v% G1 B5 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地区生产总值),]
7 x4 Y! b( D- e5 n或者：newt2<-t[order(t$地区生产总值),decreasing=TRUE]

, H7 ~; e* }' d9 U

变量重命名：
library(reshape)
. n# f' o! h, d+ R  H# H" m5 trename(t,c(“地区生产总值”=“GDP”))
缺失值的处理：
检测：x<-c(2,4,6,NA)
3 e( w; [6 s+ `1 ]is.na(x)
; a) B5 w7 W5 e+ c+ I2 D+ N& k& f' o排除：x<-c(2,4,6,NA)
' |2 R9 i+ k( rsum(x)
) M5 p5 F( L; Xy<-sum(x,na.rm=TRUE)

2 B0 W3 h% Y4 {& k" P% \