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

1047521767

R语言录入数据保存格式转换矩阵
( |% L& z$ V1 `/ Q& I
) @8 F& D/ [9 \1 [9 Lindex<-c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户")
% ~& t+ w% ~5 S: Dyear2008<-c(1500,2935,4203,5929,11290)
year2009<-c(1549,3110,4502,6468,12319)
" L/ t4 B8 I" ~9 ^1 Qyear2010<-c(1870,3621,5222,7441,14050)
0 w  t2 s' \7 ]4 l' q" Oyear2011<-c(2001,4256,6208,8894,16783)
& N) y7 x4 k7 |1 Q, u' x  t0 ^year2012<-c(2316,4808,7041,10142,19009)
# L0 f: S% p! }( _( o$ l2 R$ P( c& Itt<-data.frame("指标"=index,"2008年"=year2008,"2009年"=year2009,"2010年"=year2010,"2011年"=year2011,"2012年"=year2012)
tt
" @- ~9 O/ G; X8 W4 }
9 P! B$ ~7 D* U  E3 i" _' xsave(tt,file="F:/统计学/实验作业/tt.RData")
& z( z/ F+ D& Y1 ?7 Kload("F:/统计学/实验作业/tt.RData")
matrix1_1<-as.matrix(tt[,2:6])
0 i/ r4 E# m# z" u7 ~rownames(matrix1_1)=tt[,1]
save(matrix1_1,file="F:/统计学/实验作业/matrix.RData")
matrix1_1
基础知识：
1.为对象赋值
7 l! X7 V: Q4 Z% U+ D& {1 u  b
4 @# q4 F9 o+ _0 R! c4 H1 g
. I9 c7 A% B) \; I  X. X2.对对象X进行各种计算和绘图

3.R包的安装和加载
7 ~" y* W4 [( Q# N% R查看

在线安装所需包

7 Y% @! a+ R  e9 d7 J* _一次安装多个包
" Y3 N, `9 G4 C5 I$ T# a- `
5 w5 k: g9 j- F$ @( {要使用包，需要用library()函数或者require()函数载入这个包
5 p" S4 q% y. H+ u4.在R中录入数据
（1）用C函数产生向量
例：names<-c(“张三”,“李四”,“王五”)

8 m( p7 }) f. r0 |（2）将向量形式的数据组织转换成数据框模式
例：table<-data.frame(“姓名”=names，···)
' G5 ^, f3 w# J( y  b/ ]( etable

（3）将向量形式的数据转组织成矩阵

（4）在R中录入数据并组织成矩阵

! F! W/ M# `4 y+ O- b. B, N
, A+ t5 G5 b* H2 i. n. t& ?5. 读取R数据
6 ]$ Z* W( P1 O: X8 ^: B% v/ \load(“load(“存储路径 /文件名字.RData”)”)
读取包含标题的csv文件
5 M0 ?  p- _* f3 q0 X' t8 K# [read.csv(“存储路径 /文件名字.csv”)
* n: ^$ \3 \* w) J1 S! r读取不包含标题的csv文件
read.csv(“存储路径 /文件名字.csv”,header=FALSE)
导入Excel数据

6 i2 D! y  A( H3 O9 D/ @8 h
导入spss数据
+ |2 u( S' d. C; B. p; Y6 O
* j4 ]7 j/ N2 s# z6.保存数据
- Y* U4 q) s, v) uR格式
$ F" m2 H) d; L3 O2 Qsave(table,file=“存储路径 /table.RData”)
/ G" ^9 q! o! O% Ocsv格式
write.csv(table,file=“存储路径 /table.csv”)
7.查看数据
全部
table
: }" u4 o& Z* u前几行
, ^6 Q: |# g* b2 V* ~head(table)
最后几行
3 Q' G5 s* |6 Q6 a9 g6 Rtail(table)
5 ?+ ]& B# I6 r; m- M" ^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地区生产总值),]
; T. p/ k; j5 s9 _1 K* k* s0 r# b! `或者：newt2<-t[order(t$地区生产总值),decreasing=TRUE]


5 T6 E5 ]! }3 U  x/ x/ Z
& A% N9 s( r( C变量重命名：
2 `% V% t  C# ~5 U0 {- N/ @library(reshape)
rename(t,c(“地区生产总值”=“GDP”))
1 p( I5 @7 H- R, [4 F, @缺失值的处理：
( B0 _" K3 x8 S) J7 I( P% X# ~" N检测：x<-c(2,4,6,NA)
is.na(x)
排除：x<-c(2,4,6,NA)
sum(x)
6 e7 |1 ^7 |9 w/ w0 h- I9 Ty<-sum(x,na.rm=TRUE)
, Y2 y, @* r! Q- [# ?( J" J8 L