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

1047521767

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

" f9 W+ c7 m0 _+ w; W$ |index<-c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户")
year2008<-c(1500,2935,4203,5929,11290)
year2009<-c(1549,3110,4502,6468,12319)
year2010<-c(1870,3621,5222,7441,14050)
/ G; @. }! C8 @1 L6 S0 F# o  cyear2011<-c(2001,4256,6208,8894,16783)
9 B3 G6 x' ]9 g+ c1 R. iyear2012<-c(2316,4808,7041,10142,19009)
  `) ^3 G8 E! U. c, mtt<-data.frame("指标"=index,"2008年"=year2008,"2009年"=year2009,"2010年"=year2010,"2011年"=year2011,"2012年"=year2012)
tt

7 X  R9 y! }# psave(tt,file="F:/统计学/实验作业/tt.RData")
load("F:/统计学/实验作业/tt.RData")
matrix1_1<-as.matrix(tt[,2:6])
0 U% e/ v9 C1 V" K- Yrownames(matrix1_1)=tt[,1]
save(matrix1_1,file="F:/统计学/实验作业/matrix.RData")
matrix1_1
, B+ E+ B. n2 a+ q基础知识：
1.为对象赋值

: E  T$ g: K4 v3 Q3 f9 Z
' `0 S: K3 c; d' M+ o$ h2.对对象X进行各种计算和绘图
# Y& {" l/ Q0 r; t! i: M5 u
% e4 R  E) O; c9 e1 g) w5 |% l3.R包的安装和加载
查看

在线安装所需包

; ?' n7 G$ \& D" ^0 f: M+ b一次安装多个包
+ p$ D6 ^* Z! o' e4 K
/ F5 B3 u- Q& a; ^要使用包，需要用library()函数或者require()函数载入这个包
+ l" e3 w/ C- k; {4 p3 G5 B+ Z# S4.在R中录入数据
（1）用C函数产生向量
, W; I  ^& c$ U2 v例：names<-c(“张三”,“李四”,“王五”)

/ I, T. J% L  Y8 ]7 `（2）将向量形式的数据组织转换成数据框模式
+ k$ o3 A8 p$ l: i, J例：table<-data.frame(“姓名”=names，···)
8 Y8 Q* J. s- o* p' k' `! Mtable

$ \' R7 |% i/ }0 p. J* b! d% ~（3）将向量形式的数据转组织成矩阵
7 \: ?' D6 p( @8 k% I3 f1 s
. a* e# ?7 }$ P9 z4 g3 _（4）在R中录入数据并组织成矩阵
& W5 P  H& k! r! M' }: I5 r
0 A& z, G2 J5 M' `. N% O
; Q) ~) _0 s) F5. 读取R数据
load(“load(“存储路径 /文件名字.RData”)”)
7 s+ e+ ~. k- t: U  h读取包含标题的csv文件
( `  T7 k) z2 A* H2 V- B* Iread.csv(“存储路径 /文件名字.csv”)
/ k$ b; B* G8 V, B9 n8 d7 s读取不包含标题的csv文件
read.csv(“存储路径 /文件名字.csv”,header=FALSE)
* c3 I. `( t5 M导入Excel数据
8 Z/ y8 G& f/ ~' \& P1 F

导入spss数据

) z2 g9 K- _5 h8 q  P! X/ L" z6.保存数据
R格式
save(table,file=“存储路径 /table.RData”)
csv格式
write.csv(table,file=“存储路径 /table.csv”)
7 I+ x9 b/ _9 o+ S% ?7.查看数据
+ ^& S. j1 b7 L% p9 I5 ], b全部
table
前几行
head(table)
最后几行
# W& A% X* C7 E! a% o* [tail(table)
- V7 q9 m" P/ [2 z* v8.数据排序
升序：newt1<-t[order(t地 区 生 产 总 值 ) , ] 降 序 ： n e w t 2 < − t [ o r d e r ( − t 地区生产总值),] 降序：newt2<-t[order(-t地区生产总值),]降序：newt2<−t[order(−t地区生产总值),]
# j/ D1 Y, P. H& ]. x3 g或者：newt2<-t[order(t$地区生产总值),decreasing=TRUE]


: B6 l7 k3 m- c9 J! G1 ^
变量重命名：
library(reshape)
4 [  l5 B! L' J$ ]7 J0 Irename(t,c(“地区生产总值”=“GDP”))
缺失值的处理：
检测：x<-c(2,4,6,NA)
, b( {# o! F) ^$ m+ wis.na(x)
排除：x<-c(2,4,6,NA)
" k$ D9 E2 Q8 y$ `( |sum(x)
+ m! [# B5 Z9 g1 Py<-sum(x,na.rm=TRUE)
' z1 ]- h/ w7 w+ ^$ i1 j