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

1047521767

R语言录入数据保存格式转换矩阵
7 V& a9 U* J, [7 C4 i
index<-c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户")
, N! n7 s' A4 }  d) [  Gyear2008<-c(1500,2935,4203,5929,11290)
year2009<-c(1549,3110,4502,6468,12319)
! s: B$ h9 c% K1 j% P# t$ iyear2010<-c(1870,3621,5222,7441,14050)
7 l% E1 W3 z2 @& {; Vyear2011<-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)
# a4 \5 |- e  a" e4 \. t: Ott

save(tt,file="F:/统计学/实验作业/tt.RData")
) J6 j* q8 a* J. X, D* pload("F:/统计学/实验作业/tt.RData")
matrix1_1<-as.matrix(tt[,2:6])
rownames(matrix1_1)=tt[,1]
& R( h, M/ l1 O+ c4 M+ jsave(matrix1_1,file="F:/统计学/实验作业/matrix.RData")
matrix1_1
: F4 e! Y& E1 k基础知识：
1.为对象赋值
$ G/ u+ ]+ d; v' r3 w  V

9 T4 u: N" b( U# F  o2.对对象X进行各种计算和绘图
. b3 `/ {" @7 z  _6 K6 n* b
. B+ O; E* ]+ Y; f+ s- H3.R包的安装和加载
查看
* }* k8 f* ?, t( j; z2 K, v
在线安装所需包
( K6 y6 R  ?  T# E& @: \
/ v7 R5 ^/ N3 I& X* z5 E: x8 D0 `一次安装多个包
) M+ A& u9 `$ G0 \- E
4 O; x& Q- }6 P& E- q要使用包，需要用library()函数或者require()函数载入这个包
3 D! x* N# s2 |$ u+ r4.在R中录入数据
（1）用C函数产生向量
$ z) k* [( q* h3 [9 b+ {例：names<-c(“张三”,“李四”,“王五”)

（2）将向量形式的数据组织转换成数据框模式
/ N, w( h* I& f1 B; }" I例：table<-data.frame(“姓名”=names，···)
table
3 y7 R% e4 E/ m# ^0 |- m
（3）将向量形式的数据转组织成矩阵

4 q/ i/ T% m" b9 X（4）在R中录入数据并组织成矩阵


5. 读取R数据
' T% G$ H. V9 K3 {0 I+ o% U7 }load(“load(“存储路径 /文件名字.RData”)”)
" e* }. C& S' i( F( ^9 A3 c/ U读取包含标题的csv文件
+ A7 B$ B8 r  l+ u: iread.csv(“存储路径 /文件名字.csv”)
读取不包含标题的csv文件
, d* a% z) m5 ?, _4 G0 ]  f. lread.csv(“存储路径 /文件名字.csv”,header=FALSE)
- R& a5 }  P5 ^  D; b2 n" l, r导入Excel数据


导入spss数据
  }" c! m( u# z, Z
: _! ^* \3 \" V/ h, {6.保存数据
0 n3 Y. f6 \2 m0 _& _, ER格式
save(table,file=“存储路径 /table.RData”)
csv格式
; z" u- E3 `  lwrite.csv(table,file=“存储路径 /table.csv”)
7.查看数据
. T1 t# `4 y; X+ h6 H/ ?1 J! c全部
table
前几行
) V  b) K5 `1 L* y3 nhead(table)
最后几行
tail(table)
( o  M0 j9 H/ T8 T6 i8.数据排序
升序：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]


" ^  f  w9 c# b% R. j3 `
8 a5 |. ^, g3 A变量重命名：
library(reshape)
rename(t,c(“地区生产总值”=“GDP”))
+ k! J8 E2 h/ @3 [7 r! ], l+ n+ i缺失值的处理：
检测：x<-c(2,4,6,NA)
" |+ z3 `; N' n. Z$ bis.na(x)
5 X4 ~: p; h$ r* p) F, l3 `+ ^排除：x<-c(2,4,6,NA)
sum(x)
; x8 C1 ^  Y/ Q7 A4 t1 ^; x) _y<-sum(x,na.rm=TRUE)