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

1047521767

R语言录入数据保存格式转换矩阵
5 V/ L& P! `' p3 `  p. ?0 s
+ n2 n! U  _! {6 [7 }: Q; hindex<-c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户")
year2008<-c(1500,2935,4203,5929,11290)
year2009<-c(1549,3110,4502,6468,12319)
year2010<-c(1870,3621,5222,7441,14050)
) s, j) W7 b$ F- {- a8 |' f7 xyear2011<-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)
; T" c9 j( N6 n6 O, o. l9 h+ _- \tt
( E. t0 w: X" {& M7 E1 e: G% W. m% M
7 S7 F2 V# K5 j) ?; z8 i! D; ?. Qsave(tt,file="F:/统计学/实验作业/tt.RData")
load("F:/统计学/实验作业/tt.RData")
4 o4 m0 D& |' L. Kmatrix1_1<-as.matrix(tt[,2:6])
rownames(matrix1_1)=tt[,1]
save(matrix1_1,file="F:/统计学/实验作业/matrix.RData")
matrix1_1
9 E. b  M2 J4 p# J) k6 u# f; `基础知识：
7 B# I4 x# O: p3 |1.为对象赋值

$ {5 q4 N8 G  C! b
7 t2 q) d; i1 {5 D2.对对象X进行各种计算和绘图

3.R包的安装和加载
查看
/ i$ q  `) ^2 |4 E
在线安装所需包

/ ]) q3 E) _+ T" q( O3 D一次安装多个包

: P" C7 K& s- J4 h  t要使用包，需要用library()函数或者require()函数载入这个包
, t. \, e& j' p( ]0 s4.在R中录入数据
' u% z4 n3 U" }. Q, P3 ~3 o( ?$ o（1）用C函数产生向量
例：names<-c(“张三”,“李四”,“王五”)
: y, w/ P$ E3 Z' Q6 y. s
  k0 }; k4 A0 C7 k$ F9 G1 s. Q8 p（2）将向量形式的数据组织转换成数据框模式
8 r2 c* I$ `8 k' T2 n. L例：table<-data.frame(“姓名”=names，···)
table

% K" J2 k9 R; j（3）将向量形式的数据转组织成矩阵

# _6 D; _1 X$ o9 M1 c% W) o（4）在R中录入数据并组织成矩阵

8 h. v( @4 z& M/ s4 o
5. 读取R数据
load(“load(“存储路径 /文件名字.RData”)”)
+ {/ M8 ^, G5 I: R7 u0 A! v, l读取包含标题的csv文件
read.csv(“存储路径 /文件名字.csv”)
1 p3 ?1 X$ R6 [+ X读取不包含标题的csv文件
read.csv(“存储路径 /文件名字.csv”,header=FALSE)
导入Excel数据


3 N* w' X7 Z9 K7 U% N' C4 W7 u导入spss数据
4 G" ]8 g0 _+ [( ]  N. w
6.保存数据
& n' |/ Z0 Q! O  nR格式
* M& I3 S6 t& ~4 Z; `2 Dsave(table,file=“存储路径 /table.RData”)
$ Q1 o; s0 q5 J7 }9 V8 L, acsv格式
& G. [' x/ @( @2 g2 |. L& C' r4 ?3 Twrite.csv(table,file=“存储路径 /table.csv”)
7.查看数据
全部
; \. m$ w: z4 c5 U* ?& T" ttable
前几行
3 @8 u1 v& _1 ~. Jhead(table)
" V) Z6 Y& Q- M; D% `0 y最后几行
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]

; C) s7 j, E; g9 s

+ g$ V" n1 J" H变量重命名：
library(reshape)
rename(t,c(“地区生产总值”=“GDP”))
缺失值的处理：
- U3 o! N3 y& Z4 V9 v" \, @5 }5 c检测：x<-c(2,4,6,NA)
is.na(x)
2 T3 M( Y  Q% A! X2 a1 m排除：x<-c(2,4,6,NA)
5 e( v& l2 J3 Ssum(x)
8 s) t- j% b) a6 @" f6 o+ X. [! Ay<-sum(x,na.rm=TRUE)
# t6 q& V7 R  H
: k! ]% V- g% Z, M0 J: c. l