数学建模社区-数学中国

标题: R语言录入数据保存格式转换矩阵 [打印本页]
作者: 1047521767    时间: 2021-10-29 12:02
标题: R语言录入数据保存格式转换矩阵
R语言录入数据保存格式转换矩阵; s/ v! X) s( ~2 [% \9 k

" x/ T9 V( B. ]: q# `9 qindex<-c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户")) P! s2 o, v1 x+ h
year2008<-c(1500,2935,4203,5929,11290), F9 N7 Y$ |! n) s1 p0 {
year2009<-c(1549,3110,4502,6468,12319)
0 J( i" P) w) M" }year2010<-c(1870,3621,5222,7441,14050)
4 X# B4 R5 G- W* r/ ?year2011<-c(2001,4256,6208,8894,16783)
  l) C8 W  w5 r- H& j% J6 i) Lyear2012<-c(2316,4808,7041,10142,19009)
- g8 A7 M  b5 h! \, ^8 Btt<-data.frame("指标"=index,"2008年"=year2008,"2009年"=year2009,"2010年"=year2010,"2011年"=year2011,"2012年"=year2012)# r7 |! r5 E) M0 P
tt% H6 x# R9 q. j" j2 v9 a% A

! A* K2 y2 q8 S) j& x! {: a( @save(tt,file="F:/统计学/实验作业/tt.RData")8 d% F$ @* G9 E! d  ]' N
load("F:/统计学/实验作业/tt.RData")) g; I4 y; [! `) m% _
matrix1_1<-as.matrix(tt[,2:6])
% Q% F; F! o8 g. e4 E0 `rownames(matrix1_1)=tt[,1]
9 J& u* U2 R8 K% G3 E1 E+ _. Osave(matrix1_1,file="F:/统计学/实验作业/matrix.RData")
# s: f- o7 I0 P' r7 O( s$ nmatrix1_1" z+ X/ j/ }! R% x. K" y" O4 {
基础知识：
% z: R' E  w% J/ S- \1.为对象赋值; o' m1 u! n5 t4 X

3 @7 D" l$ T* R3 ]8 T& k, u7 s/ P4 P1 w( n# ^$ n1 N
2.对对象X进行各种计算和绘图( Z0 B( e1 @* K3 ~! L2 y0 L

9 h3 ]4 t. O4 k" |% s2 o1 U5 U3.R包的安装和加载9 P/ W# L" \' g: D2 ]+ ^: i' I
查看+ m  j" S$ W& [' `5 |. J8 x8 e

8 G) |0 i  E" |! N6 I在线安装所需包# w5 A- Z+ v5 l0 A9 d
" G2 q+ `. Z" A
一次安装多个包# Q  d) h( [' e

# O- D: {6 \# a6 r: ~, v要使用包，需要用library()函数或者require()函数载入这个包( W3 x( q/ M( b, s* |4 T4 F
4.在R中录入数据* ]* z9 ?  j$ `
（1）用C函数产生向量: T, k1 u; v- @5 N& O, r9 R+ w
例：names<-c(“张三”,“李四”,“王五”)
7 j+ y& Y- |% `; K: `% H2 J8 [) {% ?" y
（2）将向量形式的数据组织转换成数据框模式6 ^0 Q) f0 [' l/ e4 R
例：table<-data.frame(“姓名”=names，···)
8 }/ {1 F/ _! ?3 F% j% L" Wtable
3 o8 }! k- P" T' I) W$ f! A9 g+ b5 }7 G
（3）将向量形式的数据转组织成矩阵
; m2 W/ V1 G& X; C8 z. @: J6 `# ^1 P
（4）在R中录入数据并组织成矩阵
8 I1 J8 l1 J+ |4 ?9 y: ]6 E! q4 v& Z0 ]% P- w! y4 N  }
7 }7 @: t9 t" a0 `1 m6 f% l4 |3 |
5. 读取R数据* H! T, u2 _0 I1 L' i3 ]- O
load(“load(“存储路径 /文件名字.RData”)”)8 X! w) I1 r/ U  Z  d. a1 {2 i$ X
读取包含标题的csv文件- Z# z$ d8 n6 L! G  `" m! I. i1 D
read.csv(“存储路径 /文件名字.csv”)# [0 u9 _+ G3 u# s0 H8 v
读取不包含标题的csv文件
5 T" [$ L  O, m$ ]read.csv(“存储路径 /文件名字.csv”,header=FALSE). u" c+ I1 \, [! x  [
导入Excel数据' Q6 U/ P) z" ?8 P/ i. x5 J
8 C% t) x4 q- a" f
' Z  E8 M( O( v! U
导入spss数据4 B! M, }2 v6 k
$ z. G/ D$ l7 o$ b, `2 [! D$ G9 ^1 t
6.保存数据7 S9 k5 u- L' u0 S7 x, D' Q8 y
R格式3 e3 ?% N& m6 Z! p
save(table,file=“存储路径 /table.RData”)
; t7 G6 `' F0 X% O( K+ _$ hcsv格式
8 N* |5 `) w. e- z% M  X, Q3 M; ~write.csv(table,file=“存储路径 /table.csv”)3 I* U6 ?: g. A" U
7.查看数据
1 q$ k# h( q- T+ Z( r  }) g全部, |! k; ~" n$ `+ `  \! X
table
( V+ S% C, w  r# ~; Q# K: Q前几行
' L: R( U# h9 M: w5 ~# ]0 Qhead(table)
2 A+ N% }8 ^9 R/ W! Q8 G& A最后几行- w+ _9 e2 `! L+ U& c" e, D) @) u6 W
tail(table)
' S" Z. X) s4 }3 O2 T8.数据排序" a9 E. w% [$ E. {# v- i
升序：newt1<-t[order(t地 区 生 产 总 值 ) , ] 降 序 ： n e w t 2 < − t [ o r d e r ( − t 地区生产总值),] 降序：newt2<-t[order(-t地区生产总值),]降序：newt2<−t[order(−t地区生产总值),], y/ t6 h, q, u+ c
或者：newt2<-t[order(t$地区生产总值),decreasing=TRUE]8 U9 X0 [1 Q4 f+ Q
+ l# A4 ]4 Q: s& V3 J
' C5 [. ^) Y" J- Y6 m, c
- ]; e2 l4 D8 i# T4 M+ I/ F) A
变量重命名：2 y' s# }" u& \/ a& I
library(reshape)7 V* u* K0 Q$ W, m- D8 b
rename(t,c(“地区生产总值”=“GDP”))9 M: _) \8 R* I* w. q8 r0 w
缺失值的处理：6 c. ?0 {# p9 K6 C& s# h
检测：x<-c(2,4,6,NA)0 F" T; S2 ^5 |& i; _6 B" z
is.na(x)$ g- L: w+ k0 ^+ q+ q2 O
排除：x<-c(2,4,6,NA)0 u( a1 c# Z% ]) ?, c
sum(x)4 v1 S/ y& g" i& L0 g; F/ _
y<-sum(x,na.rm=TRUE)" ]+ l& ~- K5 I: ^

5 [% }5 r3 U8 w/ b# S



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