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

1047521767

R语言录入数据保存格式转换矩阵
7 o5 a$ }( e; S# m! W3 A
index<-c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户")
year2008<-c(1500,2935,4203,5929,11290)
year2009<-c(1549,3110,4502,6468,12319)
; n2 W" u& i  u  A5 t% Dyear2010<-c(1870,3621,5222,7441,14050)
- J3 }2 ^, s# C( t- o) u' }( w8 Ayear2011<-c(2001,4256,6208,8894,16783)
7 x5 U: b' Q/ C6 g7 D+ C% K* \year2012<-c(2316,4808,7041,10142,19009)
tt<-data.frame("指标"=index,"2008年"=year2008,"2009年"=year2009,"2010年"=year2010,"2011年"=year2011,"2012年"=year2012)
) _5 W0 C5 G5 h  d5 ?. `tt

save(tt,file="F:/统计学/实验作业/tt.RData")
load("F:/统计学/实验作业/tt.RData")
6 b8 t2 M& M3 {* Z4 \6 }matrix1_1<-as.matrix(tt[,2:6])
rownames(matrix1_1)=tt[,1]
save(matrix1_1,file="F:/统计学/实验作业/matrix.RData")
matrix1_1
' j% g) _, l% G, E6 C( w8 f+ L% }基础知识：
1 F! b' W. I: |  Z1.为对象赋值
+ {: l1 b) o3 l; |8 Z) b

* ~" v% k$ j3 c$ ?- C  T2.对对象X进行各种计算和绘图

3.R包的安装和加载
' `6 t- ~1 m; d9 q7 N( q9 @( D) I查看
+ X) I% i8 R5 c3 s" T6 u$ @
在线安装所需包
. s) g- o/ v  u% j; |4 c
( o: L2 a3 B; m' q1 t一次安装多个包

0 C) B+ G3 Q% |3 ^要使用包，需要用library()函数或者require()函数载入这个包
5 v: W* L8 A6 R4.在R中录入数据
（1）用C函数产生向量
+ K% Z  r5 Q" t& `4 v5 i) g例：names<-c(“张三”,“李四”,“王五”)

（2）将向量形式的数据组织转换成数据框模式
例：table<-data.frame(“姓名”=names，···)
1 U) F, N' s& ~" h* T; xtable
7 X$ G* j2 x* D- a5 d  U4 y
6 f4 q. l1 r6 \+ p3 t9 k" D（3）将向量形式的数据转组织成矩阵

) J( m+ [& z5 t, z/ f7 P（4）在R中录入数据并组织成矩阵
4 m, X1 R4 ]- F* {5 B

5. 读取R数据
load(“load(“存储路径 /文件名字.RData”)”)
# Y  O+ I$ x: q, ^9 {& Y读取包含标题的csv文件
4 l! l9 W' F6 ]; e# M# p+ i8 oread.csv(“存储路径 /文件名字.csv”)
5 ]6 C. Y; j3 Z9 k读取不包含标题的csv文件
read.csv(“存储路径 /文件名字.csv”,header=FALSE)
导入Excel数据
- H; e5 E/ x! H

) J# S& r, G2 z8 }! k; o- n导入spss数据
/ K0 Z- e1 H* W; [. {
1 g3 T! e" r* k% |" P* F$ t8 M8 z6.保存数据
, C. q: w# ^1 ~$ E1 Z( uR格式
save(table,file=“存储路径 /table.RData”)
+ V. U& s1 Y! y* y# gcsv格式
) x' c1 G; h. m9 ]' a; lwrite.csv(table,file=“存储路径 /table.csv”)
7.查看数据
* X4 z+ }# w3 A" u- N; T全部
table
前几行
head(table)
) F$ F5 N, n0 c6 ]1 H4 b最后几行
tail(table)
. W7 V3 \8 L2 W' U% K! g2 @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地区生产总值),]
) L; {- [1 N! q或者：newt2<-t[order(t$地区生产总值),decreasing=TRUE]


2 F7 F9 @$ T+ {2 Y/ t2 @
变量重命名：
library(reshape)
rename(t,c(“地区生产总值”=“GDP”))
! g+ d) A5 o! Y; u缺失值的处理：
+ Z, ]' A- Q1 w7 E  ?* |1 Q检测：x<-c(2,4,6,NA)
, n5 X1 }8 v4 P3 I2 R$ f1 |7 Q, V4 iis.na(x)
2 r3 X$ O0 \9 \2 F) Q" h排除：x<-c(2,4,6,NA)
sum(x)
y<-sum(x,na.rm=TRUE)