数学建模社区-数学中国

标题: R语言录入数据保存格式转换矩阵 [打印本页]
作者: 1047521767    时间: 2021-10-29 12:02
标题: R语言录入数据保存格式转换矩阵
R语言录入数据保存格式转换矩阵. a- C( H* r! x

; `& Q6 ]. B) ^index<-c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户")7 s+ H% X1 u5 O7 ]1 _, w: c9 \. g
year2008<-c(1500,2935,4203,5929,11290)
% }# C& W- m5 A: g3 |4 Z. `year2009<-c(1549,3110,4502,6468,12319)
5 n9 n8 \& {/ X0 tyear2010<-c(1870,3621,5222,7441,14050)
7 E! S  L0 V5 tyear2011<-c(2001,4256,6208,8894,16783)
" ]5 P8 p8 |" c& H, W! Z0 lyear2012<-c(2316,4808,7041,10142,19009)3 D6 o' A+ w# j+ y5 c7 o5 [/ Z
tt<-data.frame("指标"=index,"2008年"=year2008,"2009年"=year2009,"2010年"=year2010,"2011年"=year2011,"2012年"=year2012)+ X8 ?0 j; G, T5 y2 @
tt
9 I6 ?; {8 d6 E) r$ r, X$ l. ?4 e7 o, W8 g( D
save(tt,file="F:/统计学/实验作业/tt.RData")3 ]* `/ X5 {/ k
load("F:/统计学/实验作业/tt.RData")& C8 D! ^" \' t0 A' [
matrix1_1<-as.matrix(tt[,2:6])
( F+ }* {3 u% G% e7 {  a, ?rownames(matrix1_1)=tt[,1]
7 \- I  w+ ]  T5 {save(matrix1_1,file="F:/统计学/实验作业/matrix.RData")
5 \3 o! V( n% [  K/ |matrix1_1
% y  K; O8 D+ D: N& D8 e! X% T3 H5 C基础知识：
4 z: y: g- v' j8 |0 U# s1.为对象赋值
' B" v/ I; L: d$ m' q* w, D, s1 X, f

$ z7 Q9 s: C! C3 u% Z! c1 H2.对对象X进行各种计算和绘图
; F* ?3 ^- P- L; ]
8 z3 \0 d: P; y" w) q" Z3.R包的安装和加载* S" R. P7 A! ?- m$ x
查看/ O" B9 a- q7 g2 l/ K  b8 Y
5 v) {  n7 f3 k4 k$ i  e( i" q7 J  a
在线安装所需包
: h6 c- T' y3 o, ^
9 N! \: x" g8 c% [% S& N% ^一次安装多个包* B: g" }" |- L) O+ b' v$ \
, F5 a% f0 n! u& v
要使用包，需要用library()函数或者require()函数载入这个包
/ p$ `- s/ C! P6 R  P% V4.在R中录入数据' @+ R* h+ ]! [, i# k- P
（1）用C函数产生向量6 m- l) [# G; S0 R$ f% W& G' S) [& n
例：names<-c(“张三”,“李四”,“王五”): w2 K. r# U" i; f: b
' w8 |( P: Q. N6 e+ S- s
（2）将向量形式的数据组织转换成数据框模式2 ]5 q) N. v0 m% l1 `! @9 m. N
例：table<-data.frame(“姓名”=names，···)" ?" g* x) C2 s! t5 w5 x7 H
table0 K2 b7 E" h% n7 Z
4 M, [8 b3 I: t1 I! G' {& _1 t3 B
（3）将向量形式的数据转组织成矩阵
" k& ^; F3 ~8 T! ?! ^5 {2 R
, Q# y, @/ ^& I% ~/ V: }* N- V（4）在R中录入数据并组织成矩阵: U# ~! A0 Q3 @& i  H

; E- D; e* G2 P  F$ X2 X9 z3 A( T* M: f
5. 读取R数据
. R) A8 P' I- y* Y7 w. T8 c& ]2 `load(“load(“存储路径 /文件名字.RData”)”)4 ~( K' K  ]( c" A  K" a! {/ n. |
读取包含标题的csv文件9 V, q, b$ P7 c8 E1 e0 Y, X; G
read.csv(“存储路径 /文件名字.csv”)5 Q+ C  i& T& l/ P( ]8 U, m
读取不包含标题的csv文件* e6 e5 z5 a: X. [4 N$ e
read.csv(“存储路径 /文件名字.csv”,header=FALSE); c" x7 C5 T4 ?: e: N! T
导入Excel数据5 G8 }1 T) i5 s9 D; ^' F2 l( l
% n3 `$ M" `" V8 F3 l9 r5 Y
/ q8 _- v' z/ j5 E! d/ Q+ a
导入spss数据! E! y; k0 b  w& ~. q3 b% L
7 F: W" z4 ]; E) p$ Z( V5 V7 E
6.保存数据. [! Y1 S! [8 ~- t8 c
R格式
! b3 \2 @, b7 \! {! A/ g4 J, G* C4 vsave(table,file=“存储路径 /table.RData”)
4 r: Y7 r; _7 i' ?" ecsv格式
% ]  c3 \% C7 n, Xwrite.csv(table,file=“存储路径 /table.csv”)
8 Q& J. U5 z" C# b2 T7.查看数据
# P( F3 ?) T  j4 _$ O- K全部
3 P- y, \- e! F3 ?0 W" c5 otable
  w  c2 ?& u2 p前几行1 l, Q7 a$ F8 m  c8 |) o2 w; w
head(table)
$ A7 n) F$ I3 v. D3 m  s最后几行
9 N5 t) [) [: a2 q: y& S- rtail(table)$ }" r$ m. \$ k. J: t
8.数据排序" w( F6 P; l. e0 ]7 x& l8 a0 S' 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地区生产总值),]
2 J% G4 @; [( D3 h6 h或者：newt2<-t[order(t$地区生产总值),decreasing=TRUE]
% z: J) @; Z7 `0 u$ N- A0 K5 l; V2 W$ _7 g4 G9 u" c' Z

; e- Y4 O" e1 h; G, l) w& }
+ |: a5 Z( {) s! _7 |+ n变量重命名：8 c% B# d# i0 ~; I
library(reshape)
) f# s& J* o  }, ]rename(t,c(“地区生产总值”=“GDP”))) O1 C, d7 \8 m" B* \
缺失值的处理：7 K  _# Y: X: [# [, o- p! I
检测：x<-c(2,4,6,NA)
& X: e1 n4 ?* t7 ]: }is.na(x). ^# \& Z+ [5 Y3 W  k1 F1 o3 M
排除：x<-c(2,4,6,NA)
# A" ~6 O+ \: I) nsum(x)
* ]1 E# g, ~3 z0 Cy<-sum(x,na.rm=TRUE)
, V9 [; S: D- k. l& @8 m0 n
3 z5 ?5 [6 D' D3 U5 W% `1 d



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