当列在R中包含特定字符串时删除列

xpcnnkqh 于 2022-12-25 发布在其他

关注(0)|答案(3)|浏览(526)

我想删除其中包含LA的列。示例数据集如下所示：

testdata <- data.frame(id = c(1,2,3),
                   v1 = c("LA", "C","D"),
                   v2 = c("N","M","LA"),
                   v3 = c("D","E","T"))

> testdata
  id v1 v2 v3
1  1 LA  N  D
2  2  C  M  E
3  3  D LA  T

如何删除v1和v2并获得下面所需的数据集？

> testdata
      id   v3
    1  1    D
    2  2    E
    3  3    T

来源：https://stackoverflow.com/questions/74869211/remove-columns-when-they-include-specific-string-in-r

3条答案

按热度按时间

t2a7ltrp1#

testdata%>%
  select(-which(sapply(., function(x) any(x=="LA"))))

  id v3
1  1  D
2  2  E
3  3  T

赞(0）回复(0）举报 2022-12-25

3npbholx2#

使用sapply或vapply可以执行以下操作：

testdata[vapply(testdata, function(x) !any(grepl("LA", x)), FUN.VALUE = logical(1))]
#>   id v3
#> 1  1  D
#> 2  2  E
#> 3  3  T

testdata[sapply(testdata, function(x) !any(grepl("LA", x)))]
#>   id v3
#> 1  1  D
#> 2  2  E
#> 3  3  T

或者使用dplyr：

library(dplyr)

testdata %>%
  select(where(~!any(grepl("LA", .x))))
#>   id v3
#> 1  1  D
#> 2  2  E
#> 3  3  T

赞(0）回复(0）举报 2022-12-25

5w9g7ksd3#

使用discard

library(purrr)
discard(testdata, ~ "LA" %in% .x)
  id v3
1  1  D
2  2  E
3  3  T

赞(0）回复(0）举报 2022-12-25

我来回答

当列在R中包含特定字符串时删除列

3条答案

相关问题

热门标签

最新问答