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

1047521767

R语言录入数据保存格式转换矩阵
6 v4 o- V' R8 s( z( d# C
  B  h* n8 m  i/ Nindex<-c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户")
year2008<-c(1500,2935,4203,5929,11290)
year2009<-c(1549,3110,4502,6468,12319)
year2010<-c(1870,3621,5222,7441,14050)
6 Z7 y' [9 a1 v9 H. f, fyear2011<-c(2001,4256,6208,8894,16783)
year2012<-c(2316,4808,7041,10142,19009)
tt<-data.frame("指标"=index,"2008年"=year2008,"2009年"=year2009,"2010年"=year2010,"2011年"=year2011,"2012年"=year2012)
! ?' @7 Z$ t6 w- ^" Qtt

save(tt,file="F:/统计学/实验作业/tt.RData")
load("F:/统计学/实验作业/tt.RData")
! F. r6 I' R  l! z2 Lmatrix1_1<-as.matrix(tt[,2:6])
# Y# I- v* M& Y" @0 T6 Prownames(matrix1_1)=tt[,1]
save(matrix1_1,file="F:/统计学/实验作业/matrix.RData")
9 b' T: i( W' X2 m* Y* b% B4 g  Lmatrix1_1
: M7 v5 ^5 b0 X/ k1 u) d基础知识：
1.为对象赋值
, P" F9 t6 p* _5 r+ E' Z3 i

. r5 J& z  X& b* `2.对对象X进行各种计算和绘图

3.R包的安装和加载
) g+ `5 P0 w4 [5 t查看
- F* a  Y( F# Y) l& U
在线安装所需包
0 r! }9 S/ i% K, E- O7 M; b
一次安装多个包

要使用包，需要用library()函数或者require()函数载入这个包
. d$ Z9 F  B2 B  z/ O* r7 y6 K4.在R中录入数据
3 j* I1 v2 K4 K' ]2 [（1）用C函数产生向量
例：names<-c(“张三”,“李四”,“王五”)

* E) n, _: d1 k* c  V9 w（2）将向量形式的数据组织转换成数据框模式
例：table<-data.frame(“姓名”=names，···)
4 M$ ^: j. h* p. }/ \( o+ B1 l- i- F' wtable
0 I  Z, T' L) m# Y
（3）将向量形式的数据转组织成矩阵
( m) o8 @6 g3 d( Y1 \, m! ]
（4）在R中录入数据并组织成矩阵

+ k$ q/ a, V# L! j$ w% i
! s+ ]) c& M/ t2 O' i5. 读取R数据
load(“load(“存储路径 /文件名字.RData”)”)
读取包含标题的csv文件
read.csv(“存储路径 /文件名字.csv”)
读取不包含标题的csv文件
# x% o/ a0 @( c# I7 M8 D+ Y0 oread.csv(“存储路径 /文件名字.csv”,header=FALSE)
导入Excel数据
1 M+ U$ P* z" p% k. h* B( q9 H
! w" k( o0 H: A/ P5 ~. P
' }& D( e; [2 U/ {* H3 P3 n导入spss数据

6.保存数据
' y# P) E" v, g  n' b1 \& J3 {R格式
save(table,file=“存储路径 /table.RData”)
& n7 b- H! J) w2 k+ c3 f2 vcsv格式
write.csv(table,file=“存储路径 /table.csv”)
% |7 W  a- u. @. L8 b$ V7.查看数据
) m# X7 p: q! T全部
% t6 w9 r" u' A* [) _2 b, C8 Ktable
8 Y' b5 ~/ ]1 h" A$ {前几行
- A$ o/ @+ t, {/ u7 h. a& Nhead(table)
7 o* I2 E% U/ S2 y5 \' O/ {最后几行
3 T% v9 P! J# I. Rtail(table)
8.数据排序
; g' }8 m% p0 ?. G9 u! z) H升序：newt1<-t[order(t地 区 生 产 总 值 ) , ] 降 序 ： n e w t 2 < − t [ o r d e r ( − t 地区生产总值),] 降序：newt2<-t[order(-t地区生产总值),]降序：newt2<−t[order(−t地区生产总值),]
1 O9 l# W: A! |. b8 w+ ~或者：newt2<-t[order(t$地区生产总值),decreasing=TRUE]

2 y+ ^; r9 x2 p% S7 F+ z! b

' p; R+ K" Y& x4 |7 h% ^# a变量重命名：
9 _# M! B+ G& i0 glibrary(reshape)
rename(t,c(“地区生产总值”=“GDP”))
缺失值的处理：
6 z$ k, ^/ @* o) h7 J  w9 y$ l检测：x<-c(2,4,6,NA)
is.na(x)
排除：x<-c(2,4,6,NA)
sum(x)
7 d0 p  [0 k3 n: y! zy<-sum(x,na.rm=TRUE)
; p) T6 d# s1 g. o3 i