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

1047521767

R语言录入数据保存格式转换矩阵
' @+ j) X8 z; F8 V
index<-c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户")
: a, ?$ Z4 {" X! ~' c8 u# y3 cyear2008<-c(1500,2935,4203,5929,11290)
year2009<-c(1549,3110,4502,6468,12319)
year2010<-c(1870,3621,5222,7441,14050)
year2011<-c(2001,4256,6208,8894,16783)
. H6 P" Y5 a- p9 _4 v* Cyear2012<-c(2316,4808,7041,10142,19009)
! z3 U  ~! \4 e8 X7 j  d1 Q6 m2 }tt<-data.frame("指标"=index,"2008年"=year2008,"2009年"=year2009,"2010年"=year2010,"2011年"=year2011,"2012年"=year2012)
tt
  Q. H3 y( r1 A0 b: n: N! `1 O
save(tt,file="F:/统计学/实验作业/tt.RData")
. o4 \% _' j; {* @9 l. ^load("F:/统计学/实验作业/tt.RData")
* C5 N; y- }  H1 Ymatrix1_1<-as.matrix(tt[,2:6])
rownames(matrix1_1)=tt[,1]
5 G8 r, b3 f/ ?' P! E+ Osave(matrix1_1,file="F:/统计学/实验作业/matrix.RData")
$ r5 @* V: X/ Bmatrix1_1
$ `, Z) y- a. E- P) Z* Y基础知识：
( o  A' X* S/ e) S, P; K1.为对象赋值

- t$ i# b4 l8 q
% q* A  R3 y! A6 E% Q. B2.对对象X进行各种计算和绘图
9 I4 W8 u' p% c) o+ `. b6 y4 y
3.R包的安装和加载
查看

/ ^4 Z7 e/ q3 k0 |3 r* y# e在线安装所需包
3 `/ W, G: C6 j* t- R" y! @5 T
1 N8 t/ Y2 h/ N( y一次安装多个包
2 Q& N# {& p, G5 B5 M
5 L3 z) T7 ]5 Y# j( L! R要使用包，需要用library()函数或者require()函数载入这个包
4.在R中录入数据
（1）用C函数产生向量
+ L7 r$ v. T6 a, v* Z例：names<-c(“张三”,“李四”,“王五”)

（2）将向量形式的数据组织转换成数据框模式
例：table<-data.frame(“姓名”=names，···)
. {  ]0 s* W: g* o) Dtable

（3）将向量形式的数据转组织成矩阵
1 p' @# T* ^9 r( ?9 ]6 l
（4）在R中录入数据并组织成矩阵

8 m; [0 Z/ F- b  k% r3 O* H5 S* m
. R# [& D: ^9 W. E3 T7 c7 H" y5. 读取R数据
2 w( q& N% p: h3 G: y* |; v3 M1 oload(“load(“存储路径 /文件名字.RData”)”)
! b: t$ o% L6 T5 c: X2 g读取包含标题的csv文件
read.csv(“存储路径 /文件名字.csv”)
读取不包含标题的csv文件
8 n3 D) l* b- }' ~4 N& m7 `read.csv(“存储路径 /文件名字.csv”,header=FALSE)
" u, T4 n# k! f) V2 M; f/ r7 c. e- m, |导入Excel数据
; k7 G9 q- [0 t8 m& r

导入spss数据

6 i! r; C" C( s% Q6.保存数据
R格式
* _; z$ D4 k6 b$ o- Isave(table,file=“存储路径 /table.RData”)
3 }3 L7 }& f: V$ X( n) kcsv格式
write.csv(table,file=“存储路径 /table.csv”)
7.查看数据
全部
; r$ g: _9 v* Q; q/ t) ttable
- i" I; a4 k6 b5 P& p7 g( J/ d前几行
head(table)
最后几行
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]
1 s- g! T/ e; q+ Y' h# n4 M) b; U6 t+ m

9 H4 X; y- i1 P5 f% r, s9 d
+ v" u* x* K# n& y3 J% \变量重命名：
library(reshape)
rename(t,c(“地区生产总值”=“GDP”))
缺失值的处理：
检测：x<-c(2,4,6,NA)
is.na(x)
% [3 Y; k4 O& o4 Q; L' S$ e7 j排除：x<-c(2,4,6,NA)
sum(x)
y<-sum(x,na.rm=TRUE)
, y; T8 Q6 f; H3 N" G* r# u. w
0 j( d9 p! Q% y! V9 ]* D