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

1047521767

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

index<-c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户")
year2008<-c(1500,2935,4203,5929,11290)
7 _1 m5 w3 X$ V& A# Ryear2009<-c(1549,3110,4502,6468,12319)
year2010<-c(1870,3621,5222,7441,14050)
year2011<-c(2001,4256,6208,8894,16783)
year2012<-c(2316,4808,7041,10142,19009)
tt<-data.frame("指标"=index,"2008年"=year2008,"2009年"=year2009,"2010年"=year2010,"2011年"=year2011,"2012年"=year2012)
tt
# ]5 q& a1 A5 O' N+ n( u& s' Z
. x% v. t9 _+ E6 n* u  W. q/ T; Lsave(tt,file="F:/统计学/实验作业/tt.RData")
load("F:/统计学/实验作业/tt.RData")
* a7 L3 Q) L. P$ j% n. T5 F+ u# Xmatrix1_1<-as.matrix(tt[,2:6])
9 B! o  |6 K) L! }6 s9 \+ k: V/ Srownames(matrix1_1)=tt[,1]
save(matrix1_1,file="F:/统计学/实验作业/matrix.RData")
6 F  K% ^! \5 r1 E4 U6 Fmatrix1_1
8 |. N2 V- z1 v" t( v# Y基础知识：
1.为对象赋值

% C* f0 E8 I) F9 n' o4 Q4 v
" W  x) G) S; J9 p& V7 h' h$ O2 B2 H2.对对象X进行各种计算和绘图
* @4 p- j# B2 {4 W3 Y8 Q4 R# A. {
3.R包的安装和加载
& z$ ~, Y% P. Y" i查看

在线安装所需包
* }2 e$ y7 n5 J3 h7 L
7 q- _, z  g: _+ ^' k0 {3 l, h一次安装多个包
/ m% n( x: t  I  Q  t
9 @1 V% \2 J3 W; n要使用包，需要用library()函数或者require()函数载入这个包
4.在R中录入数据
（1）用C函数产生向量
6 s% F% V; ~% s3 \. X例：names<-c(“张三”,“李四”,“王五”)

) q7 o$ e- Q3 I0 O+ M0 W（2）将向量形式的数据组织转换成数据框模式
/ e$ I6 w. B$ g6 {/ p" G例：table<-data.frame(“姓名”=names，···)
table

% p& q6 D4 Q  K0 p1 c* V（3）将向量形式的数据转组织成矩阵
6 U& V& S# ~" Q7 n
8 X# @) g. U' \( ~) Y* f（4）在R中录入数据并组织成矩阵
( h: {) h8 C3 j* ?2 w2 Y
+ {5 K  ]' ^, {5 Z5 \
9 e8 \# T. t( W% `: Z9 j- l' ?5. 读取R数据
load(“load(“存储路径 /文件名字.RData”)”)
读取包含标题的csv文件
1 j9 Z2 X6 ]! v, p- Y9 i# }read.csv(“存储路径 /文件名字.csv”)
4 p) j9 [, Q* F  ~* |$ K读取不包含标题的csv文件
1 @' c4 a" b; o0 F$ ~read.csv(“存储路径 /文件名字.csv”,header=FALSE)
导入Excel数据
. i% |' P5 _  J9 Y- F# V; J
( C' D: V+ y) {
导入spss数据

& X7 G9 X  i3 l" A% d- Z8 c& \' h6.保存数据
) |! h. o3 _, P1 TR格式
( T- i9 g  z, G( J' I% Dsave(table,file=“存储路径 /table.RData”)
csv格式
write.csv(table,file=“存储路径 /table.csv”)
. p* `, Z3 Y: Y% C/ }7.查看数据
全部
table
) \+ B# L" X' Q3 e前几行
, j5 ~! O$ p& g$ ^" ]7 ahead(table)
0 V; F  [) n5 R( {最后几行
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地区生产总值),]
或者：newt2<-t[order(t$地区生产总值),decreasing=TRUE]


9 A2 F- M( k8 w& b) Q1 n9 S+ f# p
变量重命名：
library(reshape)
* @* x  t; \9 q; Mrename(t,c(“地区生产总值”=“GDP”))
- g: s$ w/ i. _3 ?7 f$ E' l缺失值的处理：
. L6 H6 w4 W5 `* }) \: D) w( ~8 x8 p检测：x<-c(2,4,6,NA)
is.na(x)
排除：x<-c(2,4,6,NA)
1 X2 n7 U0 A1 m) m! j+ B7 ^+ U# ^sum(x)
y<-sum(x,na.rm=TRUE)

9 V- j3 [# a/ d% W2 ?8 [/ _" z8 R