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

1047521767

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

index<-c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户")
year2008<-c(1500,2935,4203,5929,11290)
9 x6 c6 j( J9 p. g% }; y/ r8 U6 jyear2009<-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)
# o% O; I0 G: @' U! U/ Qtt<-data.frame("指标"=index,"2008年"=year2008,"2009年"=year2009,"2010年"=year2010,"2011年"=year2011,"2012年"=year2012)
tt
2 {3 [+ w. p+ K% i$ ^# y- ?9 ]' f
save(tt,file="F:/统计学/实验作业/tt.RData")
load("F:/统计学/实验作业/tt.RData")
matrix1_1<-as.matrix(tt[,2:6])
& R$ S( s/ m/ o2 Erownames(matrix1_1)=tt[,1]
save(matrix1_1,file="F:/统计学/实验作业/matrix.RData")
* V% t0 m  q# _3 Lmatrix1_1
基础知识：
1.为对象赋值
" S- C9 @" D/ y( B

2.对对象X进行各种计算和绘图
% D2 t- q8 N, b" [
3.R包的安装和加载
( ?! c2 ?2 s* {查看

在线安装所需包
, v$ i9 c  t+ M6 C& D$ K
一次安装多个包

+ f1 c2 ^* m% N6 H( E/ }要使用包，需要用library()函数或者require()函数载入这个包
: q3 i) [6 s4 r2 Y7 @" H4.在R中录入数据
5 w, T3 z+ o. q# J3 l- G/ h+ ?（1）用C函数产生向量
; y: z9 H8 _+ Z例：names<-c(“张三”,“李四”,“王五”)
1 s" C+ Q) m! y3 n, |' }
（2）将向量形式的数据组织转换成数据框模式
% h: f3 P' F  w' _% Q/ p例：table<-data.frame(“姓名”=names，···)
table

（3）将向量形式的数据转组织成矩阵
+ A0 `  M+ I( x4 K: u6 ]
. \! D! u: b% }（4）在R中录入数据并组织成矩阵

; ~, q/ d8 ~+ y% R; X3 B6 ^
5. 读取R数据
8 h2 \& B$ p2 b. o' @, s$ M: T1 Qload(“load(“存储路径 /文件名字.RData”)”)
读取包含标题的csv文件
read.csv(“存储路径 /文件名字.csv”)
读取不包含标题的csv文件
1 b% k4 d, D2 ]% @read.csv(“存储路径 /文件名字.csv”,header=FALSE)
导入Excel数据
9 }0 d9 J  h+ F3 j) a$ ^
% I4 ^2 E  F! i$ u4 |* q; u7 x; @8 z
$ }5 o9 @& F, p# ?, x! Z导入spss数据
; S' x+ F- N( T$ L" N1 h3 M# r
( K' Z3 H! F& L$ \  Y+ d6.保存数据
3 f/ d5 _" U; \2 {8 J9 FR格式
save(table,file=“存储路径 /table.RData”)
csv格式
write.csv(table,file=“存储路径 /table.csv”)
0 Q2 Q* Q$ M, [  b+ D7.查看数据
全部
; l% F' G, [+ R$ Atable
前几行
+ R/ L" F/ P& x1 C8 J& Phead(table)
  C9 i, `; a3 T最后几行
4 j" I8 }5 d' b+ L/ u0 g% y' F5 |tail(table)
8.数据排序
升序：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]
: x, K( H& @" Y  Y& H" u
  ?0 d* J* c+ S0 ]# U

4 k: l  m, c9 X# X1 C变量重命名：
9 m) {5 z! d6 {" Elibrary(reshape)
" C9 }2 q+ I- O6 Trename(t,c(“地区生产总值”=“GDP”))
缺失值的处理：
/ P0 \% C+ p; U2 Q检测：x<-c(2,4,6,NA)
is.na(x)
+ b1 |5 P6 {( v7 \2 ~# o( o" {* \排除：x<-c(2,4,6,NA)
$ f. k( k) X& g- @; w& fsum(x)
- N& S% _% [4 Y% y$ e  ]y<-sum(x,na.rm=TRUE)
. X1 `) v4 D* G. U; s