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

1047521767

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

/ s3 f0 `3 ?6 R4 N. ^# Findex<-c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户")
year2008<-c(1500,2935,4203,5929,11290)
year2009<-c(1549,3110,4502,6468,12319)
/ F8 c1 }' V* wyear2010<-c(1870,3621,5222,7441,14050)
( i" A: G! n- E0 f0 V1 myear2011<-c(2001,4256,6208,8894,16783)
6 Z; L  q  E# Wyear2012<-c(2316,4808,7041,10142,19009)
' D3 _! X6 e* [+ B  btt<-data.frame("指标"=index,"2008年"=year2008,"2009年"=year2009,"2010年"=year2010,"2011年"=year2011,"2012年"=year2012)
tt

9 l/ m* C" @5 Usave(tt,file="F:/统计学/实验作业/tt.RData")
) O, {8 z& j4 N" Hload("F:/统计学/实验作业/tt.RData")
4 t" z* _" i8 Q1 r+ @matrix1_1<-as.matrix(tt[,2:6])
rownames(matrix1_1)=tt[,1]
5 j) ^/ r8 e4 Q/ X& u* q$ \, esave(matrix1_1,file="F:/统计学/实验作业/matrix.RData")
- P( n! T8 |) `: Q( X" T6 Rmatrix1_1
基础知识：
) N9 {' l+ ~6 F1 M- K4 K' T1.为对象赋值
$ X. D0 a2 D  `6 p" [
! a7 l5 U* k7 }: H  H
2.对对象X进行各种计算和绘图

3.R包的安装和加载
查看
$ D8 Z$ W/ p$ T0 c' d, B5 v
- \; K4 ?9 b3 d! ?在线安装所需包
* m$ g+ ~9 y6 y% K& r
- |( @/ w1 N& j" {一次安装多个包

要使用包，需要用library()函数或者require()函数载入这个包
4.在R中录入数据
（1）用C函数产生向量
, t. M; H+ I: I. l: X0 l7 h* ]例：names<-c(“张三”,“李四”,“王五”)
* s, T6 L: u' k0 h9 x
0 b: x" s6 H1 W（2）将向量形式的数据组织转换成数据框模式
例：table<-data.frame(“姓名”=names，···)
5 n. M3 _" H5 h9 P8 [table
  k) C' b" s; H8 N% O( b: C, C
- c" s/ z3 y0 }+ s: r7 i; i（3）将向量形式的数据转组织成矩阵

（4）在R中录入数据并组织成矩阵
; b# Q3 k* F' F- P

3 [3 a- N+ d# ?$ ?- o& i2 Q( }5. 读取R数据
load(“load(“存储路径 /文件名字.RData”)”)
, h( l* k  j" |) P读取包含标题的csv文件
read.csv(“存储路径 /文件名字.csv”)
读取不包含标题的csv文件
2 n$ X/ k  ?$ ]8 _' q; {8 wread.csv(“存储路径 /文件名字.csv”,header=FALSE)
3 S- e% Z0 F9 B6 }: ?8 ?! ?8 ~导入Excel数据
! r7 c$ k" |- |6 O. m* N2 O

导入spss数据
3 u( ]/ c0 ?( V1 n3 n
* Z7 ^5 T0 ~, Z& [" a' Z6 D4 @6.保存数据
R格式
save(table,file=“存储路径 /table.RData”)
csv格式
0 T5 o- |! M6 p/ Vwrite.csv(table,file=“存储路径 /table.csv”)
7.查看数据
0 {% \* y# ]- l2 u0 @! g! D全部
table
8 H' a/ d8 @2 F+ h* `- V9 d3 i前几行
head(table)
最后几行
tail(table)
8 o: H5 D% g, [/ b6 k1 R  M- y; ~, ?% Q; Y8.数据排序
  D0 ]' d3 H! C4 e" a升序：newt1<-t[order(t地 区 生 产 总 值 ) , ] 降 序 ： n e w t 2 < − t [ o r d e r ( − t 地区生产总值),] 降序：newt2<-t[order(-t地区生产总值),]降序：newt2<−t[order(−t地区生产总值),]
5 Q# ]: q6 b$ l# ^4 D或者：newt2<-t[order(t$地区生产总值),decreasing=TRUE]
: m4 w3 c- Z3 N
  W$ W: s" B( M. W' _  ?$ q9 H; @
4 ]3 d& E( d( Q# z' d( l% Q
变量重命名：
& S% k5 z6 g* s& ]( W* Tlibrary(reshape)
! K& n2 Q9 L+ j- L, o0 z0 vrename(t,c(“地区生产总值”=“GDP”))
缺失值的处理：
8 I2 y, E0 k# V9 u检测：x<-c(2,4,6,NA)
7 G8 a0 b( Z/ Z2 C# Yis.na(x)
排除：x<-c(2,4,6,NA)
1 r- a! ]: j' V& K, W) V  lsum(x)
y<-sum(x,na.rm=TRUE)