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

1047521767

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

index<-c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户")
year2008<-c(1500,2935,4203,5929,11290)
+ C' {& ?7 y- Wyear2009<-c(1549,3110,4502,6468,12319)
year2010<-c(1870,3621,5222,7441,14050)
year2011<-c(2001,4256,6208,8894,16783)
- ^, ]9 D; x+ r% L" W, q& ~year2012<-c(2316,4808,7041,10142,19009)
: K% V4 y4 F9 jtt<-data.frame("指标"=index,"2008年"=year2008,"2009年"=year2009,"2010年"=year2010,"2011年"=year2011,"2012年"=year2012)
tt

0 y) R# I& U9 x' D! Osave(tt,file="F:/统计学/实验作业/tt.RData")
load("F:/统计学/实验作业/tt.RData")
matrix1_1<-as.matrix(tt[,2:6])
/ P6 B/ K- _) F2 d8 C, {' U/ Nrownames(matrix1_1)=tt[,1]
save(matrix1_1,file="F:/统计学/实验作业/matrix.RData")
; ?2 x3 e( J; C9 Y* ?matrix1_1
) y5 M+ z3 A* f4 k基础知识：
1.为对象赋值
1 a6 V1 y9 b4 U' o: `# [
5 R1 W5 ?: E0 t1 I8 T
2.对对象X进行各种计算和绘图
0 @8 a7 G( @0 u/ r1 z  @
1 s( I% ^4 `- z  K$ o( T. @5 M" T3.R包的安装和加载
8 Z; }8 Z7 n0 p* [( L+ ~查看

在线安装所需包
; C* F9 Y9 W# A% r& T0 h" [4 v
一次安装多个包
) P& p+ K/ v3 Y& c: n! V
3 F* H, L4 K- L要使用包，需要用library()函数或者require()函数载入这个包
4.在R中录入数据
! N3 z8 W( j0 V7 m" Y/ d" T（1）用C函数产生向量
例：names<-c(“张三”,“李四”,“王五”)
; l, o- H/ ?9 u, q  X
+ X( P9 y1 u% T2 V* e( i( T（2）将向量形式的数据组织转换成数据框模式
例：table<-data.frame(“姓名”=names，···)
; Q1 ^- j( y% y% @" R: z7 ztable
( G6 O: i) g, ^
（3）将向量形式的数据转组织成矩阵

1 H0 k. l9 C' V! X（4）在R中录入数据并组织成矩阵
- E8 M, T; W% G

! f: ^* \3 Q+ M9 L5. 读取R数据
  n+ s* _8 P! {7 U/ Vload(“load(“存储路径 /文件名字.RData”)”)
0 e# B2 l$ ]0 f5 c7 ^/ @# F读取包含标题的csv文件
read.csv(“存储路径 /文件名字.csv”)
读取不包含标题的csv文件
4 [; j# w4 |1 T& x9 nread.csv(“存储路径 /文件名字.csv”,header=FALSE)
' M1 Z$ u' n# Y1 p- T导入Excel数据

7 L5 \5 |3 _- Q1 K- C2 m8 a
3 X- z& ~8 c; V导入spss数据
1 ?* }; A& g+ Q( i/ V) \
6.保存数据
R格式
! q3 W# I- I# Rsave(table,file=“存储路径 /table.RData”)
csv格式
+ u& m! X. m* \& Jwrite.csv(table,file=“存储路径 /table.csv”)
7.查看数据
3 D, [9 u9 e1 r. |; y% B全部
/ Y9 I; O6 ?4 Gtable
+ t  X3 k% C  ~, B+ a4 V; a' o前几行
head(table)
最后几行
tail(table)
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地区生产总值),]
或者：newt2<-t[order(t$地区生产总值),decreasing=TRUE]
* f) l( u' k2 `+ ~) p1 i
# Q  C( t# a+ T) h
% L3 u4 u1 ^8 \) F) A' ~/ M6 r$ s
( U/ w6 `( S' l; ~, F/ o变量重命名：
6 Y/ \0 |: N6 X4 d" U9 |/ Nlibrary(reshape)
rename(t,c(“地区生产总值”=“GDP”))
缺失值的处理：
' z+ i, T# d# p检测：x<-c(2,4,6,NA)
is.na(x)
5 z. a( z1 ?0 S2 }8 L$ H排除：x<-c(2,4,6,NA)
; U6 ~: l$ j( jsum(x)
" B) n% w/ o1 I2 x) X' Ny<-sum(x,na.rm=TRUE)

. B; z% [- c: e2 m