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

1047521767

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

index<-c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户")
year2008<-c(1500,2935,4203,5929,11290)
& S) x9 j/ L. ]: B5 K8 _year2009<-c(1549,3110,4502,6468,12319)
3 \9 \# r8 ]. u0 z; _* cyear2010<-c(1870,3621,5222,7441,14050)
0 m4 O+ T) e% ^+ nyear2011<-c(2001,4256,6208,8894,16783)
year2012<-c(2316,4808,7041,10142,19009)
6 o; N8 }  ~& H9 W% \tt<-data.frame("指标"=index,"2008年"=year2008,"2009年"=year2009,"2010年"=year2010,"2011年"=year2011,"2012年"=year2012)
/ i- R0 b4 z- k8 H* }2 R1 Gtt
1 R- C$ G" n* Q' K! G1 u" j- e- _
save(tt,file="F:/统计学/实验作业/tt.RData")
& M+ f3 D' b1 l% u6 l2 o7 w2 tload("F:/统计学/实验作业/tt.RData")
5 v2 k8 H3 M- C9 Kmatrix1_1<-as.matrix(tt[,2:6])
rownames(matrix1_1)=tt[,1]
save(matrix1_1,file="F:/统计学/实验作业/matrix.RData")
& R# G6 b: C4 ?% B* q; hmatrix1_1
8 B6 D* ^  u* o3 H% R5 y基础知识：
7 f' Q8 \; ]# }6 r" p1.为对象赋值
6 W3 D' ~; _# w# Y% I- x/ V
! E' L2 Y' J, s, ]" D
1 Q) Q8 i0 J- x5 ^2.对对象X进行各种计算和绘图

" G, O0 W  i6 a$ }/ V+ o3.R包的安装和加载
# v/ m- M0 y9 ^4 P9 g( {查看
9 h8 e+ U7 _( m3 l1 [. r: g
0 O2 [8 ?! z& Q2 B1 V/ a( l在线安装所需包

2 k, }% z6 B. L$ t- j一次安装多个包

要使用包，需要用library()函数或者require()函数载入这个包
) w& z/ A/ ^( ?! v3 Y/ c  Q4.在R中录入数据
（1）用C函数产生向量
例：names<-c(“张三”,“李四”,“王五”)
8 {- M. f  a  k# \$ _% x! F
# W& K9 C# C' B5 C* c（2）将向量形式的数据组织转换成数据框模式
例：table<-data.frame(“姓名”=names，···)
table

8 X2 t$ ~# g- n+ ]8 q（3）将向量形式的数据转组织成矩阵

（4）在R中录入数据并组织成矩阵

6 X1 V% k9 x: X% ]2 h/ ?* z! |7 M' A
- C3 z5 @8 x) b; _  J5. 读取R数据
load(“load(“存储路径 /文件名字.RData”)”)
读取包含标题的csv文件
/ \8 H0 g2 s4 Bread.csv(“存储路径 /文件名字.csv”)
读取不包含标题的csv文件
read.csv(“存储路径 /文件名字.csv”,header=FALSE)
导入Excel数据
" C/ N% s, j% S5 W1 `

导入spss数据

+ q: ^- O3 {" r3 v8 h6.保存数据
R格式
save(table,file=“存储路径 /table.RData”)
csv格式
0 a6 ~+ d% V8 E6 qwrite.csv(table,file=“存储路径 /table.csv”)
* r' H7 G- ~- \. s7.查看数据
1 {8 {; g  G3 f: b' I' E. j8 ^全部
table
前几行
head(table)
最后几行
tail(table)
8.数据排序
1 O( R, U; C, k( 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地区生产总值),]
或者：newt2<-t[order(t$地区生产总值),decreasing=TRUE]

+ @; [4 y6 B0 D4 M, z
3 D7 j# I! b& Q
3 ^/ B& j# [7 H. I' a# a变量重命名：
library(reshape)
rename(t,c(“地区生产总值”=“GDP”))
7 m5 }( D$ A# P- p7 [缺失值的处理：
检测：x<-c(2,4,6,NA)
  t0 Y- e4 j: H( l1 n! qis.na(x)
排除：x<-c(2,4,6,NA)
sum(x)
$ |# N( E' V/ T/ F1 u* uy<-sum(x,na.rm=TRUE)

3 Q  f! y" s5 R) F9 N  f