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

1047521767

R语言录入数据保存格式转换矩阵
( `% Z/ t. r1 a1 |' B1 C
index<-c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户")
year2008<-c(1500,2935,4203,5929,11290)
year2009<-c(1549,3110,4502,6468,12319)
- _( ]5 ^$ q- Y9 {* M9 D# P9 Wyear2010<-c(1870,3621,5222,7441,14050)
: i8 A" }5 Q, W$ g+ ~& Hyear2011<-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)
9 ]5 O& j  W2 ]' V5 i" V: Mtt
( i1 L7 ~3 S' l
save(tt,file="F:/统计学/实验作业/tt.RData")
' e+ y! h! N, E8 N" {, i$ Dload("F:/统计学/实验作业/tt.RData")
matrix1_1<-as.matrix(tt[,2:6])
rownames(matrix1_1)=tt[,1]
1 e" L. P0 Z7 }1 R9 E# f* I  r2 u6 H) Usave(matrix1_1,file="F:/统计学/实验作业/matrix.RData")
( G% v) M4 Z1 a6 m& k. X8 nmatrix1_1
8 Q9 ~4 E; y! ~* s. z+ l! w基础知识：
1.为对象赋值


0 P4 _- H1 c! K+ e; O2.对对象X进行各种计算和绘图

: D( H2 ~1 @, o; Y6 O3.R包的安装和加载
查看
5 K$ N1 [! b$ G
+ j( ?1 _2 X3 \* o  F7 k在线安装所需包

一次安装多个包

要使用包，需要用library()函数或者require()函数载入这个包
2 ?! D* H! P2 e8 T4.在R中录入数据
/ Z, S/ h' ?: s  f; p, L（1）用C函数产生向量
例：names<-c(“张三”,“李四”,“王五”)

（2）将向量形式的数据组织转换成数据框模式
例：table<-data.frame(“姓名”=names，···)
table

0 @' R9 P1 g. D（3）将向量形式的数据转组织成矩阵
* g: }+ G" B* s2 o" ?
1 h, S+ N0 c# o% k9 I" G（4）在R中录入数据并组织成矩阵


( J+ s9 L  _0 f7 J  ^6 @5. 读取R数据
load(“load(“存储路径 /文件名字.RData”)”)
读取包含标题的csv文件
read.csv(“存储路径 /文件名字.csv”)
9 N6 s( ~4 S7 b' d+ u读取不包含标题的csv文件
read.csv(“存储路径 /文件名字.csv”,header=FALSE)
导入Excel数据

4 c! n  i" z" ~# `; h6 D
( Z' q1 F/ M  w; V导入spss数据

4 g' H5 k" Y& }3 I( Y8 ^* _6.保存数据
0 v  \# ]% ?" `/ `, m6 _* JR格式
save(table,file=“存储路径 /table.RData”)
csv格式
write.csv(table,file=“存储路径 /table.csv”)
7.查看数据
全部
- V/ N% h: B8 G9 H  ?3 Dtable
前几行
head(table)
8 Q- R- M. M! U5 q/ o最后几行
8 c1 H' x, D( mtail(table)
8.数据排序
% Y9 A' F' i/ O; T3 z# H升序：newt1<-t[order(t地 区 生 产 总 值 ) , ] 降 序 ： n e w t 2 < − t [ o r d e r ( − t 地区生产总值),] 降序：newt2<-t[order(-t地区生产总值),]降序：newt2<−t[order(−t地区生产总值),]
4 @0 L1 \; a# W( h/ Q; R: p& M或者：newt2<-t[order(t$地区生产总值),decreasing=TRUE]
3 i4 d8 q4 w9 l" u  G1 R; x
- t) B- H/ X/ {! B9 T2 G( Q" S
2 V1 H  K- f. v& ^. a
" f! L6 ^- H4 I9 G9 }: F  O4 ~变量重命名：
library(reshape)
rename(t,c(“地区生产总值”=“GDP”))
缺失值的处理：
; L) [2 n& k- C. d) h" t检测：x<-c(2,4,6,NA)
" D! G; ~2 f: d- Q( uis.na(x)
排除：x<-c(2,4,6,NA)
sum(x)
y<-sum(x,na.rm=TRUE)
! h" u3 j" Y2 b( b9 S