【R语言基础操作】

🍉CSDN小墨&晓末:https://blog.csdn.net/jd1813346972

   个人介绍: 研一｜统计学｜干货分享
         擅长Python、Matlab、R等主流编程软件
         累计十余项国家级比赛奖项，参与研究经费10w、40w级横向

该篇文章主要演示R语言中的基本数据操作方法，建议收藏！

文章包括：数据读取；数据基本的四则运算；向量操作及运算；矩阵操作及运算；数据框操作等方法。

1 数据读取

  运行程序：

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

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

3 数据的四则运算

3.1 加法

  运行程序：

a1=20
a2=4
a1+a2              #加法

  运行结果：

## [1] 24

3.2 减法

  运行程序：

a1-a2              #减法

  运行结果：

## [1] 16

3.3 乘法

  运行程序：

a1*a2              #乘法

  运行结果：

## [1] 80

3.4 除法

  运行程序：

a1/a2              #除法

  运行结果：

## [1] 5

3.5 综合算法

  运行程序：

(3+5/4)**2-6       #综合算法

  运行结果：

## [1] 12.0625

3.6 余数

  运行程序：

5%%2               #余数

  运行结果：

## [1] 1

3.7 整除

  运行程序：

5%/%2              #整除

  运行结果：

## [1] 2

3.8 整除

  运行程序：

abs(-3)            #绝对值

  运行结果：

## [1] 3

3.9 判断正负

  运行程序：

sign(3)            #判断正负

  运行结果：

## [1] 1

3.10 幂指数

  运行程序：

3^2                #幂指数

  运行结果：

## [1] 9

3.11 平方根

  运行程序：

sqrt(4)            #平方根

  运行结果：

## [1] 2

4 向量

4.1 普通向量

  运行程序：

## [1] 5 3 4 2

  运行结果：

## [1] 2

4.2 逻辑向量

  运行程序：

y<-c(TRUE,FALSE,TRUE);y    #逻辑向量

  运行结果：

## [1]  TRUE FALSE  TRUE

4.3 向量填充

  运行程序：

numeric(5)                 #填充5个0向量

  运行结果：

## [1] 0 0 0 0 0

5 向量的运算

5.1 加法

  运行程序：

a1<-c(12,18,32,24)
a2<-c(3,6,2,4)
a1+a2                      #加法

  运行结果：

## [1] 15 24 34 28

5.2 减法

  运行程序：

a1-a2                      #减法

  运行结果：

## [1]  9 12 30 20

5.3 乘法

  运行程序：

a1*a2                      #乘法

  运行结果：

## [1]  36 108  64  96

5.4 除法

  运行程序：

a1/a2              #除法

  运行结果：

## [1]  4  3 16  6

5.5 内积

  运行程序：

a1%*%a1                    #内积

  运行结果：

##      [,1]
## [1,] 2068

5.6 外积

  运行程序：

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

6 矩阵

6.1 普通矩阵

  运行程序：

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

6.2 转置矩阵

  运行程序：

t(A)              #转置矩阵

  运行结果：

##      [,1] [,2] [,3]
## [1,]    1    5    9
## [2,]    2    6   10
## [3,]    3    7   11
## [4,]    4    8   12

6.3 子矩阵

  运行程序：

A[1:2,c(1,2,3)]   #子矩阵

  运行结果：

##      [,1] [,2] [,3]
## [1,]    1    2    3
## [2,]    5    6    7

6.5 对角矩阵

  运行程序：

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

6.6 单位矩阵

  运行程序：

diag(3)           #单位矩阵

  运行结果：

##      [,1] [,2] [,3]
## [1,]    1    0    0
## [2,]    0    1    0
## [3,]    0    0    1

7 矩阵运算

7.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

7.2 矩阵减法

  运行程序：

A-B               #矩阵减法

  运行结果：

##      [,1] [,2] [,3]
## [1,]   -3   -3   -3
## [2,]   -3   -3   -3
## [3,]   -3   -3   -3

7.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

7.4 矩阵乘法

  运行程序：

A*B               #矩阵乘法

  运行结果：

##      [,1] [,2] [,3]
## [1,]    4   10   18
## [2,]   28   40   54
## [3,]   70   88  108

7.5 两矩阵相乘

  运行程序：

A%*%B             #矩阵A乘以矩阵B

  运行结果：

##      [,1] [,2] [,3]
## [1,]   48   54   60
## [2,]  111  126  141
## [3,]  174  198  222

8 数据框

8.1 数据框创建

  运行程序：

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

8.2 数据框取数

  运行程序：

d[1,2]

  运行结果：

## [1] 18