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

1047521767

R语言录入数据保存格式转换矩阵
5 O: {9 Y' {+ O
3 W5 ]% P' F8 y; F& T. findex<-c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户")
year2008<-c(1500,2935,4203,5929,11290)
year2009<-c(1549,3110,4502,6468,12319)
& U6 H6 V9 I; n. F+ qyear2010<-c(1870,3621,5222,7441,14050)
, {0 |9 |! X3 Q) w: U! N% d4 v' jyear2011<-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)
tt

save(tt,file="F:/统计学/实验作业/tt.RData")
/ A2 R- [7 R0 j4 q9 j5 _load("F:/统计学/实验作业/tt.RData")
) v- X# b$ v4 ^" S# ?  @' hmatrix1_1<-as.matrix(tt[,2:6])
rownames(matrix1_1)=tt[,1]
$ |8 z& b% g  Y# [* wsave(matrix1_1,file="F:/统计学/实验作业/matrix.RData")
matrix1_1
: H! R# n+ p' r5 k9 L( N6 U# F基础知识：
$ R5 E% h( u, d0 w1.为对象赋值


# Z' W% ^' W2 ^" c& i# G- |2.对对象X进行各种计算和绘图

3.R包的安装和加载
查看

$ ~8 F4 C! J, U- f在线安装所需包

- n3 g- G6 F, A" `2 j$ r! K6 E一次安装多个包

6 R, i5 O  c: i/ N! S要使用包，需要用library()函数或者require()函数载入这个包
6 x! s4 |2 H6 {8 V; {8 G4.在R中录入数据
& l( N+ ~) g- p. o+ i  R; ?（1）用C函数产生向量
4 A# a8 A" D0 e% c例：names<-c(“张三”,“李四”,“王五”)
% x, [9 l# `3 O( y0 B$ l3 ^) e
6 [" L. R( c. D4 L; G8 [5 k' O, z（2）将向量形式的数据组织转换成数据框模式
例：table<-data.frame(“姓名”=names，···)
table

. [, ]# G* F# }2 m5 Q) v（3）将向量形式的数据转组织成矩阵

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

, A! o( n" ^' _8 Q  a) ?' X: X
: x4 {4 `" j% T9 y1 s5. 读取R数据
$ `* ~' C  g7 Z3 nload(“load(“存储路径 /文件名字.RData”)”)
读取包含标题的csv文件
, N: H6 ?. P4 V5 yread.csv(“存储路径 /文件名字.csv”)
* @9 p0 E* q& h( k* Y读取不包含标题的csv文件
read.csv(“存储路径 /文件名字.csv”,header=FALSE)
2 P! j- t$ ^# H; ^导入Excel数据
, n; w: }6 k4 }6 t8 ]9 P! O
2 g. O# I. S$ ^! y8 b& r/ q
导入spss数据
& c8 [5 J6 H* z# z) J
6.保存数据
R格式
+ r! ~, g. ^! L- Ssave(table,file=“存储路径 /table.RData”)
3 ?& p  V4 ~& K6 z- _3 a$ H& ccsv格式
write.csv(table,file=“存储路径 /table.csv”)
7.查看数据
! |2 g" c. Y# d3 D$ l5 u全部
table
前几行
) o& v7 Q7 E) R+ g7 E: Q6 J4 U' }head(table)
1 R' c9 I/ i& Y6 N, o8 t3 a最后几行
' W( D9 h4 m2 T4 a" p5 V+ Y  htail(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]
& S' q. K/ F, b% T' b


/ S5 s$ U* R" K' }9 T9 `变量重命名：
9 H" g: {7 N2 J, i! p( Wlibrary(reshape)
rename(t,c(“地区生产总值”=“GDP”))
缺失值的处理：
检测：x<-c(2,4,6,NA)
' L$ m; [- \3 }1 ois.na(x)
排除：x<-c(2,4,6,NA)
! x2 _7 ?% N" h9 o% q. H- Tsum(x)
( ]6 ~( R( A5 R$ M  B' q; hy<-sum(x,na.rm=TRUE)
' Q$ X: K5 j6 H5 t0 G3 t" {& b
* b% I. V6 @. S% E