Как вытащить индексы столбцов при сопоставлении строк информационного кадра и вектора

Question

Скажем, у меня есть датафрейм букв примерно так:

  X1 X2 X3
1  G  A  C
2  G  T  C
3  G  T  C
4  A  T  G
5  A  C  G

И такой вектор: ref <- c("A", "C", "C", "A", "G")

Идя по строкам, как мне вытащить индексы столбцов кадр данных, который соответствует вектору?

Поэтому ответом должен быть вектор чисел, например: 2, 3, 3, 1, 3

Answer 1

Мы можем использовать

max.col(df1 == ref)
#[1] 2 3 3 1 3

данные

df1 <- structure(list(X1 = c("G", "G", "G", "A", "A"), X2 = c("A", "T", 
"T", "T", "C"), X3 = c("C", "C", "C", "G", "G")), class = "data.frame",
row.names = c("1", 
"2", "3", "4", "5"))