R语言match函数的应用举例
2021-01-10 本文已影响0人
PhageNanoenzyme
数据筛选是在分析中最常用的步骤，如数据挖掘分析中，从TCGA或GEO得到的表达矩阵要不断筛选，来进行数据整理。
match函数是生信技能树生信爆款入门课程R语言部分的讲到的一个重要知识点。
为加深理解，现在找一个数据集做下练习巩固。
官方说明文档:
match
match：匹配两个向量，返回第二个向量在第一个向量匹配位置的下标值。
match函数使用格式有如下两种:
第一种方便设置参数，返回x中元素在table中的位置
match(x, table, nomatch = NA_integer_, incomparables = NULL)
第二种简洁，返回x中每个元素在table中是否存在
x %in% table
参数详解
x: 向量, 要匹配的值;
table: 向量, 被匹配的值;
nomatch: 没匹配上的返回值, 必须是整数;
incomparables: 指定不能用来匹配的值.
match函数是一个完全匹配函数, 当两个元素类型不一样时, 如果进行类型转换后匹配得上的话, 则仍可匹配, 可看下例.
match(c(1, "TRUE"), c(T, 0, "1"))
返回3 1，
即1位于表中的3号位，TRUE位于1号位，且T和TRUE可匹配成功
c(1, "TRUE", F) %in% c(T, 0, "1")
返回TRUE TRUE FALSE，
表示每个元素在table中是否存在
举例练习如下：
生成测试数据：
library(tidyverse)
diamonds
> x <- colnames(diamonds)[1:5]
> x
[1] "carat" "cut" "color" "clarity" "depth"
> y <- colnames(diamonds)[1:10]
> y
[1] "carat" "cut" "color" "clarity" "depth" "table" "price" "x" "y"
[10] "z"
> z <- colnames(diamonds)[seq(1,10,2)]
> z
[1] "carat" "color" "depth" "price" "y"
1.使用match函数找出x中每个元素在y中的位置
> match(x,y)
[1] 1 2 3 4 5
2.使用match函数找出y中每个元素在x中的位置
> match(y,x)
[1] 1 2 3 4 5 NA NA NA NA NA
3.判断z中的元素是否都在x中
> z %in% x
[1] TRUE TRUE TRUE FALSE FALSE
4.z中元素都在y的什么位置？
> match(z,y)
[1] 1 3 5 7 9
5.z中有多少个元素在y中？
sum(z %in% y)
[1] 5
6.挑出y里面有z中没有的数值。
y[-match(z,y)]
[1] "cut" "clarity" "table" "x" "z"
7.x和z中有几个相同元素？,都是哪些元素？
> sum(x %in% z)
[1] 3
> z[x %in% z]
[1] "carat" "depth" "y"
8.z中和y相同的元素都有哪些？
> y[match(z,y)]
[1] "carat" "color" "depth" "price" "y"
9.x和z中相同的元素都有哪些？
> x[x %in% z]
[1] "carat" "color" "depth"
10.使用match删除y中与z重复的值
> y[-match(z,y)]
[1] "cut" "clarity" "table" "x" "z"
