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

1047521767

R语言录入数据保存格式转换矩阵
6 K/ |* ^& f. z9 E* K- T8 }: ?) }; k; k- X
index<-c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户")
5 ?8 c$ O8 s0 s5 \1 Nyear2008<-c(1500,2935,4203,5929,11290)
7 w$ G1 T$ W' K# byear2009<-c(1549,3110,4502,6468,12319)
year2010<-c(1870,3621,5222,7441,14050)
+ {" c# s  P6 ]7 B) y8 Nyear2011<-c(2001,4256,6208,8894,16783)
  E: q3 D$ v4 a# ~year2012<-c(2316,4808,7041,10142,19009)
6 U; M' N5 t* s6 k0 X) Y& H' O3 {tt<-data.frame("指标"=index,"2008年"=year2008,"2009年"=year2009,"2010年"=year2010,"2011年"=year2011,"2012年"=year2012)
tt

2 d8 Q5 n7 _2 H9 Ssave(tt,file="F:/统计学/实验作业/tt.RData")
load("F:/统计学/实验作业/tt.RData")
2 @8 O: o/ ]2 R' W6 @2 w# V+ lmatrix1_1<-as.matrix(tt[,2:6])
rownames(matrix1_1)=tt[,1]
save(matrix1_1,file="F:/统计学/实验作业/matrix.RData")
# g. j9 K) {# vmatrix1_1
& D# w) O3 X  _$ @7 `基础知识：
9 y: E( e: \/ q' X9 U" v1.为对象赋值

7 P5 j/ ?, r  s) D" s
2.对对象X进行各种计算和绘图
: C# h- P$ }* q1 W$ ~% O
! S$ k& g/ X# ]0 e! a3.R包的安装和加载
3 @. X1 x# P; M: y% x1 _8 [/ J5 D查看
; S+ l: G! u+ N+ |: E
在线安装所需包
- N- x' O3 h1 W
一次安装多个包

要使用包，需要用library()函数或者require()函数载入这个包
4.在R中录入数据
& X$ S1 T% q, F- m7 x+ [* u2 q（1）用C函数产生向量
例：names<-c(“张三”,“李四”,“王五”)

（2）将向量形式的数据组织转换成数据框模式
6 F' _) u! r; P* x& |# k例：table<-data.frame(“姓名”=names，···)
table

（3）将向量形式的数据转组织成矩阵
: P4 I: Z& c" ~: a
（4）在R中录入数据并组织成矩阵


% e1 x  \6 `: A6 V- R& ^/ M5. 读取R数据
. Y3 J7 q1 I" C8 z5 kload(“load(“存储路径 /文件名字.RData”)”)
读取包含标题的csv文件
read.csv(“存储路径 /文件名字.csv”)
- u' @2 j" Z3 N5 s5 R4 S: T读取不包含标题的csv文件
read.csv(“存储路径 /文件名字.csv”,header=FALSE)
导入Excel数据

2 F  [2 H- U$ R* R( r
导入spss数据

6.保存数据
* K1 ]! I% C. }" F7 Y* QR格式
% R  t  v6 \, S5 s( [9 I2 @: Wsave(table,file=“存储路径 /table.RData”)
csv格式
' s# ]) i3 X$ cwrite.csv(table,file=“存储路径 /table.csv”)
' C& D) I, y( _) ~0 e2 m7.查看数据
全部
table
- g3 a* Q" }. r前几行
6 d4 V" {' @2 W" ]% ?head(table)
最后几行
# g" F4 Y  b2 |tail(table)
+ ]8 y8 `" n9 ]) i, W8.数据排序
, K! {. j( E0 w8 }+ W, _2 X升序：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]
' l4 d8 A. V; P! `# S5 J


& B, C: f* g8 ~变量重命名：
library(reshape)
8 C4 N7 M3 n# jrename(t,c(“地区生产总值”=“GDP”))
* S0 H/ {2 ]# K1 b! @缺失值的处理：
检测：x<-c(2,4,6,NA)
is.na(x)
排除：x<-c(2,4,6,NA)
3 o3 n$ F7 F3 I# J4 R) ysum(x)
  |/ [: K1 A; P' D  F; Sy<-sum(x,na.rm=TRUE)
7 S& m( L1 z6 a