R присоединиться к Tolower

Question

У меня есть некоторые образцы данных

data1 = data.frame(name = c("cat", "dog", "parrot"), freq = c(1,2,3))
data2 = data.frame(name = c("Cat", "snake", "Dog", freq2 = c(2,3,4)))
data1$name = as.character(data1$name)
data2$name = as.character(data2$name)

к которому я хочу присоединиться, но, например, "cat" и "Cat" должны рассматриваться как одно и то же значение. Я думал об использовании tolower и сначала определить записи, которые появляются в обоих фреймах данных

in_both = data1[(tolower(data1$name) %in% tolower(data2$name)),]

Тогда я хочу присоединиться к data2, но это не работает, потому что имена не совпадают.

library(dplyr)
left_join(in_both, data2)

Есть ли способ присоединиться с помощью tolower?

Answer 1

Если вы не хотите изменять свой оригинал data2, как предлагает @AshofFire, вы можете декапитализировать значения в name в трубе %>% и затем выполните операцию соединения:

data2 %>%
  mutate(name = str_to_lower(name)) %>%
  inner_join(data1, by = "name") 

  name freq2 freq
1  cat     2    1
2  dog     4    2

Answer 2

Почему бы не создать dplyr функция, которая снизит имя слева data.frame и выполнить слияние.

С пользовательской функцией вы получаете больше контроля, и вам не придется повторять много шагов.

f_dplyr <- function(left,right){
  left$name <- tolower(left$name)
  inner_join(left,right,by="name")
}

f_dplyr(data2, data1)

Результат

  name freq2 freq
  cat     2    1
  dog     4    2