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

1047521767

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

index<-c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户")
1 `( P2 j: \0 a0 Fyear2008<-c(1500,2935,4203,5929,11290)
year2009<-c(1549,3110,4502,6468,12319)
year2010<-c(1870,3621,5222,7441,14050)
  U3 @( E# }8 c2 P3 Jyear2011<-c(2001,4256,6208,8894,16783)
; U( w, m  L! N% Tyear2012<-c(2316,4808,7041,10142,19009)
tt<-data.frame("指标"=index,"2008年"=year2008,"2009年"=year2009,"2010年"=year2010,"2011年"=year2011,"2012年"=year2012)
9 G. Z  I5 t" Att

save(tt,file="F:/统计学/实验作业/tt.RData")
  c( m$ [- A8 `4 T# x5 b3 ^load("F:/统计学/实验作业/tt.RData")
" V7 @4 R* N4 a6 Wmatrix1_1<-as.matrix(tt[,2:6])
1 t* T" Q+ ~+ S1 yrownames(matrix1_1)=tt[,1]
1 H) @- U1 A: |/ zsave(matrix1_1,file="F:/统计学/实验作业/matrix.RData")
& e9 E2 S* B+ j1 T# _6 ematrix1_1
: E  I- v# s9 x+ [" u基础知识：
  u; K0 h0 v0 f- n1.为对象赋值
# X/ a4 X" U  C; [

2.对对象X进行各种计算和绘图
4 o7 N& y0 O& m# i
4 M: G& _$ q: t8 t. g8 w- X7 L3.R包的安装和加载
查看

# P. X5 Q. B8 P/ a( v3 Y& D: u8 a* X在线安装所需包

一次安装多个包
& Q- U6 V, `7 [" C& T
+ }; h" v  U3 d& r要使用包，需要用library()函数或者require()函数载入这个包
1 D6 m3 j  e, B5 v- A4.在R中录入数据
（1）用C函数产生向量
9 d$ ]" ^* e5 b* [: U例：names<-c(“张三”,“李四”,“王五”)

( F3 b8 w/ F7 x2 ^# V( Q（2）将向量形式的数据组织转换成数据框模式
例：table<-data.frame(“姓名”=names，···)
- z, [) e, f  K$ `( ^% e4 A# Ctable

$ F* G1 U# p1 d4 @1 \% L; M（3）将向量形式的数据转组织成矩阵
/ a  Q; Y! x$ z* f
2 X4 h' I6 I) d2 H& S9 K: o（4）在R中录入数据并组织成矩阵
/ I' G& }9 R- @. P
. i" A" |+ w0 E% V( P8 o% r
5. 读取R数据
" X8 ?( M5 s* D1 b3 w5 c, b, W. zload(“load(“存储路径 /文件名字.RData”)”)
7 q( S- \7 F. x" l, K' `, M; b读取包含标题的csv文件
+ f. I6 P* h* k) v$ ~1 m) Lread.csv(“存储路径 /文件名字.csv”)
读取不包含标题的csv文件
5 C8 M1 Y2 a* z6 {! lread.csv(“存储路径 /文件名字.csv”,header=FALSE)
5 O/ x+ N5 D. u+ E% R导入Excel数据
/ Q  N4 Y" M  S3 K4 R" E# K

导入spss数据
5 v5 s- _, e: ~0 h" J
6.保存数据
R格式
save(table,file=“存储路径 /table.RData”)
csv格式
write.csv(table,file=“存储路径 /table.csv”)
7.查看数据
全部
4 ?1 o* B; h4 J  g: H8 C2 gtable
0 q0 l) v( Q6 t! v- f4 ^前几行
+ i8 l* i! J6 f; j3 S% G, g" Q6 Mhead(table)
最后几行
tail(table)
1 f3 [) E4 O" D7 s% k2 |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地区生产总值),]
  M) E+ f0 _# w3 f7 ^! R" l; j或者：newt2<-t[order(t$地区生产总值),decreasing=TRUE]
; Q  R+ f* ?' [) }4 S5 e9 f& `


% J% l" H# Y9 u: U3 @: d& e变量重命名：
1 f8 C, P& V3 U7 P$ Wlibrary(reshape)
rename(t,c(“地区生产总值”=“GDP”))
. o* i& c! f$ j8 R+ g* M# R5 S缺失值的处理：
: p8 |6 W  V5 k( g5 o0 S! ]检测：x<-c(2,4,6,NA)
is.na(x)
排除：x<-c(2,4,6,NA)
sum(x)
y<-sum(x,na.rm=TRUE)