数学建模社区-数学中国

标题: R语言录入数据保存格式转换矩阵 [打印本页]
作者: 1047521767    时间: 2021-10-29 12:02
标题: R语言录入数据保存格式转换矩阵
R语言录入数据保存格式转换矩阵( L: ^. ?3 n& B4 p4 y: R

. `8 ?7 N1 U% N2 k  L  windex<-c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户")
2 U: D  X; h# m3 b: [5 |2 W4 Vyear2008<-c(1500,2935,4203,5929,11290)8 `6 o. b/ M4 ^* k
year2009<-c(1549,3110,4502,6468,12319)2 X; t- N4 [, E, C( K3 @5 q7 `( P
year2010<-c(1870,3621,5222,7441,14050)
& D/ T' Q2 V0 o4 m0 ]8 Syear2011<-c(2001,4256,6208,8894,16783)
0 t# F9 ^% V% s4 K) n5 vyear2012<-c(2316,4808,7041,10142,19009)
) s' D' p; b3 r# W: W- stt<-data.frame("指标"=index,"2008年"=year2008,"2009年"=year2009,"2010年"=year2010,"2011年"=year2011,"2012年"=year2012)4 I: o# ]4 l$ a7 b6 y
tt1 D. n$ O5 D. v7 s* @

7 m/ B4 k" E% f( Z& L2 U5 zsave(tt,file="F:/统计学/实验作业/tt.RData")( p9 ^7 d* \- K+ D
load("F:/统计学/实验作业/tt.RData")5 e" ]6 U+ o+ @$ k) m  K
matrix1_1<-as.matrix(tt[,2:6])* X* Q7 n1 C0 q
rownames(matrix1_1)=tt[,1]3 e% k* b; D" ?( y
save(matrix1_1,file="F:/统计学/实验作业/matrix.RData"): z3 g! V$ |. r  `1 x
matrix1_1
, b) w% y# w2 Y基础知识：
9 [  o% f( ^' k9 t) q1.为对象赋值
6 K0 k" |+ h; Q  m9 h! N: M$ ~! N) a* n

" K! T' E3 d, t, T& G7 C2 _( \9 |' X2.对对象X进行各种计算和绘图1 p1 p0 q0 P4 [6 c/ _/ M
2 x3 ?$ U( p1 W, M$ `
3.R包的安装和加载& f$ q" i8 f* j& @
查看
- u- }# B, }% u6 o7 U8 h# X9 C
- D* G8 E6 D- c" Z在线安装所需包
. u4 y, l! _+ H9 z% t; O. Y  B2 N
: F# t8 A  {& V. O& r一次安装多个包3 v7 c( u1 _$ d$ a, w

; C. B2 S1 R6 L9 y/ `要使用包，需要用library()函数或者require()函数载入这个包9 L, b% G0 C4 U
4.在R中录入数据
; E- X% i% b3 @, M5 Y% l+ d（1）用C函数产生向量# R0 @# R+ r; ~# s/ I
例：names<-c(“张三”,“李四”,“王五”)+ I5 ^0 X0 C7 }, m3 n' U. w4 R
0 f7 T: \9 p0 L8 H/ f
（2）将向量形式的数据组织转换成数据框模式
" F4 @2 V/ t8 S6 n  l; @+ \例：table<-data.frame(“姓名”=names，···)
4 v- S; Z6 C, `2 ^/ Z* [: ytable
% e" p* O6 W* r: L0 t; t6 h; H; n) M6 @  m
+ z5 {  u) s9 R3 f（3）将向量形式的数据转组织成矩阵% @' \" q( z, [' Q$ @
6 d; x6 ?$ U7 f1 R3 O. I0 Q' a. E: c
（4）在R中录入数据并组织成矩阵
4 A* x) R, v/ E, y7 R
4 r2 ?# O' C9 @
4 y7 C, h6 L* Q( d' K0 {. {5. 读取R数据) |$ K1 K! s2 I# N1 R1 i) S) m
load(“load(“存储路径 /文件名字.RData”)”)1 |* O5 O4 C$ C4 H
读取包含标题的csv文件
3 U! ~' Q1 y# Uread.csv(“存储路径 /文件名字.csv”). u: d4 Z0 Y  H1 [" w
读取不包含标题的csv文件
- p. X+ W) j+ P! L6 {7 wread.csv(“存储路径 /文件名字.csv”,header=FALSE)
8 c  G5 Q$ r9 \' {- i1 B; U5 h# J导入Excel数据3 G2 B7 @8 P+ x3 X( o! ~
9 F* G  m0 n7 V* O/ o0 p/ ^7 R4 X

2 X0 _, J; H7 M$ V( G6 k0 \导入spss数据+ m' Q$ G4 x* z; o# `2 {
) l8 y2 P1 a( f6 M
6.保存数据
: C; @0 g0 m1 S3 @% ^& ?5 zR格式6 n8 o9 G3 f/ v' t$ I; `" n: S
save(table,file=“存储路径 /table.RData”)
  d$ k* c: x1 F2 t0 r3 d  Ccsv格式
1 v, t9 r$ K' {write.csv(table,file=“存储路径 /table.csv”)
% P; ?3 U0 ^) f7.查看数据
$ b' `+ ]% q: m* h  x/ }4 P全部+ o" v& w3 W, E# \% c( a; b
table
' J+ h1 x6 \  k8 i0 W/ m6 ?前几行
; I! j# \; C7 @" M9 D; P! ghead(table)
* G3 q7 ?! _# p+ k! {最后几行
- Y4 O$ {# m+ N& q3 qtail(table)5 s, y: |5 P: D6 H; }
8.数据排序
# e$ i) [$ l  Y4 ~) F升序：newt1<-t[order(t地 区 生 产 总 值 ) , ] 降 序 ： n e w t 2 < − t [ o r d e r ( − t 地区生产总值),] 降序：newt2<-t[order(-t地区生产总值),]降序：newt2<−t[order(−t地区生产总值),]/ \. e- B7 N  k$ {3 u
或者：newt2<-t[order(t$地区生产总值),decreasing=TRUE]
! M/ j% Z8 h% }3 F; G9 l- }! {( Z# L7 P- L# |( w
) i- W' M. V7 x

$ g+ P3 J7 Q# f2 h+ P: b变量重命名：
% b4 z8 @. K7 G2 T# llibrary(reshape)0 H% ]: F% F% }; Z
rename(t,c(“地区生产总值”=“GDP”))
4 K, C- i8 W. i* O& A8 t6 ^8 L缺失值的处理：
/ K4 Q5 S' ~. a& o: E) V$ }检测：x<-c(2,4,6,NA). S+ E9 N8 m' {) r4 \
is.na(x)
0 \6 W6 M$ P: w6 J$ S3 I排除：x<-c(2,4,6,NA)
/ n+ N4 G# b9 }8 V: R6 psum(x)0 r1 o& Q8 W* H9 f3 S2 d
y<-sum(x,na.rm=TRUE)
  L: F! p, ]( y
$ N9 |6 |! U+ p- `3 L4 |



欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) Powered by Discuz! X2.5