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

1047521767

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

6 A. i- n7 Z' O2 r& |$ o- o7 ]) g# l; Pindex<-c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户")
+ x& P' M( ]0 B6 u2 w! Qyear2008<-c(1500,2935,4203,5929,11290)
7 t1 R) a* s) {% i, @" p$ ~year2009<-c(1549,3110,4502,6468,12319)
year2010<-c(1870,3621,5222,7441,14050)
year2011<-c(2001,4256,6208,8894,16783)
/ J% ]2 r! K  V% c% A$ ]  x0 Syear2012<-c(2316,4808,7041,10142,19009)
tt<-data.frame("指标"=index,"2008年"=year2008,"2009年"=year2009,"2010年"=year2010,"2011年"=year2011,"2012年"=year2012)
. x: z2 L5 L) \+ n/ f' dtt
! a5 h4 v0 D0 `" `3 S; y
2 u) z5 y1 K( W8 C7 J$ d5 o2 n' Rsave(tt,file="F:/统计学/实验作业/tt.RData")
: h) ]/ S: S! Q. F. |% Dload("F:/统计学/实验作业/tt.RData")
matrix1_1<-as.matrix(tt[,2:6])
* g' R7 S" {; N; K) Erownames(matrix1_1)=tt[,1]
8 @) b: I: A1 osave(matrix1_1,file="F:/统计学/实验作业/matrix.RData")
: d/ {  X* l! H0 l. Pmatrix1_1
基础知识：
; J* C7 |1 ?0 ]' q* P1.为对象赋值
) Z; `% H3 N  A8 j/ [; K5 ?3 V

. e6 n- z. n: d7 Q' g2.对对象X进行各种计算和绘图
% ?6 J+ _" |7 ]: {$ Y) k+ O
1 l1 T) O- [5 g3.R包的安装和加载
( `. H3 v6 q8 I" c9 x查看
2 V4 C  Q* T- t/ i
7 M5 S/ a# {: A在线安装所需包
& X6 d4 b9 k# i* U2 }
一次安装多个包

- J, g4 F  A# s; I3 W. x; _要使用包，需要用library()函数或者require()函数载入这个包
5 G, F' k, E3 W1 p) f* G5 h4.在R中录入数据
（1）用C函数产生向量
' c8 x3 ]+ D' `( ]: j2 h例：names<-c(“张三”,“李四”,“王五”)

（2）将向量形式的数据组织转换成数据框模式
例：table<-data.frame(“姓名”=names，···)
, S' c& S0 ^* o' i7 q; ~table
3 Y+ ]: j3 b8 V3 n0 a
& F6 D7 i: M$ M（3）将向量形式的数据转组织成矩阵
: V2 `& z, t( u) p, `2 D$ j
（4）在R中录入数据并组织成矩阵

5 E0 ~# B4 V) g) X8 i. [
0 \3 ]$ _9 n+ P# ?5 e, |5. 读取R数据
  b; L" z/ E! W# Kload(“load(“存储路径 /文件名字.RData”)”)
读取包含标题的csv文件
read.csv(“存储路径 /文件名字.csv”)
读取不包含标题的csv文件
read.csv(“存储路径 /文件名字.csv”,header=FALSE)
0 u% f. y' w5 w; c/ ]导入Excel数据
) [" I' j3 u( i1 I3 d0 m
8 T$ c/ O" V9 v* ?: g" x
导入spss数据

6.保存数据
R格式
0 i0 ]& @: r! N1 W: u; R. P0 _save(table,file=“存储路径 /table.RData”)
2 L4 v% i. c+ i) h% Fcsv格式
write.csv(table,file=“存储路径 /table.csv”)
7 \6 h$ [3 u; T0 ~0 [7.查看数据
+ M( P4 d" v" E( y) A0 i全部
6 U; s3 m: }8 n. p8 Ctable
+ W" G3 r) U3 ^* \; t前几行
$ O# s) v; G6 j" Q& Vhead(table)
最后几行
% ?( N2 S1 ~4 {/ q; E, t: Atail(table)
8.数据排序
7 B3 h# v& e4 ?& R2 N升序：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]

3 r' m% ~' x! ?0 r. c8 t4 G$ D# Z% ]  W

& ~: [  R& i5 j3 N! V: K变量重命名：
( q2 G2 y" O3 u8 T* Wlibrary(reshape)
; S1 E$ c6 G9 N: l7 e6 Hrename(t,c(“地区生产总值”=“GDP”))
& ?9 U& R5 z$ X2 U3 j缺失值的处理：
检测：x<-c(2,4,6,NA)
% n2 S& `' Y9 z; G4 p' Tis.na(x)
排除：x<-c(2,4,6,NA)
sum(x)
! G7 |7 }, A* R, M" L* ky<-sum(x,na.rm=TRUE)

7 e. s9 k% R/ q