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

1047521767

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

index<-c("低收入户","中等偏下户","中等收入户","中等偏上户","高收入户")
' a2 o' t- b, s* T) b0 Nyear2008<-c(1500,2935,4203,5929,11290)
year2009<-c(1549,3110,4502,6468,12319)
year2010<-c(1870,3621,5222,7441,14050)
% b1 [: H& x5 u- a3 ]7 B5 kyear2011<-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)
' X/ ~. R# ~. U" |8 m; ?/ vtt
: {. m2 k2 c- H3 P5 D
. ]8 d$ R7 ]2 n- U! N* t+ wsave(tt,file="F:/统计学/实验作业/tt.RData")
load("F:/统计学/实验作业/tt.RData")
matrix1_1<-as.matrix(tt[,2:6])
rownames(matrix1_1)=tt[,1]
( r& {* P1 e3 Q) I" Y. gsave(matrix1_1,file="F:/统计学/实验作业/matrix.RData")
' C* h  @' ~4 y/ Z" ~" Qmatrix1_1
4 s. F+ B! d- D4 n基础知识：
! L& G. j3 N: |1.为对象赋值
2 s  w5 E3 U0 U* e$ r4 f1 d

7 e4 T* Z# c, I5 j7 Q2 D2.对对象X进行各种计算和绘图
5 n0 D6 w$ M0 P+ ?# F
* {; g( ?9 c4 h0 O3.R包的安装和加载
查看

在线安装所需包
, O# P0 ~0 j6 m8 h( Y9 r5 b, c
/ r! o# W$ K; V, O) P# i1 ^一次安装多个包

4 P! D4 V# k9 X  {8 Z- o6 C  g要使用包，需要用library()函数或者require()函数载入这个包
4.在R中录入数据
5 Q; G7 v6 Y) ]* s6 U2 I( Z（1）用C函数产生向量
, N; E+ _* U% F- n* S- y例：names<-c(“张三”,“李四”,“王五”)
+ q3 ^0 g! Z5 h7 r3 a  p
（2）将向量形式的数据组织转换成数据框模式
# l5 _* z/ K+ A例：table<-data.frame(“姓名”=names，···)
table
: h' k2 V+ i4 e+ r* y6 p; @
（3）将向量形式的数据转组织成矩阵
$ v2 D- N$ S; a' S) L6 h' S/ r
6 V# i6 U  t7 Y3 D: k（4）在R中录入数据并组织成矩阵


# J3 Q1 y0 ?$ f. T; M5. 读取R数据
! Y# R. P* @' q4 H" fload(“load(“存储路径 /文件名字.RData”)”)
读取包含标题的csv文件
4 \0 g. s( K0 j6 f% l. ]read.csv(“存储路径 /文件名字.csv”)
读取不包含标题的csv文件
read.csv(“存储路径 /文件名字.csv”,header=FALSE)
导入Excel数据
" d- m/ O4 E; h3 [
; @5 p# w9 }! n: S5 l6 y
导入spss数据

6.保存数据
R格式
, b! p/ T; E  A1 n: M+ R9 S0 s/ ?save(table,file=“存储路径 /table.RData”)
csv格式
. j7 |! B2 d7 c7 {write.csv(table,file=“存储路径 /table.csv”)
% m4 r! J4 x9 P3 J+ {* X( @7.查看数据
全部
' g% n% H- J% g3 `6 z0 Rtable
6 Q# O* V; {7 \, J9 Z& j前几行
head(table)
最后几行
' T, h/ G# Q8 g6 p$ ]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地区生产总值),]
) \* A# m6 Z" V: Z或者：newt2<-t[order(t$地区生产总值),decreasing=TRUE]

$ p. j# O5 W* Z+ Y; O5 W9 N

变量重命名：
2 Y/ f% O; X1 \2 f, ~. zlibrary(reshape)
rename(t,c(“地区生产总值”=“GDP”))
缺失值的处理：
检测：x<-c(2,4,6,NA)
# v! L/ C8 n* V7 a" i8 Eis.na(x)
排除：x<-c(2,4,6,NA)
3 n, @7 F. Q9 M! r) ?sum(x)
/ A2 c; L$ u% {( zy<-sum(x,na.rm=TRUE)