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

1047521767

R语言录入数据保存格式转换矩阵
0 q" a; ?0 @! a0 B- w# ]( O
index<-c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户")
) x  c( l9 _2 gyear2008<-c(1500,2935,4203,5929,11290)
( I& w2 y, b4 A5 u1 ]: \8 V1 i/ U% uyear2009<-c(1549,3110,4502,6468,12319)
year2010<-c(1870,3621,5222,7441,14050)
6 N$ S0 b+ i9 x: Cyear2011<-c(2001,4256,6208,8894,16783)
6 |/ X# Q& L/ b8 X5 i! [year2012<-c(2316,4808,7041,10142,19009)
tt<-data.frame("指标"=index,"2008年"=year2008,"2009年"=year2009,"2010年"=year2010,"2011年"=year2011,"2012年"=year2012)
tt
+ E. O6 e* C5 `: q, \
save(tt,file="F:/统计学/实验作业/tt.RData")
- T1 b0 `6 l" `! ~load("F:/统计学/实验作业/tt.RData")
matrix1_1<-as.matrix(tt[,2:6])
rownames(matrix1_1)=tt[,1]
save(matrix1_1,file="F:/统计学/实验作业/matrix.RData")
matrix1_1
基础知识：
1.为对象赋值
! g5 F4 o4 v2 u# ^  `8 f
9 Y: y5 i3 I* B) V
! N( r4 v. _. I$ J, g2.对对象X进行各种计算和绘图
# ^/ K: v/ _0 d; v; i* X/ |
3.R包的安装和加载
( U$ j$ D9 y8 W查看
4 O# i3 ~/ C# @2 x( V7 B7 f% U% n
在线安装所需包

一次安装多个包

* L5 D0 G( I5 L) \( y要使用包，需要用library()函数或者require()函数载入这个包
4.在R中录入数据
（1）用C函数产生向量
例：names<-c(“张三”,“李四”,“王五”)

* `( A2 S* j% N0 u# m* @! p+ S（2）将向量形式的数据组织转换成数据框模式
- x( C* O" H! E) F7 l8 h例：table<-data.frame(“姓名”=names，···)
table

: [" Y+ M$ K; h$ x1 w! G' b* Z3 D1 r（3）将向量形式的数据转组织成矩阵
+ m& Z( [7 \' ^  Y/ h4 R
- W. F% Y4 I6 T' c4 {（4）在R中录入数据并组织成矩阵
- i7 l  M' w8 r- }; Y) ]) v* }9 Z
& Q0 y% h4 r! _  I4 q
5. 读取R数据
% P! H' k! W" r" Mload(“load(“存储路径 /文件名字.RData”)”)
读取包含标题的csv文件
read.csv(“存储路径 /文件名字.csv”)
读取不包含标题的csv文件
' v: i7 ~4 G2 J" ]) N$ }4 Cread.csv(“存储路径 /文件名字.csv”,header=FALSE)
0 p: I/ M( O1 I1 {0 n: F导入Excel数据
: e- [1 ~7 g4 Z5 Y8 W
5 s  n/ p$ H" k* F" T! M
+ A0 l8 D: q% D# @. V1 w导入spss数据
( k" h. H5 @) ^' |- ?& b8 ~' T
+ v2 g, z; l* O6 H9 G/ D) ^! @% S: d4 D6.保存数据
6 e. |' d1 D; ]9 W) mR格式
8 G& k, n( v! t4 G5 x% c9 isave(table,file=“存储路径 /table.RData”)
csv格式
! N, Q: F3 W1 ~) T# i7 h1 ?2 owrite.csv(table,file=“存储路径 /table.csv”)
7.查看数据
全部
+ F9 |1 s  T1 h# z! N- `1 ], dtable
前几行
head(table)
, b) _& \7 w/ z+ j! k& P最后几行
tail(table)
8 b% e7 H$ W( r8.数据排序
升序：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]
/ K  X% g! {- }! u- w2 X: {1 W


" b( e7 E9 D# O; u; c) k0 g# B, X; ]; m变量重命名：
& ^) s5 d- C* y- I$ v: flibrary(reshape)
* F3 j: [2 w3 B' hrename(t,c(“地区生产总值”=“GDP”))
缺失值的处理：
+ v1 [1 ^3 O4 m- J6 K" L检测：x<-c(2,4,6,NA)
$ S. ]) k+ M( y0 B3 v( bis.na(x)
排除：x<-c(2,4,6,NA)
0 o0 |9 |7 Y6 o8 csum(x)
' N% P0 E8 v5 ^1 z) }/ \y<-sum(x,na.rm=TRUE)