Блог

Допустим, у меня есть два объекта,

 mixed # A tibble: 7 x 2  genus epithet   lt;chrgt; lt;chrgt;  1 Vincetoxicum nigrum  2 Rosa multiflora 3 Quercus rubra  4 Acer saccharum  5 Rosa pendula  6 Vincetoxicum nigrum  7 Vincetoxicum nigrum  

и

 invasives # A tibble: 4 x 2  genus epithet   lt;chrgt; lt;chrgt;  1 Larix pendula  2 Picea abies  3 Rosa multiflora 4 Vincetoxicum nigrum  

Я хочу проверить, совпадают ли оба столбца «смешанного» с обоими столбцами «инвазивов», и получить индекс, который позволил бы мне извлечь эти совпадения из «смешанного». Обратите внимание, что «pendula» находится в «эпитете» как в «смешанном», так и в «инвазивном», но в соответствующей строке в первом столбце есть «Larix» в «инвазивном» и «Rosa» в «смешанном», поэтому он не включен в конечный продукт.

Поэтому, как только этот индекс был создан, я думаю, что хотел бы запустить:

 columns_matched lt;- mixed[index,]  

приносящий:

 columns_matched # A tibble: 4 x 2  genus epithet   lt;chrgt; lt;chrgt;  1 Vincetoxicum nigrum  2 Rosa multiflora  3 Vincetoxicum nigrum  4 Vincetoxicum nigrum   

csv-версии таблиц:

 genus,epithet Vincetoxicum,nigrum Rosa,multiflora Quercus,rubra Acer,saccharum Rosa,pendula Vincetoxicum,nigrum Vincetoxicum,nigrum  genus,epithet Larix,pendula Picea,abies Rosa,multiflora Vincetoxicum,nigrum  

Спасибо.

Самый простой ответ, который приходит на ум,-это просто inner_join ваши наборы данных. Таким образом, остаются только одинаковые строки:

 library(tidyverse) mixed lt;- read_csv('genus,epithet Vincetoxicum,nigrum Rosa,multiflora Quercus,rubra Acer,saccharum Rosa,pendula Vincetoxicum,nigrum Vincetoxicum,nigrum') #gt; Rows: 7 Columns: 2 #gt; ── Column specification ──────────────────────────────────────────────────────── #gt; Delimiter: "," #gt; chr (2): genus, epithet #gt;  #gt; ℹ Use `spec()` to retrieve the full column specification for this data. #gt; ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.  invasives lt;- read_csv('genus,epithet Larix,pendula Picea,abies Rosa,multiflora Vincetoxicum,nigrum') #gt; Rows: 4 Columns: 2 #gt; ── Column specification ──────────────────────────────────────────────────────── #gt; Delimiter: "," #gt; chr (2): genus, epithet #gt;  #gt; ℹ Use `spec()` to retrieve the full column specification for this data. #gt; ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.   mixed %gt;%   inner_join(invasives) #gt; Joining, by = c("genus", "epithet") #gt; # A tibble: 4 × 2 #gt; genus epithet  #gt; lt;chrgt; lt;chrgt;  #gt; 1 Vincetoxicum nigrum  #gt; 2 Rosa multiflora #gt; 3 Vincetoxicum nigrum  #gt; 4 Vincetoxicum nigrum  

Если бы вы действительно хотели иметь этот индекс, вы могли бы просто добавить фиктивный столбец в свою смешанную таблицу:

 index lt;- mixed %gt;%   mutate(index = seq_along(genus)) %gt;%   inner_join(invasives) %gt;%   pull(index) #gt; Joining, by = c("genus", "epithet")  mixed[index,] #gt; # A tibble: 4 × 2 #gt; genus epithet  #gt; lt;chrgt; lt;chrgt;  #gt; 1 Vincetoxicum nigrum  #gt; 2 Rosa multiflora #gt; 3 Vincetoxicum nigrum  #gt; 4 Vincetoxicum nigrum