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

1047521767

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

index<-c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户")
year2008<-c(1500,2935,4203,5929,11290)
year2009<-c(1549,3110,4502,6468,12319)
year2010<-c(1870,3621,5222,7441,14050)
year2011<-c(2001,4256,6208,8894,16783)
4 y. y4 u/ {- |% Y# P4 M# zyear2012<-c(2316,4808,7041,10142,19009)
* ?. g6 P: U% l0 ^4 Ytt<-data.frame("指标"=index,"2008年"=year2008,"2009年"=year2009,"2010年"=year2010,"2011年"=year2011,"2012年"=year2012)
4 y1 K1 K1 ~* ttt
7 i$ x: g/ T+ S* J
save(tt,file="F:/统计学/实验作业/tt.RData")
load("F:/统计学/实验作业/tt.RData")
* @' B. U& o9 |/ j6 amatrix1_1<-as.matrix(tt[,2:6])
8 o! B; v9 p5 erownames(matrix1_1)=tt[,1]
  S7 e! v3 r+ a% s2 G7 R8 ]save(matrix1_1,file="F:/统计学/实验作业/matrix.RData")
; Z! W9 S% q9 Ymatrix1_1
# r: E4 c8 \8 P, x  f% W) Q基础知识：
. p9 p! q$ c, v$ @1.为对象赋值

9 l& W1 O- }4 u; G5 X2 ~
2.对对象X进行各种计算和绘图
* S7 g; X0 u- |  K+ H
5 X1 O7 X5 M2 s: |: _- m, }  U9 L3.R包的安装和加载
查看
* ?* t9 J8 n) u* H! V2 w
, Q# X* p: J3 J$ p& v5 ]5 {在线安装所需包
( c' _: q( P6 I8 U; D6 P- c! x
, V$ @! ?& c* m- Y. p一次安装多个包
. |  {7 @* C) D; t0 E1 i) q
要使用包，需要用library()函数或者require()函数载入这个包
4.在R中录入数据
（1）用C函数产生向量
例：names<-c(“张三”,“李四”,“王五”)
6 m& G7 Y0 _2 I
（2）将向量形式的数据组织转换成数据框模式
: G3 d- R( e9 T, M# V" m2 f例：table<-data.frame(“姓名”=names，···)
table
9 M5 k  P- ~, E  }0 L: x
（3）将向量形式的数据转组织成矩阵

; c) }7 j3 E! f& s+ L（4）在R中录入数据并组织成矩阵
. X  Q& p) q. O) p
6 Z% d& K, L4 f, s0 K
% T' T, N- y+ _, _' N. |5. 读取R数据
$ U/ C8 K+ s7 Lload(“load(“存储路径 /文件名字.RData”)”)
4 X7 o1 S4 c  S& t, U读取包含标题的csv文件
8 n% x/ W8 [% Vread.csv(“存储路径 /文件名字.csv”)
7 V* d. J! T& t: |读取不包含标题的csv文件
read.csv(“存储路径 /文件名字.csv”,header=FALSE)
导入Excel数据

( w1 {% s3 ?! O' r
导入spss数据
  ]+ N5 l  R/ y" K% X: G8 g
! Y, C9 z& Z  F- Z# F' V6.保存数据
& R8 f3 f! V7 G9 ~) P( TR格式
+ l& Y7 l2 \% m( {3 _8 p1 lsave(table,file=“存储路径 /table.RData”)
' I" U. I2 h) `# l" \csv格式
& u% v# O$ k2 Z8 @- B. G& d! U& jwrite.csv(table,file=“存储路径 /table.csv”)
7.查看数据
全部
table
( q( B/ E. }0 v: P5 y; \( u, F前几行
. R. O1 G/ G9 p# I: |+ F7 H1 r2 f: Shead(table)
+ j* \. B0 L: s2 v0 b最后几行
tail(table)
8.数据排序
/ B2 [0 u+ h7 V, H* A升序：newt1<-t[order(t地 区 生 产 总 值 ) , ] 降 序 ： n e w t 2 < − t [ o r d e r ( − t 地区生产总值),] 降序：newt2<-t[order(-t地区生产总值),]降序：newt2<−t[order(−t地区生产总值),]
$ h' d1 q$ k! B: s或者：newt2<-t[order(t$地区生产总值),decreasing=TRUE]
# r6 C% c5 X& C/ N/ d
2 L# b3 T5 f% |  K

变量重命名：
/ j) W  l7 w1 }- s$ N2 Tlibrary(reshape)
, H7 t8 [/ U' O. o4 ^4 yrename(t,c(“地区生产总值”=“GDP”))
+ ?: s  `  M+ V4 Y$ e& w缺失值的处理：
: V, s7 ]; P6 V- q8 ?3 _* r检测：x<-c(2,4,6,NA)
is.na(x)
排除：x<-c(2,4,6,NA)
sum(x)
y<-sum(x,na.rm=TRUE)
1 F" q: l0 x  [0 u. E