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

1047521767

R语言录入数据保存格式转换矩阵
3 H1 v3 K$ G5 {
index<-c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户")
year2008<-c(1500,2935,4203,5929,11290)
9 _" w7 C. J# Xyear2009<-c(1549,3110,4502,6468,12319)
year2010<-c(1870,3621,5222,7441,14050)
% @2 Y9 R3 ?* e+ s8 b1 Eyear2011<-c(2001,4256,6208,8894,16783)
- j1 {, w1 F- M7 M, Y+ tyear2012<-c(2316,4808,7041,10142,19009)
$ l$ V0 w1 Z! D, f) K4 E% f; Y& |- {tt<-data.frame("指标"=index,"2008年"=year2008,"2009年"=year2009,"2010年"=year2010,"2011年"=year2011,"2012年"=year2012)
5 F# ?5 ~9 j, ?5 {1 g2 s8 Xtt
% M& P! v. `0 s$ S1 X% X
save(tt,file="F:/统计学/实验作业/tt.RData")
load("F:/统计学/实验作业/tt.RData")
; i0 c8 {' z5 K% H* Qmatrix1_1<-as.matrix(tt[,2:6])
* b( v2 [5 D4 W/ a2 C, G- Wrownames(matrix1_1)=tt[,1]
, `* s1 P) [* @4 F+ s1 fsave(matrix1_1,file="F:/统计学/实验作业/matrix.RData")
, E: c; {, U  T- G# Rmatrix1_1
基础知识：
1.为对象赋值
1 p+ ^2 a; t( f

- A0 g. C6 T1 T7 p/ d9 y/ p6 Y2.对对象X进行各种计算和绘图

5 |# `, A5 j* F8 P; ]) B3.R包的安装和加载
查看

在线安装所需包

! M5 v1 l6 h3 D) B' C" y& m' c一次安装多个包

. d4 y6 |; `1 D0 g要使用包，需要用library()函数或者require()函数载入这个包
4.在R中录入数据
（1）用C函数产生向量
% s1 H5 X1 Y6 T) y& K* I* |: O: O例：names<-c(“张三”,“李四”,“王五”)
) b0 N% y, v( X' [
（2）将向量形式的数据组织转换成数据框模式
例：table<-data.frame(“姓名”=names，···)
table
8 `" r) J" Y8 A0 d) u
6 h" y  ?4 h4 V（3）将向量形式的数据转组织成矩阵

0 h! x5 f& z, z" `& `" |（4）在R中录入数据并组织成矩阵
# A% f) A: M' z

5. 读取R数据
/ X, I  N% ?3 w0 }: W( hload(“load(“存储路径 /文件名字.RData”)”)
$ t2 r, T9 W" G, G& J3 l( L1 z读取包含标题的csv文件
  T, x, y/ Z" }% f8 wread.csv(“存储路径 /文件名字.csv”)
读取不包含标题的csv文件
read.csv(“存储路径 /文件名字.csv”,header=FALSE)
导入Excel数据

/ }  J, g2 c; [% Z  r
导入spss数据
7 ]4 ?5 U' V! B" K) s, m# @
6.保存数据
R格式
save(table,file=“存储路径 /table.RData”)
. z  k" [9 C. u9 i* X+ S/ Mcsv格式
6 K! g, s& I; W( bwrite.csv(table,file=“存储路径 /table.csv”)
7.查看数据
9 r- h; U6 Y! z+ u: c+ ~全部
. D* m2 d  N  e0 |2 @$ n" S+ Ktable
7 a) s$ ?) c* `7 J& b5 r前几行
head(table)
最后几行
. h8 P+ z3 P/ E% l- h! g9 G2 w, ^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地区生产总值),]
1 W  _0 S4 v% m1 v1 N1 V/ ?+ F, s7 u( Q或者：newt2<-t[order(t$地区生产总值),decreasing=TRUE]


) s: B. q; \8 O
6 P- f: B- I: @& S5 I8 q变量重命名：
library(reshape)
rename(t,c(“地区生产总值”=“GDP”))
缺失值的处理：
检测：x<-c(2,4,6,NA)
3 N% i( O4 ^% L" t$ tis.na(x)
排除：x<-c(2,4,6,NA)
sum(x)
y<-sum(x,na.rm=TRUE)
/ L* u) A  O0 C8 n+ m, Q
, d# u+ j4 I( @! P% D( ~