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

1047521767

R语言录入数据保存格式转换矩阵
9 L+ N& |1 i5 ?+ l
. M. W5 o4 [  jindex<-c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户")
year2008<-c(1500,2935,4203,5929,11290)
year2009<-c(1549,3110,4502,6468,12319)
4 \! ^: X8 V, F. O3 ?+ kyear2010<-c(1870,3621,5222,7441,14050)
year2011<-c(2001,4256,6208,8894,16783)
  I0 h0 R, _- A. V" C" h; }& E8 v8 Ayear2012<-c(2316,4808,7041,10142,19009)
tt<-data.frame("指标"=index,"2008年"=year2008,"2009年"=year2009,"2010年"=year2010,"2011年"=year2011,"2012年"=year2012)
tt
/ c! F1 ~0 y& ~2 U+ N  Q& p8 ~8 a
. S- Z7 W. @0 z3 U* Ssave(tt,file="F:/统计学/实验作业/tt.RData")
, H8 p# D7 \8 h) d( O& K& Z1 |load("F:/统计学/实验作业/tt.RData")
matrix1_1<-as.matrix(tt[,2:6])
rownames(matrix1_1)=tt[,1]
save(matrix1_1,file="F:/统计学/实验作业/matrix.RData")
9 q. s% G% M; L& jmatrix1_1
" `, R7 V+ \7 B- l/ w基础知识：
. o" l) ]7 d/ _4 e1.为对象赋值
; b. b: I' Q/ {+ b# Z7 ~

2.对对象X进行各种计算和绘图
5 Z; ~3 U1 x2 t9 [, s
3.R包的安装和加载
4 H4 q5 ]# q( f8 V) c' [查看
# `' C( j+ }/ X( W8 G
在线安装所需包

0 N" m7 N3 F- c* ~( w( A6 ?一次安装多个包

要使用包，需要用library()函数或者require()函数载入这个包
( w0 [1 d" T* U" P* K+ q4.在R中录入数据
（1）用C函数产生向量
例：names<-c(“张三”,“李四”,“王五”)

（2）将向量形式的数据组织转换成数据框模式
6 k& o! F5 h6 K6 F6 G  j例：table<-data.frame(“姓名”=names，···)
5 [" X% n+ s; a5 w5 U+ }table
4 e7 B! n3 H" Q* G* }
（3）将向量形式的数据转组织成矩阵

& N( Q* r4 E/ ^( @7 |' a2 C' X8 S（4）在R中录入数据并组织成矩阵

( Q6 a3 m% o6 S% n) d: h
# c' w: R- l7 Q5 @5. 读取R数据
load(“load(“存储路径 /文件名字.RData”)”)
3 n8 r( B- \& D9 W读取包含标题的csv文件
read.csv(“存储路径 /文件名字.csv”)
读取不包含标题的csv文件
) k, u; |7 |- }+ kread.csv(“存储路径 /文件名字.csv”,header=FALSE)
: u% T0 x% _6 k导入Excel数据
4 K3 E* Q7 s9 }2 k7 W2 k( c
/ ^, y7 c4 Y% R) H* y7 v) N; v
导入spss数据
. t  M. W8 T# J+ x* t0 c8 n6 W  z: q
6.保存数据
& e) }; Q/ m; `' z( ^* P+ KR格式
save(table,file=“存储路径 /table.RData”)
csv格式
$ M5 o( v* v7 Awrite.csv(table,file=“存储路径 /table.csv”)
0 b: L6 w& u# V, M  U6 [: O7 a7.查看数据
全部
' |1 P: h1 ~& [! C( w0 ctable
6 o8 {1 j. n2 {; z* q$ O4 o前几行
7 i: T# V& q  z! F% E! o( Vhead(table)
& u/ a+ h2 h( H" S* D最后几行
tail(table)
4 [3 w( ^6 d! m6 S8 ]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]
: Y* j5 a% |# v0 Y' _

8 g0 ]8 b1 D7 z" |
( R# f; K2 m, N# L( X& i变量重命名：
library(reshape)
3 [% |# L* a. n( U; [1 B6 E: p4 n; Urename(t,c(“地区生产总值”=“GDP”))
缺失值的处理：
检测：x<-c(2,4,6,NA)
5 C( y% n; w, R+ b) zis.na(x)
排除：x<-c(2,4,6,NA)
sum(x)
y<-sum(x,na.rm=TRUE)