数学建模社区-数学中国

标题: R语言录入数据保存格式转换矩阵 [打印本页]
作者: 1047521767    时间: 2021-10-29 12:02
标题: R语言录入数据保存格式转换矩阵
R语言录入数据保存格式转换矩阵
, Z+ }" _, e# h$ F5 r2 A" ^, o& T# G% g' ~
index<-c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户")$ ^+ o( C" t1 x5 G
year2008<-c(1500,2935,4203,5929,11290)
4 t8 ^8 B% ~) Q9 [- U" W7 m) cyear2009<-c(1549,3110,4502,6468,12319)6 v; p) P# h' Q2 j% u, Q
year2010<-c(1870,3621,5222,7441,14050)
, k/ U$ @/ ~- n0 L9 [; myear2011<-c(2001,4256,6208,8894,16783)
8 E* x; E! @* h5 hyear2012<-c(2316,4808,7041,10142,19009)( z4 }4 Y% m9 Y9 K3 S2 ?. q
tt<-data.frame("指标"=index,"2008年"=year2008,"2009年"=year2009,"2010年"=year2010,"2011年"=year2011,"2012年"=year2012)6 m4 B, j- u& f) ^# x9 A
tt
% ]. H- l, B( k# E& K
0 R9 n6 \/ ^3 @6 W2 Msave(tt,file="F:/统计学/实验作业/tt.RData")' u4 f/ Z7 l& r/ m/ [4 ]
load("F:/统计学/实验作业/tt.RData")' M" u0 K* l. q8 H1 v; P+ V. O8 b' s
matrix1_1<-as.matrix(tt[,2:6])
& U( y4 |9 R+ q# a! `2 D/ }+ Brownames(matrix1_1)=tt[,1]
6 p8 K; Y; G; t, w( b& Q8 m/ s- hsave(matrix1_1,file="F:/统计学/实验作业/matrix.RData")
) ~/ N  v" s: [8 k6 s, fmatrix1_14 P; g) t1 {7 K% }0 I) U* f4 C
基础知识：3 i/ T! o4 C) G' c& }
1.为对象赋值
% w" c6 a  e# H9 M. l1 b% _- Q) N$ j

# F3 Z% Z1 {* z( n9 w0 b3 `2.对对象X进行各种计算和绘图" p' M  ?% s2 Z8 X) v/ t2 T

) c0 Y9 Z$ d, j6 C* F0 u- M! f3.R包的安装和加载' _$ p; G: V7 w8 H4 H; h
查看3 ]: r, |0 @" N. c+ P9 h
4 n/ ]% e% d) J. _5 |+ I
在线安装所需包
  ~( T) P- A! A7 j$ ~6 `# Z4 T0 Q" k& J5 `
一次安装多个包
" h( t5 }9 {6 l, U, L3 h3 Q" g( S6 n0 e7 r8 k7 ]3 u1 g
要使用包，需要用library()函数或者require()函数载入这个包
! _' X+ j% U+ [2 ~5 N4.在R中录入数据
# f( I* d# K+ w! `（1）用C函数产生向量
$ [8 N! y  P! t例：names<-c(“张三”,“李四”,“王五”)7 O+ M" P2 B  k2 q
2 ?: R: f$ r  t, M5 `" O( C
（2）将向量形式的数据组织转换成数据框模式4 P: [  ]* D; Z; i' F0 ^$ S
例：table<-data.frame(“姓名”=names，···)  y. K- r, `" d
table2 {3 Q+ J$ x2 K; C! p
* C  |: I7 i' I
（3）将向量形式的数据转组织成矩阵
% g( m. _3 d$ J* I/ R  z( b+ ^% p9 j* ^$ ]1 @8 w9 j
（4）在R中录入数据并组织成矩阵7 y! q5 R2 u6 `+ d

9 P- U4 P  l+ P$ E; H# P6 y  |8 _- g7 {. J# W. G9 {$ e9 Q1 }4 p
5. 读取R数据
5 \/ \3 I) A, o% M; [9 _' |load(“load(“存储路径 /文件名字.RData”)”)' p; c+ t: l8 B
读取包含标题的csv文件/ ?. [; F1 w; }9 Y
read.csv(“存储路径 /文件名字.csv”)
* O* ]! t* s, ~8 h2 [3 A( `读取不包含标题的csv文件" W7 S) f) A1 T. `. d% t1 w  _
read.csv(“存储路径 /文件名字.csv”,header=FALSE)
6 M( F& F) b  z2 j! S0 O& z! N导入Excel数据2 B( W" }9 j# D7 |' U  y
8 F9 o' X5 `' h  c1 k, |5 }

" i) j0 h, N( J2 w: z导入spss数据! _$ T( g! S, q' U9 L. ?

; t% T. F3 Z* k9 v6.保存数据
1 q* I6 J( S$ }: c& b6 z/ VR格式( a6 K) s/ m2 O+ {: t! G! _$ W( }
save(table,file=“存储路径 /table.RData”)
" @% _+ H' |$ E& rcsv格式
8 S" t% n5 f6 b$ bwrite.csv(table,file=“存储路径 /table.csv”)  t/ i; ^5 Y, `, _7 [, h4 k4 c( D
7.查看数据- G8 I5 j' {* d! H
全部( p, x: c% P7 w, L$ _5 y8 {$ I8 x
table+ g. i; C" M+ ]) i$ D
前几行
6 N; E# L" i" A+ |& ~head(table)" l" a9 P8 ~* S! c/ M
最后几行
8 S  O; T3 t6 m2 ?% c1 j. C  ptail(table)* R9 Y' S# b' i/ R+ k7 [# D$ Q) ?
8.数据排序
. Q- u* R* o8 c( E, g4 d, o3 L升序：newt1<-t[order(t地 区 生 产 总 值 ) , ] 降 序 ： n e w t 2 < − t [ o r d e r ( − t 地区生产总值),] 降序：newt2<-t[order(-t地区生产总值),]降序：newt2<−t[order(−t地区生产总值),]. {; M5 g2 y( b6 l' E: f4 l! A6 X3 |! @
或者：newt2<-t[order(t$地区生产总值),decreasing=TRUE]
$ g3 e7 j' A: a! U2 Q0 `4 P. M5 _- U+ g, E1 t6 [- p; m* D9 \
8 L9 b4 u: S1 d. J: y0 N
- R7 G  _# R0 h5 F( ~9 e
变量重命名：) o/ A% Y/ @: V- ~/ O, O
library(reshape)9 a2 u& Q; ^  H) ^1 q: F6 J. r, R
rename(t,c(“地区生产总值”=“GDP”))
' G& v, `) A6 i9 o5 y缺失值的处理：
4 e. A3 }" e3 ^2 @" m% P4 p检测：x<-c(2,4,6,NA): l( D& I1 E) @' h) O/ ^
is.na(x)
0 c7 i: M# R$ @$ n6 x! B( P9 C排除：x<-c(2,4,6,NA)' K7 s# v4 w% \7 {3 Y% A* K
sum(x)
/ n) n$ a4 B  V6 j; hy<-sum(x,na.rm=TRUE)
! S  e4 R3 n* Z- v6 Q/ ~1 }
( p2 L9 f0 [4 }, \- k. `* h$ E



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