R语言录入数据保存格式转换矩阵

1047521767

R语言录入数据保存格式转换矩阵

index<-c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户")
year2008<-c(1500,2935,4203,5929,11290)
9 J) J- S$ m/ Z) hyear2009<-c(1549,3110,4502,6468,12319)
year2010<-c(1870,3621,5222,7441,14050)
# Q' G7 c# C& F4 t: _. @+ Fyear2011<-c(2001,4256,6208,8894,16783)
year2012<-c(2316,4808,7041,10142,19009)
' O3 O2 S+ C4 Rtt<-data.frame("指标"=index,"2008年"=year2008,"2009年"=year2009,"2010年"=year2010,"2011年"=year2011,"2012年"=year2012)
& t! @, G. \; Q, w6 Att

save(tt,file="F:/统计学/实验作业/tt.RData")
load("F:/统计学/实验作业/tt.RData")
matrix1_1<-as.matrix(tt[,2:6])
- i$ d# {- C' N7 s2 @" zrownames(matrix1_1)=tt[,1]
3 x% x5 w9 a. v) Esave(matrix1_1,file="F:/统计学/实验作业/matrix.RData")
' k" F( z0 f0 _, Imatrix1_1
' `& c0 E3 `2 e基础知识：
$ [5 u( P; j- y  G9 E8 X% K- F1 K( C1.为对象赋值

5 }5 V$ d; ~, G
2.对对象X进行各种计算和绘图

9 q7 G1 [; r) M6 T3 ~3.R包的安装和加载
查看
9 s( S- E! H4 R' U0 M4 d5 `' \
- L  o. w. D$ V6 N. K# u  V在线安装所需包

& }4 Q  Y' l0 r2 d' H一次安装多个包
8 P3 _7 t4 {# }, m2 H' L
7 L! q) d" ]) ?3 \. u要使用包，需要用library()函数或者require()函数载入这个包
1 `3 x+ z' S' M( M+ X5 Y4.在R中录入数据
' P2 Q* L% F3 n) a0 ?9 H3 I  |（1）用C函数产生向量
2 O4 M4 Y; ]. r例：names<-c(“张三”,“李四”,“王五”)
1 u7 k% K$ e" H7 V0 T
（2）将向量形式的数据组织转换成数据框模式
$ C, O, r+ C# S1 s例：table<-data.frame(“姓名”=names，···)
table

（3）将向量形式的数据转组织成矩阵

（4）在R中录入数据并组织成矩阵


6 w* x( a. c1 i7 i9 C( x5. 读取R数据
load(“load(“存储路径 /文件名字.RData”)”)
5 l4 W1 p: `* x: D5 W% E. Y- B9 ^读取包含标题的csv文件
  Y; s  s/ l% ]9 }$ i) T( y' i6 {: uread.csv(“存储路径 /文件名字.csv”)
读取不包含标题的csv文件
, G1 [/ H) L: O4 B% wread.csv(“存储路径 /文件名字.csv”,header=FALSE)
9 R- [1 E, x+ Q! h" }* s& b, k导入Excel数据

9 B8 R% J0 i% D1 ^( Z; g
导入spss数据

6.保存数据
/ V2 g6 K$ V' ?0 eR格式
save(table,file=“存储路径 /table.RData”)
- M# C8 G$ f* A  S# ucsv格式
) z* j, Z# Q# a$ d; iwrite.csv(table,file=“存储路径 /table.csv”)
* O4 t, E% D7 f0 |& ~" n5 y* _7.查看数据
+ ^$ [: ?' L2 T全部
: ?) n' B) M$ k# Stable
/ R& Y# H: ?+ |! F& B7 I$ ^前几行
head(table)
最后几行
tail(table)
8.数据排序
升序：newt1<-t[order(t地 区 生 产 总 值 ) , ] 降 序 ： n e w t 2 < − t [ o r d e r ( − t 地区生产总值),] 降序：newt2<-t[order(-t地区生产总值),]降序：newt2<−t[order(−t地区生产总值),]
) H4 b7 ?0 y4 X) p或者：newt2<-t[order(t$地区生产总值),decreasing=TRUE]
; F3 |5 H9 `, Z: c! q
+ L$ F8 o) H" q/ ]* D
5 l3 i' N; O) j% k
变量重命名：
library(reshape)
rename(t,c(“地区生产总值”=“GDP”))
缺失值的处理：
% N5 R' l) _/ ^检测：x<-c(2,4,6,NA)
is.na(x)
排除：x<-c(2,4,6,NA)
4 }8 l, `6 E' J/ R* t4 j9 A  |. u$ jsum(x)
! q! P3 J' l/ e0 iy<-sum(x,na.rm=TRUE)
' c0 m: u# `# [, g
/ h, z' t7 L2 M5 A- c& R# G