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

1047521767

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

5 c4 v( \- {/ A' U3 [, Zindex<-c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户")
year2008<-c(1500,2935,4203,5929,11290)
year2009<-c(1549,3110,4502,6468,12319)
4 o: @0 Q0 d; ]year2010<-c(1870,3621,5222,7441,14050)
) l5 f  S0 b: X/ V" R  _# vyear2011<-c(2001,4256,6208,8894,16783)
7 n# ?! c9 L. hyear2012<-c(2316,4808,7041,10142,19009)
tt<-data.frame("指标"=index,"2008年"=year2008,"2009年"=year2009,"2010年"=year2010,"2011年"=year2011,"2012年"=year2012)
tt

$ I, |. m  R, G( O5 \save(tt,file="F:/统计学/实验作业/tt.RData")
load("F:/统计学/实验作业/tt.RData")
matrix1_1<-as.matrix(tt[,2:6])
rownames(matrix1_1)=tt[,1]
) U+ {, c4 E) {" D  ~9 c" ~) t9 asave(matrix1_1,file="F:/统计学/实验作业/matrix.RData")
1 U: g1 R' B' umatrix1_1
基础知识：
1.为对象赋值


2.对对象X进行各种计算和绘图

3.R包的安装和加载
+ D" \; J+ d4 g6 L- H# t0 J查看

在线安装所需包
' M6 D- q; f9 o/ J2 ?( @, |6 h
" y/ ?6 A+ l+ N- f8 p: W( N2 _一次安装多个包

+ B- B1 |" e9 L% ^1 b1 q) O- |要使用包，需要用library()函数或者require()函数载入这个包
4.在R中录入数据
（1）用C函数产生向量
' K# M$ D9 {0 f例：names<-c(“张三”,“李四”,“王五”)
6 w% `- e5 M. c7 V7 F
: b5 Z$ B( P, s' k+ G3 X( w（2）将向量形式的数据组织转换成数据框模式
例：table<-data.frame(“姓名”=names，···)
table

& D4 b* q5 H* s* G; |3 s+ T（3）将向量形式的数据转组织成矩阵

8 j% @# O4 o& q6 ]6 U" c! J（4）在R中录入数据并组织成矩阵
3 P" Q; ?! W; t2 C
- z% D$ Y5 U' |+ W( I1 z3 A+ `
; O- o9 I; \- n3 c3 _# o. @  P5. 读取R数据
. t+ N3 X  [- C; e7 G: @! i8 z- |1 Dload(“load(“存储路径 /文件名字.RData”)”)
读取包含标题的csv文件
read.csv(“存储路径 /文件名字.csv”)
: U3 {; ^/ W1 c读取不包含标题的csv文件
- Y9 J& a) z+ Q. o, @3 h" b( vread.csv(“存储路径 /文件名字.csv”,header=FALSE)
导入Excel数据


) w+ k6 B9 H* |' t9 I+ C( `导入spss数据
3 D5 i0 i( k) i$ ^' U, \5 B# b
1 H/ d" M5 E6 N5 }( Z6.保存数据
R格式
4 x6 U4 @& r9 `3 Dsave(table,file=“存储路径 /table.RData”)
/ t# {( E# P5 I9 d% Rcsv格式
" Y7 {. u& _! `) K& M5 Hwrite.csv(table,file=“存储路径 /table.csv”)
' H. j7 q  B  `+ c0 i8 B3 K7.查看数据
" B% G+ j/ O  w+ W! s& K全部
table
) Q% W# H- s! H$ F, P前几行
head(table)
最后几行
, g; S0 f3 h: a" Wtail(table)
# C, K6 D1 R, Y4 @3 |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]

4 ^' n. I. D5 X4 |
( j% w- E+ e8 ?9 M- f; X
3 f& c  A" w$ m变量重命名：
. M7 w7 r. N% X0 Mlibrary(reshape)
rename(t,c(“地区生产总值”=“GDP”))
缺失值的处理：
检测：x<-c(2,4,6,NA)
# f; x1 t$ G8 o5 E# Kis.na(x)
排除：x<-c(2,4,6,NA)
sum(x)
# J: G$ {7 h/ C+ A7 O4 g% W( zy<-sum(x,na.rm=TRUE)