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

1047521767

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

3 `0 B6 Q( l- E5 nindex<-c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户")
year2008<-c(1500,2935,4203,5929,11290)
9 g/ }; f! O' D9 @, f* ^2 q. U4 P& N1 Zyear2009<-c(1549,3110,4502,6468,12319)
: W; u7 m' S0 D6 G; c3 e- ]; |2 Qyear2010<-c(1870,3621,5222,7441,14050)
' R! n0 n- h  ?) `2 m( e  tyear2011<-c(2001,4256,6208,8894,16783)
  t9 `" S' T. ~1 H4 Vyear2012<-c(2316,4808,7041,10142,19009)
; A: ^0 r, K& u+ r$ Utt<-data.frame("指标"=index,"2008年"=year2008,"2009年"=year2009,"2010年"=year2010,"2011年"=year2011,"2012年"=year2012)
tt

save(tt,file="F:/统计学/实验作业/tt.RData")
load("F:/统计学/实验作业/tt.RData")
matrix1_1<-as.matrix(tt[,2:6])
5 V& {6 U; h8 P. L/ _6 Krownames(matrix1_1)=tt[,1]
  Q/ f/ H+ t& |. esave(matrix1_1,file="F:/统计学/实验作业/matrix.RData")
matrix1_1
! ^# k) ]7 ]* `. S: i基础知识：
1.为对象赋值
5 G$ X/ W# J7 i. R' [
$ _! P' x/ A: g' o( H: v5 _
2.对对象X进行各种计算和绘图
) j7 T, ^* k; T+ O/ E6 ^6 F
: n/ C5 U* m1 w+ d% L4 j3.R包的安装和加载
查看
. H. O% u5 Y7 s( a3 x
0 n( Q3 j1 ~  o2 I) z: n在线安装所需包

+ {+ Y. ^- @: v6 O一次安装多个包
1 k' n6 x8 L! I, w
要使用包，需要用library()函数或者require()函数载入这个包
4.在R中录入数据
! e* a- x$ O' h* A（1）用C函数产生向量
例：names<-c(“张三”,“李四”,“王五”)
6 I$ `, d) ?5 T
" }( _% G. t9 O（2）将向量形式的数据组织转换成数据框模式
7 P! v/ C' x3 g例：table<-data.frame(“姓名”=names，···)
table

（3）将向量形式的数据转组织成矩阵
6 ]9 m9 Z, }, Z0 B$ p3 ?
; I, b1 o( B: E  R0 {* F6 P$ M) g9 }$ {（4）在R中录入数据并组织成矩阵
; Y3 e/ Q6 R" M% j* c: |  c) r

) [4 y8 n, ^* Z. s" s) W  C$ e7 \4 U# [: \5. 读取R数据
& P6 L- w- |$ j* c0 {load(“load(“存储路径 /文件名字.RData”)”)
读取包含标题的csv文件
8 ]) k: n& \# T# k; f/ j* @, vread.csv(“存储路径 /文件名字.csv”)
读取不包含标题的csv文件
read.csv(“存储路径 /文件名字.csv”,header=FALSE)
导入Excel数据


6 S! m/ p3 |+ |1 P* t0 F+ S$ K导入spss数据
6 {2 L- x: X- X2 l  p# p! Y
6.保存数据
, s; |" K1 Z$ ]* t) xR格式
save(table,file=“存储路径 /table.RData”)
! o4 Y& c3 t; ~( v$ w! x8 x9 ycsv格式
write.csv(table,file=“存储路径 /table.csv”)
7.查看数据
- x8 L  Q% u8 P& p2 p$ x" b全部
table
4 H, w1 X) ~7 s* d前几行
) l' ?" Z+ ^5 ahead(table)
最后几行
0 e; m7 ?2 `4 f7 ~" {3 t6 ^tail(table)
8.数据排序
( U; c" a' p( V: t& ?, [7 D" A! s升序：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]

% N2 w% g! m$ P* `2 d& Y" B
  J, C) w! W. B: x5 j
变量重命名：
library(reshape)
rename(t,c(“地区生产总值”=“GDP”))
缺失值的处理：
检测：x<-c(2,4,6,NA)
is.na(x)
$ x5 b/ W* {" n% S& a) N9 c. I排除：x<-c(2,4,6,NA)
8 R" _1 h( D3 S- ~. g4 msum(x)
y<-sum(x,na.rm=TRUE)
& w  a" }$ f' F) @6 L' k1 e- c
- S5 L: V7 K1 s0 X- u! v. e; |