Удалить столбцы на основе имен строк

Question

У меня есть 2 фрейма данных, и я хотел бы удалить все столбцы в df1, имена которых соответствуют именам строк в df2.

df1

  GO_267 GO_345 GO_5 GO_2
a  0      1     1    1
b  0      1     1    1
c  0      1     1    1
d  0      1     1    1
e  0      1     1    1

df2

       z
GO_267 2
GO_345 3
GO_2   7

Answer 1

Вы можете использовать which для поднабора, используя список имен строк из второго фрейма данных в качестве источника имен столбцов для исключения.

df1[ , -which(names(df1) %in% row.names(df2)), drop=FALSE]
  GO_5
1    1
2    1
3    1
4    1
5    1

Данные:

df1 <- data.frame(GO_267=c(0,0,0,0,0), GO_345=c(1,1,1,1,1), GO_5=c(1,1,1,1,1),
                  GO_2=c(1,1,1,1,1))
df2 <- data.frame(z=c(2,3,7))
row.names(df2) <- c("GO_267", "GO_345", "GO_2")

Answer 2

Мы могли бы использовать setdiff:

df1[setdiff(names(df1), rownames(df2))]

#  GO_5
#a    1
#b    1
#c    1
#d    1
#e    1

Answer 3

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

library(dplyr)
df1 %>%
    select(-row.names(df2))

данные

df1 <- data.frame(GO_267=c(0,0,0,0,0), GO_345=c(1,1,1,1,1), GO_5=c(1,1,1,1,1),
                  GO_2=c(1,1,1,1,1))
df2 <- data.frame(z=c(2,3,7))
row.names(df2) <- c("GO_267", "GO_345", "GO_2")