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

1047521767

R语言录入数据保存格式转换矩阵
( X5 O8 ^0 q& \- B
index<-c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户")
year2008<-c(1500,2935,4203,5929,11290)
  b% c/ Y0 E' f& x, r6 B4 Nyear2009<-c(1549,3110,4502,6468,12319)
year2010<-c(1870,3621,5222,7441,14050)
year2011<-c(2001,4256,6208,8894,16783)
year2012<-c(2316,4808,7041,10142,19009)
tt<-data.frame("指标"=index,"2008年"=year2008,"2009年"=year2009,"2010年"=year2010,"2011年"=year2011,"2012年"=year2012)
tt

7 ?9 x" h, r  }7 `save(tt,file="F:/统计学/实验作业/tt.RData")
load("F:/统计学/实验作业/tt.RData")
matrix1_1<-as.matrix(tt[,2:6])
2 L6 P+ n9 J# ~8 arownames(matrix1_1)=tt[,1]
save(matrix1_1,file="F:/统计学/实验作业/matrix.RData")
matrix1_1
& v! f8 Y3 q( M4 {$ \  B) N1 O基础知识：
/ T: t2 f5 ^. S" u% F1.为对象赋值
! ]" o: b3 p9 u) }3 Q
& Y, o9 ~1 o, ?; [1 S
+ D* b7 \' A# D' D% g7 d: W2.对对象X进行各种计算和绘图

( M# P4 ]2 C) j5 d3.R包的安装和加载
: c4 t- o# h1 h& ~" S" I+ t9 J查看
  M+ D" _; x8 W/ K+ l# ?- f
在线安装所需包

一次安装多个包
: ?- W! p. d7 y0 L% S
8 z: R- ~8 x& r! k要使用包，需要用library()函数或者require()函数载入这个包
4.在R中录入数据
（1）用C函数产生向量
例：names<-c(“张三”,“李四”,“王五”)
7 n5 J/ \0 ?0 g7 O* c& R
（2）将向量形式的数据组织转换成数据框模式
7 O  r9 Z/ ]' b4 {; q6 R/ O# ^8 [例：table<-data.frame(“姓名”=names，···)
table
7 W' Q" \* e6 K# y  Y5 d
（3）将向量形式的数据转组织成矩阵

（4）在R中录入数据并组织成矩阵
2 S  q2 n! J6 N$ ^. L8 l6 _9 g
# `( [/ V) G1 ]  f1 C- O1 V
& Z# R* q, d" B5 |5. 读取R数据
* P$ g, v+ g" g, t% r5 N, [6 gload(“load(“存储路径 /文件名字.RData”)”)
读取包含标题的csv文件
read.csv(“存储路径 /文件名字.csv”)
读取不包含标题的csv文件
0 u1 K8 q' p4 v1 Y4 Xread.csv(“存储路径 /文件名字.csv”,header=FALSE)
) ?, g4 c( g1 c# s* L( L导入Excel数据
% j3 L5 |$ [$ J+ X" b6 x8 M

* b6 u1 p$ @% v! h% C- z9 w导入spss数据

" |6 h$ r! Q) ^- c  {1 Y! z) ^6.保存数据
R格式
3 k3 Z: N7 X/ c. A4 x2 Csave(table,file=“存储路径 /table.RData”)
6 v' }9 @! g$ G. }csv格式
% p2 t  J  |5 V$ T! j# j: k- Vwrite.csv(table,file=“存储路径 /table.csv”)
" }5 e1 o, ^/ |4 i! Y7.查看数据
, q9 V# y/ {% J" a% j  W全部
0 G# k8 q7 _" j0 ztable
/ K+ K2 l( o8 [前几行
head(table)
  h% l' j! ?, l: C$ m+ D  W最后几行
$ a0 v6 e7 b6 {: t" o* ytail(table)
2 D% w) x! g: f$ k8.数据排序
: [+ [! @- A6 O+ }& D7 _* ]升序：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* r7 M4 K0 q  n
. x" W  I! d/ t( B( X( p4 O3 c# d7 a变量重命名：
% g2 a+ Z2 o. h! E! Alibrary(reshape)
4 G: h8 o( ]- O$ z+ ^rename(t,c(“地区生产总值”=“GDP”))
缺失值的处理：
* z3 C3 B& V) }# |* H# [4 O检测：x<-c(2,4,6,NA)
3 O; f0 D/ R7 p) ~is.na(x)
排除：x<-c(2,4,6,NA)
1 l9 H* i% z+ C) o4 f9 Ssum(x)
y<-sum(x,na.rm=TRUE)
- W: Z: Y, @) p2 I0 f( G" j