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

1047521767

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

% [$ C) M9 q6 `0 r+ ~index<-c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户")
( s' M/ D/ ^; d' O# ?; P  p$ Lyear2008<-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)
year2012<-c(2316,4808,7041,10142,19009)
% n, S. e7 T6 y2 U: ^) \tt<-data.frame("指标"=index,"2008年"=year2008,"2009年"=year2009,"2010年"=year2010,"2011年"=year2011,"2012年"=year2012)
tt
% ]0 q9 J$ `/ D5 w0 Z5 K. K
save(tt,file="F:/统计学/实验作业/tt.RData")
load("F:/统计学/实验作业/tt.RData")
matrix1_1<-as.matrix(tt[,2:6])
# p' C9 Y3 _5 A! Z: |( z. }rownames(matrix1_1)=tt[,1]
save(matrix1_1,file="F:/统计学/实验作业/matrix.RData")
. K# c  x2 G: \4 C" T3 Tmatrix1_1
基础知识：
1.为对象赋值
0 c) A- y. g0 j$ H& n3 x% S

: B7 Q2 k$ W5 L0 f& Z+ q* j; Y4 l2.对对象X进行各种计算和绘图
( {- k  Z8 _+ Q2 N$ h% B# S) n- q0 T6 n
0 `. l6 O1 [' Y; P9 s3.R包的安装和加载
查看
( i9 ~3 D' _8 N9 ?0 Q
$ E0 H: {0 W: `" A% z在线安装所需包

4 u4 F1 l2 ~0 C1 J. o) S一次安装多个包

# j& P+ ]2 S7 B/ J3 m1 {# O8 |要使用包，需要用library()函数或者require()函数载入这个包
, R( k; A- Q$ J" d' L4.在R中录入数据
（1）用C函数产生向量
/ a9 C1 q& E, B- _例：names<-c(“张三”,“李四”,“王五”)
2 W! f- J5 |; x( S. \4 {
" Z! C; C6 F) @（2）将向量形式的数据组织转换成数据框模式
例：table<-data.frame(“姓名”=names，···)
table

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

（4）在R中录入数据并组织成矩阵
. M; S. D1 J% r( M. M: b
. ~( T. `5 `7 _. z. r
5. 读取R数据
load(“load(“存储路径 /文件名字.RData”)”)
% N6 s. i, P- |! t" M' [读取包含标题的csv文件
( p/ B* _" u8 v, i- Cread.csv(“存储路径 /文件名字.csv”)
读取不包含标题的csv文件
0 n  ?  [* o# y6 Y5 jread.csv(“存储路径 /文件名字.csv”,header=FALSE)
导入Excel数据


导入spss数据
' ~2 ^1 ]8 p1 _: N, t  y4 D4 {
7 g$ ^" m2 B2 Y1 v7 O8 O# @* J" Q8 @6.保存数据
R格式
: ^: B) x" |8 ^8 ^2 ~0 D$ F( B0 Bsave(table,file=“存储路径 /table.RData”)
csv格式
write.csv(table,file=“存储路径 /table.csv”)
7.查看数据
* P6 W. o( f3 J$ H$ S全部
table
; K( t4 a8 B3 V6 D! v0 S' @) J前几行
! W( D# h8 z# [, Nhead(table)
) p" m8 c" Z; }1 F* h) R最后几行
tail(table)
8.数据排序
1 H# d8 |' c# e& @% P( C# d+ g升序：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]

# Q/ C& Z8 p4 O
: J$ n# I; Y. F' F/ K( e4 }; h
; k+ y; ]+ _: R& d变量重命名：
library(reshape)
rename(t,c(“地区生产总值”=“GDP”))
缺失值的处理：
/ ~$ U7 K) @* I5 @8 @3 O+ L0 @/ C  j检测：x<-c(2,4,6,NA)
is.na(x)
/ z% r( J1 H! E2 c0 m" W& a1 r排除：x<-c(2,4,6,NA)
) q; }7 y# O5 G% f8 G! N7 psum(x)
y<-sum(x,na.rm=TRUE)
5 {) f+ N) I/ ~& {. [
3 O% \" y' X3 _1 m