使用dplyr中的select在数据帧中使用行值的子集列

Question

我希望通过第一行中的条目对数据框架进行子集。例如：

col1 <- c("blue", 2, "small")
col2 <- c("red", 4, "large")
col3 <- c("green", 3, "medium")

df <- data.frame(col1, col2, col3)

..。我想根据第一个条目“红色”将df子集为col2。如果有两列符合这一标准，例如：

col1 <- c("blue", 2, "small")
col2 <- c("red", 4, "large")
col3 <- c("green", 3, "medium")
col4 <- c("red", 5, "small")

df <- data.frame(col1, col2, col3, col4)

..。二校及四校应退回。

对于我的问题，我已经看过this answer了--答案已经5年了，所以我希望在dplyr中使用select有一种更优雅的方法。

谢谢。

Answer 1

不需要dplyr就可以选择它们。

df <- data.frame(col1, col2, col3, col4)    
df[,df[1,] == "red", drop = F]
#    col2  col4
# 1   red   red
# 2     4     5
# 3 large small