向量列表中的grepl和子集？

Question

I have a list generated from the the code below,

df <- USArrests
df <- na.omit(df)
df <- scale(df)
d <- dist(df, method = "euclidean")

# Hierarchical clustering using Complete Linkage
hc1 <- hclust(d, method = "complete" )

library(dendextend)
dend15 <- d %>% hclust(method = "average") %>% as.dendrogram
dend15 %>% plot

subtrees <- partition_leaves(dend15)

What I would like to do is to subset a new list with grep for the keyword "Maine" . Is this possible?

Sample of the data:

head ( subtrees, 20 )

[[1]]
 [1] "North Dakota"   "Maine"          "Iowa"           "New Hampshire"  "Vermont"       
 [6] "South Dakota"   "West Virginia"  "Delaware"       "Rhode Island"   "Massachusetts" 
[11] "New Jersey"     "Arkansas"       "Kentucky"       "Connecticut"    "Minnesota"     
[16] "Wisconsin"      "Idaho"          "Montana"        "Nebraska"       "Wyoming"       
[21] "Virginia"       "Oklahoma"       "Indiana"        "Kansas"         "Ohio"          
[26] "Pennsylvania"   "Hawaii"         "Utah"           "Oregon"         "Washington"    
[31] "Alaska"         "Georgia"        "Tennessee"      "Alabama"        "Louisiana"     
[36] "North Carolina" "Mississippi"    "South Carolina" "California"     "Nevada"        
[41] "Florida"        "Colorado"       "Missouri"       "Texas"          "Illinois"      
[46] "New York"       "Arizona"        "Michigan"       "Maryland"       "New Mexico"    

[[2]]
 [1] "North Dakota"  "Maine"         "Iowa"          "New Hampshire" "Vermont"      
 [6] "South Dakota"  "West Virginia" "Delaware"      "Rhode Island"  "Massachusetts"
[11] "New Jersey"    "Arkansas"      "Kentucky"      "Connecticut"   "Minnesota"    
[16] "Wisconsin"     "Idaho"         "Montana"       "Nebraska"      "Wyoming"      
[21] "Virginia"      "Oklahoma"      "Indiana"       "Kansas"        "Ohio"         
[26] "Pennsylvania"  "Hawaii"        "Utah"          "Oregon"        "Washington"   

[[3]]
[1] "North Dakota"  "Maine"         "Iowa"          "New Hampshire" "Vermont"      
[6] "South Dakota"  "West Virginia"

[[4]]
[1] "North Dakota"  "Maine"         "Iowa"          "New Hampshire"

[[5]]
[1] "North Dakota"

[[6]]
[1] "Maine"         "Iowa"          "New Hampshire"

[[7]]
[1] "Maine"

[[8]]
[1] "Iowa"          "New Hampshire"

[[9]]
[1] "Iowa"

Answer 1

lapply over the list and use grep

lapply(subtrees, grep, pattern = "Maine", value = TRUE)

You might want to remove empty lists from it which can be done using Filter

Filter(function(x) length(x) > 0, lapply(subtrees, grep, pattern = "Maine", value = TRUE))

#[[1]]
#[1] "Maine"

#[[2]]
#[1] "Maine"

#[[3]]
#[1] "Maine"

#[[4]]
#[1] "Maine"

#[[5]]
#[1] "Maine"

#[[6]]
#[1] "Maine"

---

tidyverse way could be

purrr::map(subtrees, ~stringr::str_subset(.x, "Maine"))

---

To get the index of the list which matches we can use grepl along with which

which(sapply(subtrees, function(x) any(grepl("Maine", x))))
#[1] 1 2 3 4 6 7