🍉CSDN小墨&晓末:https://blog.csdn.net/jd1813346972
个人介绍: 研一｜统计学｜干货分享
擅长Python、Matlab、R等主流编程软件
累计十余项国家级比赛奖项，参与研究经费10w、40w级横向
该篇文章主要演示R语言中的基本数据操作方法，建议收藏！
文章包括：数据读取；数据基本的四则运算；向量操作及运算；矩阵操作及运算；数据框操作等方法。
运行程序：
data<- read.csv ( "G:\\Fonts\\Book1.csv")
head(data)
运行结果：
## X1 X2
## 1 2 5
## 2 2 2
## 3 3 7
## 4 4 0
## 5 4 2
运行程序：
data1<-data.frame(1,2,2)
fix(data1) #直接写入
data2<-read.table("clipboard", header = T,sep = '\t')
head(data2) #通过粘贴板内容写入
运行结果：
## X119.367781 X25.99242
## 1 119.3678 25.99242
## 2 119.3678 25.99242
## 3 119.3678 25.99242
## 4 119.3678 25.99242
## 5 119.3678 25.99242
运行程序：
a1=20
a2=4
a1+a2 #加法
运行结果：
## [1] 24
运行程序：
a1-a2 #减法
运行结果：
## [1] 16
运行程序：
a1*a2 #乘法
运行结果：
## [1] 80
运行程序：
a1/a2 #除法
运行结果：
## [1] 5
运行程序：
(3+5/4)**2-6 #综合算法
运行结果：
## [1] 12.0625
运行程序：
5%%2 #余数
运行结果：
## [1] 1
运行程序：
5%/%2 #整除
运行结果：
## [1] 2
运行程序：
abs(-3) #绝对值
运行结果：
## [1] 3
运行程序：
sign(3) #判断正负
运行结果：
## [1] 1
运行程序：
3^2 #幂指数
运行结果：
## [1] 9
运行程序：
sqrt(4) #平方根
运行结果：
## [1] 2
运行程序：
## [1] 5 3 4 2
运行结果：
## [1] 2
运行程序：
y<-c(TRUE,FALSE,TRUE);y #逻辑向量
运行结果：
## [1] TRUE FALSE TRUE
运行程序：
numeric(5) #填充5个0向量
运行结果：
## [1] 0 0 0 0 0
运行程序：
a1<-c(12,18,32,24)
a2<-c(3,6,2,4)
a1+a2 #加法
运行结果：
## [1] 15 24 34 28
运行程序：
a1-a2 #减法
运行结果：
## [1] 9 12 30 20
运行程序：
a1*a2 #乘法
运行结果：
## [1] 36 108 64 96
运行程序：
a1/a2 #除法
运行结果：
## [1] 4 3 16 6
运行程序：
a1%*%a1 #内积
运行结果：
## [,1]
## [1,] 2068
运行程序：
a1%o%a2 #外积
运行结果：
## [,1] [,2] [,3] [,4]
## [1,] 36 72 24 48
## [2,] 54 108 36 72
## [3,] 96 192 64 128
## [4,] 72 144 48 96
运行程序：
A<-matrix(1:12,ncol=4,nrow=3,byrow=TRUE);
A #普通矩阵
运行结果：
## [,1] [,2] [,3] [,4]
## [1,] 1 2 3 4
## [2,] 5 6 7 8
## [3,] 9 10 11 12
运行程序：
t(A) #转置矩阵
运行结果：
## [,1] [,2] [,3]
## [1,] 1 5 9
## [2,] 2 6 10
## [3,] 3 7 11
## [4,] 4 8 12
运行程序：
A[1:2,c(1,2,3)] #子矩阵
运行结果：
## [,1] [,2] [,3]
## [1,] 1 2 3
## [2,] 5 6 7
运行程序：
C=matrix(1:9,nrow = 3,ncol = 3,byrow = T);diag(C)
diag(c(1:3))
运行结果：
## [,1] [,2] [,3]
## [1,] 1 0 0
## [2,] 0 2 0
## [3,] 0 0 3
运行程序：
diag(3) #单位矩阵
运行结果：
## [,1] [,2] [,3]
## [1,] 1 0 0
## [2,] 0 1 0
## [3,] 0 0 1
运行程序：
A<-matrix(1:9,ncol=3,nrow=3,byrow=TRUE)
B<-matrix(4:12,ncol=3,nrow=3,byrow=TRUE)
A+B #矩阵加法
运行结果：
## [,1] [,2] [,3]
## [1,] 5 7 9
## [2,] 11 13 15
## [3,] 17 19 21
运行程序：
A-B #矩阵减法
运行结果：
## [,1] [,2] [,3]
## [1,] -3 -3 -3
## [2,] -3 -3 -3
## [3,] -3 -3 -3
运行程序：
A/B #矩阵除法
运行结果：
## [,1] [,2] [,3]
## [1,] 0.2500000 0.4000000 0.5000000
## [2,] 0.5714286 0.6250000 0.6666667
## [3,] 0.7000000 0.7272727 0.7500000
运行程序：
A*B #矩阵乘法
运行结果：
## [,1] [,2] [,3]
## [1,] 4 10 18
## [2,] 28 40 54
## [3,] 70 88 108
运行程序：
A%*%B #矩阵A乘以矩阵B
运行结果：
## [,1] [,2] [,3]
## [1,] 48 54 60
## [2,] 111 126 141
## [3,] 174 198 222
运行程序：
d=data.frame(name=c("小李","小张","小民"),age=c(18,19,16),height=c(175,172,177));d
运行结果：
## name age height
## 1 小李 18 175
## 2 小张 19 172
## 3 小民 16 177
运行程序：
d[1,2]
运行结果：
## [1] 18