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

1047521767

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

index<-c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户")
" w# `3 ~& x4 \: zyear2008<-c(1500,2935,4203,5929,11290)
4 P  j0 `7 \/ t+ v' Xyear2009<-c(1549,3110,4502,6468,12319)
. y$ H/ D9 f+ d8 V( E: _4 [8 @& m0 Uyear2010<-c(1870,3621,5222,7441,14050)
) A) _4 T; x& zyear2011<-c(2001,4256,6208,8894,16783)
9 O% @$ J* a( ?- Q3 `" yyear2012<-c(2316,4808,7041,10142,19009)
tt<-data.frame("指标"=index,"2008年"=year2008,"2009年"=year2009,"2010年"=year2010,"2011年"=year2011,"2012年"=year2012)
3 e# v& Y3 V' e7 u' W& Z% N; X6 Ett

/ ]' {) W' q. w0 ]  Usave(tt,file="F:/统计学/实验作业/tt.RData")
load("F:/统计学/实验作业/tt.RData")
matrix1_1<-as.matrix(tt[,2:6])
5 h0 _! e; A: D; P4 xrownames(matrix1_1)=tt[,1]
; P4 @2 i" }* P  L, |save(matrix1_1,file="F:/统计学/实验作业/matrix.RData")
" k& F: l# P% k, W8 Jmatrix1_1
6 X7 ~7 D8 `9 U, i基础知识：
- c# x( v9 R7 k  x1 d* C7 z1.为对象赋值
) ]; \1 ~/ n! r8 M, h. l/ Y
6 D7 X0 M6 f; m' i9 B% Y- Z) |& l0 `
2.对对象X进行各种计算和绘图

# F, L9 J9 v4 ?/ V3.R包的安装和加载
查看
. A+ g% t2 Z! r: v2 I
在线安装所需包
9 k8 F  l7 Y9 a% N7 m5 F* M' ^) T
/ y% @( I9 \+ n4 I' M一次安装多个包

3 d( x. v& @7 N要使用包，需要用library()函数或者require()函数载入这个包
4.在R中录入数据
! I, [. X4 a- Z& o+ h& O9 T% Q& `（1）用C函数产生向量
例：names<-c(“张三”,“李四”,“王五”)
% a- T8 W) w1 B% a
（2）将向量形式的数据组织转换成数据框模式
例：table<-data.frame(“姓名”=names，···)
table
9 u/ @1 G$ |3 Z9 t0 v4 S
（3）将向量形式的数据转组织成矩阵

& X; J. s( N0 P" \0 N（4）在R中录入数据并组织成矩阵
$ Y% w) T7 a& G8 U: n: J9 y  W$ t

5. 读取R数据
, T6 E7 B; k) {7 z) k$ _4 ?* jload(“load(“存储路径 /文件名字.RData”)”)
读取包含标题的csv文件
2 I) {6 N/ f- n& dread.csv(“存储路径 /文件名字.csv”)
读取不包含标题的csv文件
read.csv(“存储路径 /文件名字.csv”,header=FALSE)
导入Excel数据
$ B7 _0 E. s# c0 Y* _9 Q
. `1 ~8 ]4 Q4 l8 n  Q3 j! G9 E
/ W) Y- \! V% r0 ?9 b8 T% A( j/ f导入spss数据
. `, Y* H9 N! r% n, j1 n
7 t1 Y( X9 @) k5 S5 ~- G  M6.保存数据
R格式
save(table,file=“存储路径 /table.RData”)
csv格式
write.csv(table,file=“存储路径 /table.csv”)
  v( }3 R" W! R6 J: ^/ v7.查看数据
$ N* Q' J2 y9 @9 _全部
6 k) P& K- F' {) k) a1 ^" _( |  utable
前几行
7 o0 N* P- [7 q: _8 i, c/ r% lhead(table)
最后几行
tail(table)
, x$ t' N' [7 i# j) F3 c; d8.数据排序
升序：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]

  \4 B/ U# D2 T$ j0 F  b, A
* p- g% n9 T: p/ q* {% l+ Y
. U# c  Z2 G0 J, A* T: m" a" T4 A变量重命名：
library(reshape)
- h& ], k' k1 @7 A* G3 t0 Yrename(t,c(“地区生产总值”=“GDP”))
缺失值的处理：
检测：x<-c(2,4,6,NA)
1 A7 }% ?2 B7 ^+ `, uis.na(x)
  O/ |+ G) \/ i3 y6 z" ~排除：x<-c(2,4,6,NA)
sum(x)
y<-sum(x,na.rm=TRUE)