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

1047521767

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

5 Z! X& f% X# v5 v/ J% s6 f7 @index<-c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户")
year2008<-c(1500,2935,4203,5929,11290)
5 a, [+ A/ s' cyear2009<-c(1549,3110,4502,6468,12319)
" |' }5 Z, O; c: iyear2010<-c(1870,3621,5222,7441,14050)
3 J" T$ \% h& b7 uyear2011<-c(2001,4256,6208,8894,16783)
6 [$ a' h9 F2 q* t! Tyear2012<-c(2316,4808,7041,10142,19009)
tt<-data.frame("指标"=index,"2008年"=year2008,"2009年"=year2009,"2010年"=year2010,"2011年"=year2011,"2012年"=year2012)
tt
+ O  f7 ~* X6 q' {$ }( g
6 c# U8 x, E- Wsave(tt,file="F:/统计学/实验作业/tt.RData")
load("F:/统计学/实验作业/tt.RData")
matrix1_1<-as.matrix(tt[,2:6])
- z9 x/ T4 Q; A( srownames(matrix1_1)=tt[,1]
, @9 }) _% _; K! _. j" Ssave(matrix1_1,file="F:/统计学/实验作业/matrix.RData")
( `& h% |3 t' {8 |matrix1_1
% F3 ^- l/ J0 Z; `9 n% \基础知识：
1.为对象赋值


  D/ a! {, t  `" F2.对对象X进行各种计算和绘图

3.R包的安装和加载
查看

在线安装所需包

一次安装多个包
# [6 K& z5 y  b- m
要使用包，需要用library()函数或者require()函数载入这个包
$ a) U0 ]  A# W) s4.在R中录入数据
$ O; V* g* B% _9 l6 _( O+ r. [（1）用C函数产生向量
  s  d- e6 ]' y* C例：names<-c(“张三”,“李四”,“王五”)
, ?: S, x, f4 F# x4 q
) X" b7 [7 v4 Z# @（2）将向量形式的数据组织转换成数据框模式
+ m8 a3 ?2 \6 G  {例：table<-data.frame(“姓名”=names，···)
table
; q9 I# L7 s; j7 w
（3）将向量形式的数据转组织成矩阵

6 f; N, d4 S5 A" J（4）在R中录入数据并组织成矩阵


* w) o2 e( d; m( F+ q( G5. 读取R数据
load(“load(“存储路径 /文件名字.RData”)”)
读取包含标题的csv文件
- w3 h) i( ^1 `8 i# qread.csv(“存储路径 /文件名字.csv”)
读取不包含标题的csv文件
1 d4 a* b! D# H6 u; Bread.csv(“存储路径 /文件名字.csv”,header=FALSE)
导入Excel数据


导入spss数据
- a# p& u! t* z
6.保存数据
' K4 [8 E/ B* A% M) Y4 }' j+ g/ pR格式
( o: R* h0 W, z0 p7 asave(table,file=“存储路径 /table.RData”)
2 z- @  X  N" A- {csv格式
! b3 m# f" N3 H4 u6 Jwrite.csv(table,file=“存储路径 /table.csv”)
5 R2 \# \3 O- a" |+ G4 ]3 _7.查看数据
  @8 ~! z2 f5 W( z; \7 B6 F# E全部
$ d) ?. V# I: F0 }# i& t4 ^/ itable
前几行
+ t" R. ?: G/ C! `: W1 f( Z) H* Shead(table)
最后几行
" P9 D( e9 d6 k# c/ o) ~& N: vtail(table)
% l& r- E( F1 N8.数据排序
' O3 Q7 M! ?% g- u6 n5 x# C升序：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]
' X* C; z# {1 _
5 m: {, \- I* F# m% J: H& E7 i
2 E7 g( h( q. Z( {3 Z" u9 V
4 l2 N# }8 ?& e. H2 y变量重命名：
( o4 ]" d* @4 v5 k1 o3 c" Zlibrary(reshape)
( x- h  R. W  X+ j4 ^  B; s! Urename(t,c(“地区生产总值”=“GDP”))
缺失值的处理：
! e( c1 l. o, R8 T7 m- Z: \1 t检测：x<-c(2,4,6,NA)
  Z0 T# e$ m: b1 _9 Tis.na(x)
排除：x<-c(2,4,6,NA)
- F* m3 e5 M3 ?/ a( b$ n) osum(x)
y<-sum(x,na.rm=TRUE)
- Z/ H" p, W9 g: f6 s4 ?( D