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

1047521767

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

) x2 T! U! L% h9 Dindex<-c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户")
+ n6 l1 Z8 ]% a$ fyear2008<-c(1500,2935,4203,5929,11290)
5 v/ e) r: @2 F" ], d( x# S* qyear2009<-c(1549,3110,4502,6468,12319)
year2010<-c(1870,3621,5222,7441,14050)
& Q' y% ~4 U% z6 z$ Gyear2011<-c(2001,4256,6208,8894,16783)
4 w7 b0 m5 S$ g1 ~: l$ C( \year2012<-c(2316,4808,7041,10142,19009)
tt<-data.frame("指标"=index,"2008年"=year2008,"2009年"=year2009,"2010年"=year2010,"2011年"=year2011,"2012年"=year2012)
tt
* n. ]0 J* J7 i7 ^4 ~0 |, x, f
save(tt,file="F:/统计学/实验作业/tt.RData")
1 e, H1 ]6 a' `2 ~load("F:/统计学/实验作业/tt.RData")
- X; S* S, K% pmatrix1_1<-as.matrix(tt[,2:6])
: Z1 s7 j+ t' Q5 U2 l) Q2 ~' Srownames(matrix1_1)=tt[,1]
save(matrix1_1,file="F:/统计学/实验作业/matrix.RData")
matrix1_1
+ W# d4 X- t, P/ J) X: N基础知识：
; I( `: h0 ^/ R1.为对象赋值
" [4 h8 b" `+ \1 U
; U# ?; {# W1 @4 W
2.对对象X进行各种计算和绘图

2 H+ }  B+ z0 S3.R包的安装和加载
$ s9 X8 E- U, y) D1 s7 \. t查看
/ h$ S% r9 K' n. a# E3 G5 l$ ]
$ ^& {$ u& i+ m; J! h# S5 \在线安装所需包
7 z$ [9 G( N, s: Y( P  m  c0 Z# \" s. O
一次安装多个包
1 ]2 }2 ~; @0 Z( L8 X
要使用包，需要用library()函数或者require()函数载入这个包
+ |1 k' q6 E+ x* H4.在R中录入数据
6 b  t& W* Q# N# [2 U# u（1）用C函数产生向量
  L9 S) L9 T7 Y: X* U6 G例：names<-c(“张三”,“李四”,“王五”)

) R% r3 j! V. f0 c# T8 A- [5 t0 T（2）将向量形式的数据组织转换成数据框模式
例：table<-data.frame(“姓名”=names，···)
table

（3）将向量形式的数据转组织成矩阵
. K/ X6 K) w/ S1 t5 W: u8 Y
9 o7 x: @  S) D（4）在R中录入数据并组织成矩阵


' z# O  a, k4 d, h( ?7 Z5. 读取R数据
load(“load(“存储路径 /文件名字.RData”)”)
读取包含标题的csv文件
read.csv(“存储路径 /文件名字.csv”)
* _" b  @8 B: Z6 h3 o3 O) b读取不包含标题的csv文件
read.csv(“存储路径 /文件名字.csv”,header=FALSE)
导入Excel数据

6 \  R2 y( `: Y
导入spss数据
% q$ ]# U2 S* K4 {" n, O4 A# Z( M
' K# G: x; S3 }6.保存数据
% Y6 A6 T9 Q! V9 ^" A9 uR格式
save(table,file=“存储路径 /table.RData”)
( d- G6 P9 ]- S% Q* Y2 K! @csv格式
write.csv(table,file=“存储路径 /table.csv”)
7.查看数据
全部
table
. {: ]1 w: ^. _7 b) @前几行
head(table)
最后几行
+ Z, }9 S2 W$ J/ {  Utail(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]
$ J; U  m: R1 d# X8 A+ {$ Z4 k
' U, c/ Y) I' o) T- J, q" w4 X
+ F& R4 y( F  W9 }* c5 Q; B2 b
, u* P4 T- G7 \变量重命名：
library(reshape)
rename(t,c(“地区生产总值”=“GDP”))
" K: o2 ^' z# ?2 j& k缺失值的处理：
检测：x<-c(2,4,6,NA)
is.na(x)
排除：x<-c(2,4,6,NA)
sum(x)
y<-sum(x,na.rm=TRUE)

: j$ n" @" q  m4 ]8 J