数学建模社区-数学中国
标题:
R语言录入数据保存格式转换矩阵
[打印本页]
作者:
1047521767
时间:
2021-10-29 12:02
标题:
R语言录入数据保存格式转换矩阵
R语言录入数据保存格式转换矩阵
+ {3 N$ A' l' U
) q" V1 A: I& P
index<-c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户")
+ Y# w- F) J% q: y" x7 n4 i- W6 d
year2008<-c(1500,2935,4203,5929,11290)
! @5 L# M1 f* Y- J1 |
year2009<-c(1549,3110,4502,6468,12319)
' |9 D5 F8 X) m4 t
year2010<-c(1870,3621,5222,7441,14050)
4 L9 J- e% _! P: @
year2011<-c(2001,4256,6208,8894,16783)
) W. U5 g0 o. U; Z) u
year2012<-c(2316,4808,7041,10142,19009)
$ K7 Q% ^* X4 K! C& Z
tt<-data.frame("指标"=index,"2008年"=year2008,"2009年"=year2009,"2010年"=year2010,"2011年"=year2011,"2012年"=year2012)
8 _2 t* g% N1 A8 x1 K5 `
tt
' R( [, T: D5 _% N
# r5 b; h9 ]6 [3 J# v+ t# a5 @
save(tt,file="F:/统计学/实验作业/tt.RData")
2 F* l% B* Z8 ]& p
load("F:/统计学/实验作业/tt.RData")
# V' X- Z1 ?3 H
matrix1_1<-as.matrix(tt[,2:6])
0 `- V5 h/ Z4 s+ T% X/ j A
rownames(matrix1_1)=tt[,1]
9 u5 x# Y6 Y. c( A. I, N
save(matrix1_1,file="F:/统计学/实验作业/matrix.RData")
2 Y! ^6 X' }$ Q3 j/ W1 [; C d
matrix1_1
, [/ o0 @% Z7 F/ m k
基础知识：
7 G5 m7 k2 ?' ?& x
1.为对象赋值
! I9 d9 K$ }$ X7 B8 g# L
6 @4 o3 O; C& J, H. S6 d" r
7 X) [; l! B; |
2.对对象X进行各种计算和绘图
( {& C1 [9 x/ l. p8 c
# z; G$ \6 w0 f, n& ^
3.R包的安装和加载
, g: m$ b$ n, m, g& ?- @. w
查看
s1 t. g* x3 A
/ A* j* E0 Q% K8 Z+ \2 {
在线安装所需包
9 U, m: f, j% t% e
3 E, I) `2 s/ G2 Y* F( R" q
一次安装多个包
; {" v K _# F7 C& i& C0 _5 Y0 \4 V
, R* B# ?9 p8 T; u
要使用包，需要用library()函数或者require()函数载入这个包
) r, Y _$ c. Q% H
4.在R中录入数据
% k4 Y3 l& ?' H
（1）用C函数产生向量
6 ?# C# v( | W) s5 l2 `0 a" G+ l
例：names<-c(“张三”,“李四”,“王五”)
4 a$ D" q; ]3 r7 |
( ?( t* X& y& V+ t- [6 Y* X5 U& e
（2）将向量形式的数据组织转换成数据框模式
7 k* Q& N; T- T* l5 v% Z/ o
例：table<-data.frame(“姓名”=names，···)
$ A# E" R; `, b; F" b% E- o
table
* b5 s/ i/ U9 {" X6 C0 g
; b& ?3 V- G- Y- O1 O" h
（3）将向量形式的数据转组织成矩阵
7 f/ P" G" x, w: ^) k4 \, `
9 [, J' P; c. I0 ^( ^
（4）在R中录入数据并组织成矩阵
2 |5 ]6 u6 U! e8 `
7 Z5 e5 b2 f1 w- h. `1 y/ a
$ E6 ?9 I4 d) Y+ o! S) p$ H& x
5. 读取R数据
% `& I* m6 s( m( k- p2 A8 Y
load(“load(“存储路径 /文件名字.RData”)”)
$ X- E% ?$ d/ F; u+ y+ \: D# T/ g; R
读取包含标题的csv文件
; P( J& D- m# }1 b" Z" N
read.csv(“存储路径 /文件名字.csv”)
* B& x$ B ]: x) y$ v1 n
读取不包含标题的csv文件
8 P) | U& J4 e0 P5 b
read.csv(“存储路径 /文件名字.csv”,header=FALSE)
H) H. \1 B; ^! I& c
导入Excel数据
6 r {9 v; D8 S' h5 o0 B3 P
0 O" I5 ?) [( f; K
$ c3 b j3 o2 C% y+ T. Y. f3 [
导入spss数据
5 y4 y9 |$ [& i: \
! k% w3 D7 m; E7 x9 A; e
6.保存数据
" L, }. H8 O- R. T" e
R格式
( a; X- S% M$ J5 w; V
save(table,file=“存储路径 /table.RData”)
: U, W' O7 e& s# Y* A7 h K3 d. O
csv格式
0 C; e' n2 b: w+ t5 q4 x
write.csv(table,file=“存储路径 /table.csv”)
- B7 u. ~8 A1 u r5 Q5 e
7.查看数据
/ _( }* S' O2 j& {' P' y3 {1 d1 O
全部
+ I$ x* g1 D8 o& ?
table
' ]( u+ I; r. o/ G+ K: ?
前几行
4 S! ~2 A: |2 ]
head(table)
2 V4 M4 e. `& i {. c
最后几行
% @) V$ d( i5 v1 j: x
tail(table)
+ L, r6 ]$ i3 a% }0 n% s
8.数据排序
8 _' i: _0 D+ [
升序：newt1<-t[order(t地 区 生 产 总 值 ) , ] 降 序 ： n e w t 2 < − t [ o r d e r ( − t 地区生产总值),] 降序：newt2<-t[order(-t地区生产总值),]降序：newt2<−t[order(−t地区生产总值),]
$ U& X3 W8 @1 y1 n; u( c. L
或者：newt2<-t[order(t$地区生产总值),decreasing=TRUE]
, K' w+ @* L0 h
7 N$ U; k0 m5 u
/ E' t" h: s5 L
0 A) e/ z' D& `3 V. o# U) d5 y/ s
变量重命名：
) v# o* A* Y: Y+ ]& |
library(reshape)
! u% A4 W% E+ X2 @) s% [/ p8 ?
rename(t,c(“地区生产总值”=“GDP”))
4 w# i( f6 \0 l! R
缺失值的处理：
( J1 M; D7 X5 d5 n# m8 [$ t
检测：x<-c(2,4,6,NA)
' ^4 u8 L! ]% I! U1 R; C" D3 U+ ~
is.na(x)
: L8 Y- G! ?$ ^, s% q" a9 U
排除：x<-c(2,4,6,NA)
; C6 P( _2 d; p1 n- c+ { p
sum(x)
* l' P( K! R# l
y<-sum(x,na.rm=TRUE)
3 i: y' T( L- [. d
3 k- O$ N- y) O4 r' f B
欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)
Powered by Discuz! X2.5
+ {3 N$ A' l' U
3 E, I) `2 s/ G2 Y* F( R" q
, R* B# ?9 p8 T; u
7 Z5 e5 b2 f1 w- h. `1 y/ a
$ E6 ?9 I4 d) Y+ o! S) p$ H& x
0 A) e/ z' D& `3 V. o# U) d5 y/ s