返回 TRUE/FALSE 列以检查一组列是否包含值/字符串[重复]

Question

我有一个数据框，我想检查以“时间”开头的任何列是否包含特定值（例如“1”）。如果 1 列或多列包含该值，那么我想要获取 1 列包含 TRUE/FALSE。 这是我的示例数据框：

structure(list(Nummer = c("449002", "449003", "449005", "449006", 
"449010"), `Sample ID.1` = c("4490021", "4490031", "4490051", 
"4490061", "4490101"), Time.1 = c("1", "1", "1", "1", "1"), `Sample ID.2` = c("4490022", 
"4490032", "4490052", "4490062", "4490102"), Time.2 = c("2", 
"2", "2", "2", "2"), `Sample ID.3` = c("4490022", "4490032", 
"4490052", "4490062", "4490102"), Time.3 = c("2", "2", "2", "2", 
"2"), `Sample ID.4` = c("4490023", "4490033", "4490053", "4490063", 
"4490103"), Time.4 = c("3", "3", "3", "3", "3"), `Sample ID.5` = c("4490023", 
"4490031", "4490053", "4490063", "4490103"), Time.5 = c("3", 
"1", "3", "3", "3"), `Sample ID.6` = c("4490021", "4490031", 
"44900551", "4490061", "44901051"), Time.6 = c("1", "1", "51", 
"1", "51"), `Sample ID.7` = c("4490021", "4490031", "4490051", 
"4490061", "4490101"), Time.7 = c("1", "1", "1", "1", "1"), `Sample ID.8` = c("4490022", 
"4490032", "4490051", "4490062", "4490101"), Time.8 = c("2", 
"2", "1", "2", "1"), `Sample ID.9` = c("4490022", "4490032", 
"4490052", "4490062", "4490102"), Time.9 = c("2", "2", "2", "2", 
"2"), `Sample ID.10` = c("4490023", "4490032", "4490052", "4490063", 
"4490102"), Time.10 = c("3", "2", "2", "3", "2"), `Sample ID.11` = c("4490023", 
"4490033", "4490053", "4490063", "4490103"), Time.11 = c("3", 
"3", "3", "3", "3"), `Sample ID.12` = c(NA, "4490033", "4490053", 
NA, "4490103"), Time.12 = c(NA, "3", "3", NA, "3"), `Sample ID.13` = c(NA, 
"4490033", "44900551", NA, "44901051"), Time.13 = c(NA, "3", 
"51", NA, "51"), `Sample ID.14` = c(NA_character_, NA_character_, 
NA_character_, NA_character_, NA_character_), Time.14 = c(NA_character_, 
NA_character_, NA_character_, NA_character_, NA_character_), 
    `Sample ID.15` = c(NA_character_, NA_character_, NA_character_, 
    NA_character_, NA_character_), Time.15 = c(NA_character_, 
    NA_character_, NA_character_, NA_character_, NA_character_
    ), `Sample ID.16` = c(NA_character_, NA_character_, NA_character_, 
    NA_character_, NA_character_), Time.16 = c(NA_character_, 
    NA_character_, NA_character_, NA_character_, NA_character_
    )), class = c("grouped_df", "tbl_df", "tbl", "data.frame"
), row.names = c(NA, -5L), groups = structure(list(Nummer = c("449002", 
"449003", "449005", "449006", "449010"), .rows = structure(list(
    1L, 2L, 3L, 4L, 5L), ptype = integer(0), class = c("vctrs_list_of", 
"vctrs_vctr", "list"))), class = c("tbl_df", "tbl", "data.frame"
), row.names = c(NA, -5L), .drop = TRUE))

提前致谢！如果可能的话，我更喜欢 dplyr 解决方案

Answer 1

在基本 R 中，这是将

"Time"

列与目标字符串

"1"

进行比较并添加逻辑值的问题。如果总和大于零，则返回

TRUE

。

rowSums(df1[grep("Time", names(df1))] == "1", na.rm = TRUE) > 0L
# [1] TRUE TRUE TRUE TRUE TRUE