Subconjunto de listas a través de vectores de índice lógicos
tengo unlista compleja y necesita seleccionar unsubconjunto a partir de él, basado en el valor de un elemento booleano (necesito registros conhidden valor igual aFALSE) He intentado el siguiente código, basado envectores de índice, pero falla (como se muestra al final de esta salida):
startups <- data$startups[data$startups$hidden == FALSE]
O alternativamente:
startups <- data$startups[!as.logical(data$startups$hidden)]
La sesión interactiva de R demuestra que los datos están ahí:
Browse[1]> str(data$startups, list.len=3)
List of 50
$ :List of 23
..$ id : num 357496
..$ hidden : logi FALSE
..$ community_profile: logi FALSE
.. [list output truncated]
$ :List of 2
..$ id : num 352159
..$ hidden: logi TRUE
$ :List of 2
..$ id : num 352157
..$ hidden: logi TRUE
[list output truncated]
Browse[1]> data$startups[data$startups$hidden == FALSE]
list()
Browse[1]> data$startups[!as.logical(data$startups$hidden)]
list()
¿Cuál es el problema con mi código?
Actualización (con suerte incluye un ejemplo reproducible, perdón por la estructura compleja)
aa <- dput(head(data$startups, n=3))
produce el siguiente resultado:
list(structure(list(id = 386938, hidden = FALSE, community_profile = FALSE,
name = "Pritunl", angellist_url = "https://angel.co/pritunl",
logo_url = "https://s3.amazonaws.com/photos.angel.co/startups/i/386938-fac0b8cba76c7e9252eee6646ec5b681-medium_jpg.jpg?buster=1398401450",
thumb_url = "https://s3.amazonaws.com/photos.angel.co/startups/i/386938-fac0b8cba76c7e9252eee6646ec5b681-thumb_jpg.jpg?buster=1398401450",
quality = 0, product_desc = "Enterprise VPN/cloud networking server",
high_concept = "Enterprise cloud networking", follower_count = 1,
company_url = "http://pritunl.com", created_at = "2014-04-25T04:50:57Z",
updated_at = "2014-04-25T06:02:05Z", crunchbase_url = NULL,
twitter_url = "http://twitter.com/pritunl", blog_url = "",
video_url = "", markets = list(structure(list(id = 12, tag_type = "MarketTag",
name = "enterprise software", display_name = "Enterprise Software",
angellist_url = "https://angel.co/enterprise-software"), .Names = c("id",
"tag_type", "name", "display_name", "angellist_url")), structure(list(
id = 59, tag_type = "MarketTag", name = "open source",
display_name = "Open Source", angellist_url = "https://angel.co/open-source"), .Names = c("id",
"tag_type", "name", "display_name", "angellist_url")), structure(list(
id = 123, tag_type = "MarketTag", name = "internet infrastructure",
display_name = "Internet Infrastructure", angellist_url = "https://angel.co/internet-infrastructure"), .Names = c("id",
"tag_type", "name", "display_name", "angellist_url")), structure(list(
id = 306, tag_type = "MarketTag", name = "cloud management",
display_name = "Cloud Management", angellist_url = "https://angel.co/cloud-management"), .Names = c("id",
"tag_type", "name", "display_name", "angellist_url"))), locations = list(
structure(list(id = 2071, tag_type = "LocationTag", name = "new york",
display_name = "New York", angellist_url = "https://angel.co/new-york"), .Names = c("id",
"tag_type", "name", "display_name", "angellist_url"))),
company_size = "1-10", company_type = list(structure(list(
id = 94212, tag_type = "CompanyTypeTag", name = "startup",
display_name = "Startup", angellist_url = "https://angel.co/startup"), .Names = c("id",
"tag_type", "name", "display_name", "angellist_url"))), status = NULL,
screenshots = list(structure(list(thumb = "https://s3.amazonaws.com/screenshots.angel.co/ae/386938/5f7410543201d583eaba1975b931f3fd-thumb_jpg.jpg",
original = "https://s3.amazonaws.com/screenshots.angel.co/ae/386938/5f7410543201d583eaba1975b931f3fd-original.png"), .Names = c("thumb",
"original")), structure(list(thumb = "https://s3.amazonaws.com/screenshots.angel.co/ae/386938/006c4fb50d4b10df7caf7800ee482c6b-thumb_jpg.jpg",
original = "https://s3.amazonaws.com/screenshots.angel.co/ae/386938/006c4fb50d4b10df7caf7800ee482c6b-original.png"), .Names = c("thumb",
"original")), structure(list(thumb = "https://s3.amazonaws.com/screenshots.angel.co/ae/386938/741225c3de5021399c0cfc33cecb8830-thumb_jpg.jpg",
original = "https://s3.amazonaws.com/screenshots.angel.co/ae/386938/741225c3de5021399c0cfc33cecb8830-original.png"), .Names = c("thumb",
"original")), structure(list(thumb = "https://s3.amazonaws.com/screenshots.angel.co/ae/386938/969b60b6ccda577e77b7c9a5c169b2fd-thumb_jpg.jpg",
original = "https://s3.amazonaws.com/screenshots.angel.co/ae/386938/969b60b6ccda577e77b7c9a5c169b2fd-original.png"), .Names = c("thumb",
"original")), structure(list(thumb = "https://s3.amazonaws.com/screenshots.angel.co/ae/386938/2b2cc3a046c5a4d20b328045ca7f0254-thumb_jpg.jpg",
original = "https://s3.amazonaws.com/screenshots.angel.co/ae/386938/2b2cc3a046c5a4d20b328045ca7f0254-original.png"), .Names = c("thumb",
"original")), structure(list(thumb = "https://s3.amazonaws.com/screenshots.angel.co/ae/386938/053c3a1c74fc7f39de1117770f9debef-thumb_jpg.jpg",
original = "https://s3.amazonaws.com/screenshots.angel.co/ae/386938/053c3a1c74fc7f39de1117770f9debef-original.png"), .Names = c("thumb",
"original")), structure(list(thumb = "https://s3.amazonaws.com/screenshots.angel.co/ae/386938/8adcf2d6a6cafc9c6b810f8359a3fedf-thumb_jpg.jpg",
original = "https://s3.amazonaws.com/screenshots.angel.co/ae/386938/8adcf2d6a6cafc9c6b810f8359a3fedf-original.png"), .Names = c("thumb",
"original")))), .Names = c("id", "hidden", "community_profile",
"name", "angellist_url", "logo_url", "thumb_url", "quality",
"product_desc", "high_concept", "follower_count", "company_url",
"created_at", "updated_at", "crunchbase_url", "twitter_url",
"blog_url", "video_url", "markets", "locations", "company_size",
"company_type", "status", "screenshots")), structure(list(id = 385596,
hidden = FALSE, community_profile = TRUE, name = "Lariat ",
angellist_url = "https://angel.co/lariat-1", logo_url = "https://s3.amazonaws.com/photos.angel.co/startups/i/385596-29de05d584176c3972da411aed5485f0-medium_jpg.jpg?buster=1398260121",
thumb_url = "https://s3.amazonaws.com/photos.angel.co/startups/i/385596-29de05d584176c3972da411aed5485f0-thumb_jpg.jpg?buster=1398260121",
quality = 0, product_desc = "Thus far, the internet has gone from discovery to search discovery, and then social discovery, but with little focus on recall. Remembering your digital footprint is difficult. We aim to solve that problem. Lariat is a cloud-based recall engine to securely recall information from any page in your search history instantly through intuitive keyword search, not just from page titles, but from the contents and context of the underlying pages.\r\n\r\nWrangle in the information you want, easier and faster.",
high_concept = "Recall your digital footprint on the web instantly",
follower_count = 1, company_url = "http://www.lariattech.com",
created_at = "2014-04-23T13:17:47Z", updated_at = "2014-04-23T13:48:38Z",
crunchbase_url = NULL, twitter_url = "", blog_url = "", video_url = NULL,
markets = list(structure(list(id = 4, tag_type = "MarketTag",
name = "digital media", display_name = "Digital Media",
angellist_url = "https://angel.co/digital-media"), .Names = c("id",
"tag_type", "name", "display_name", "angellist_url")), structure(list(
id = 12, tag_type = "MarketTag", name = "enterprise software",
display_name = "Enterprise Software", angellist_url = "https://angel.co/enterprise-software"), .Names = c("id",
"tag_type", "name", "display_name", "angellist_url")), structure(list(
id = 59, tag_type = "MarketTag", name = "open source",
display_name = "Open Source", angellist_url = "https://angel.co/open-source"), .Names = c("id",
"tag_type", "name", "display_name", "angellist_url")), structure(list(
id = 282, tag_type = "MarketTag", name = "semantic search",
display_name = "Semantic Search", angellist_url = "https://angel.co/semantic-search"), .Names = c("id",
"tag_type", "name", "display_name", "angellist_url"))), locations = list(
structure(list(id = 1620, tag_type = "LocationTag", name = "boston",
display_name = "Boston", angellist_url = "https://angel.co/boston"), .Names = c("id",
"tag_type", "name", "display_name", "angellist_url"))),
company_size = "1-10", company_type = structure(list(), class = "AsIs"),
status = NULL, screenshots = structure(list(), class = "AsIs")), .Names = c("id",
"hidden", "community_profile", "name", "angellist_url", "logo_url",
"thumb_url", "quality", "product_desc", "high_concept", "follower_count",
"company_url", "created_at", "updated_at", "crunchbase_url",
"twitter_url", "blog_url", "video_url", "markets", "locations",
"company_size", "company_type", "status", "screenshots")), structure(list(
id = 385595, hidden = TRUE), .Names = c("id", "hidden")))
Lo mismo en un formato más legible (aa):
[[1]]
[[1]]$id
[1] 386938
[[1]]$hidden
[1] FALSE
[[1]]$community_profile
[1] FALSE
[[1]]$name
[1] "Pritunl"
[[1]]$angellist_url
[1] "https://angel.co/pritunl"
[[1]]$logo_url
[1] "https://s3.amazonaws.com/photos.angel.co/startups/i/386938-fac0b8cba76c7e9252eee6646ec5b681-medium_jpg.jpg?buster=1398401450"
[[1]]$thumb_url
[1] "https://s3.amazonaws.com/photos.angel.co/startups/i/386938-fac0b8cba76c7e9252eee6646ec5b681-thumb_jpg.jpg?buster=1398401450"
[[1]]$quality
[1] 0
[[1]]$product_desc
[1] "Enterprise VPN/cloud networking server"
[[1]]$high_concept
[1] "Enterprise cloud networking"
[[1]]$follower_count
[1] 1
[[1]]$company_url
[1] "http://pritunl.com"
[[1]]$created_at
[1] "2014-04-25T04:50:57Z"
[[1]]$updated_at
[1] "2014-04-25T06:02:05Z"
[[1]]$crunchbase_url
NULL
[[1]]$twitter_url
[1] "http://twitter.com/pritunl"
[[1]]$blog_url
[1] ""
[[1]]$video_url
[1] ""
[[1]]$markets
[[1]]$markets[[1]]
[[1]]$markets[[1]]$id
[1] 12
[[1]]$markets[[1]]$tag_type
[1] "MarketTag"
[[1]]$markets[[1]]$name
[1] "enterprise software"
[[1]]$markets[[1]]$display_name
[1] "Enterprise Software"
[[1]]$markets[[1]]$angellist_url
[1] "https://angel.co/enterprise-software"
[[1]]$markets[[2]]
[[1]]$markets[[2]]$id
[1] 59
[[1]]$markets[[2]]$tag_type
[1] "MarketTag"
[[1]]$markets[[2]]$name
[1] "open source"
[[1]]$markets[[2]]$display_name
[1] "Open Source"
[[1]]$markets[[2]]$angellist_url
[1] "https://angel.co/open-source"
[[1]]$markets[[3]]
[[1]]$markets[[3]]$id
[1] 123
[[1]]$markets[[3]]$tag_type
[1] "MarketTag"
[[1]]$markets[[3]]$name
[1] "internet infrastructure"
[[1]]$markets[[3]]$display_name
[1] "Internet Infrastructure"
[[1]]$markets[[3]]$angellist_url
[1] "https://angel.co/internet-infrastructure"
[[1]]$markets[[4]]
[[1]]$markets[[4]]$id
[1] 306
[[1]]$markets[[4]]$tag_type
[1] "MarketTag"
[[1]]$markets[[4]]$name
[1] "cloud management"
[[1]]$markets[[4]]$display_name
[1] "Cloud Management"
[[1]]$markets[[4]]$angellist_url
[1] "https://angel.co/cloud-management"
[[1]]$locations
[[1]]$locations[[1]]
[[1]]$locations[[1]]$id
[1] 2071
[[1]]$locations[[1]]$tag_type
[1] "LocationTag"
[[1]]$locations[[1]]$name
[1] "new york"
[[1]]$locations[[1]]$display_name
[1] "New York"
[[1]]$locations[[1]]$angellist_url
[1] "https://angel.co/new-york"
[[1]]$company_size
[1] "1-10"
[[1]]$company_type
[[1]]$company_type[[1]]
[[1]]$company_type[[1]]$id
[1] 94212
[[1]]$company_type[[1]]$tag_type
[1] "CompanyTypeTag"
[[1]]$company_type[[1]]$name
[1] "startup"
[[1]]$company_type[[1]]$display_name
[1] "Startup"
[[1]]$company_type[[1]]$angellist_url
[1] "https://angel.co/startup"
[[1]]$status
NULL
[[1]]$screenshots
[[1]]$screenshots[[1]]
[[1]]$screenshots[[1]]$thumb
[1] "https://s3.amazonaws.com/screenshots.angel.co/ae/386938/5f7410543201d583eaba1975b931f3fd-thumb_jpg.jpg"
[[1]]$screenshots[[1]]$original
[1] "https://s3.amazonaws.com/screenshots.angel.co/ae/386938/5f7410543201d583eaba1975b931f3fd-original.png"
[[1]]$screenshots[[2]]
[[1]]$screenshots[[2]]$thumb
[1] "https://s3.amazonaws.com/screenshots.angel.co/ae/386938/006c4fb50d4b10df7caf7800ee482c6b-thumb_jpg.jpg"
[[1]]$screenshots[[2]]$original
[1] "https://s3.amazonaws.com/screenshots.angel.co/ae/386938/006c4fb50d4b10df7caf7800ee482c6b-original.png"
[[1]]$screenshots[[3]]
[[1]]$screenshots[[3]]$thumb
[1] "https://s3.amazonaws.com/screenshots.angel.co/ae/386938/741225c3de5021399c0cfc33cecb8830-thumb_jpg.jpg"
[[1]]$screenshots[[3]]$original
[1] "https://s3.amazonaws.com/screenshots.angel.co/ae/386938/741225c3de5021399c0cfc33cecb8830-original.png"
[[1]]$screenshots[[4]]
[[1]]$screenshots[[4]]$thumb
[1] "https://s3.amazonaws.com/screenshots.angel.co/ae/386938/969b60b6ccda577e77b7c9a5c169b2fd-thumb_jpg.jpg"
[[1]]$screenshots[[4]]$original
[1] "https://s3.amazonaws.com/screenshots.angel.co/ae/386938/969b60b6ccda577e77b7c9a5c169b2fd-original.png"
[[1]]$screenshots[[5]]
[[1]]$screenshots[[5]]$thumb
[1] "https://s3.amazonaws.com/screenshots.angel.co/ae/386938/2b2cc3a046c5a4d20b328045ca7f0254-thumb_jpg.jpg"
[[1]]$screenshots[[5]]$original
[1] "https://s3.amazonaws.com/screenshots.angel.co/ae/386938/2b2cc3a046c5a4d20b328045ca7f0254-original.png"
[[1]]$screenshots[[6]]
[[1]]$screenshots[[6]]$thumb
[1] "https://s3.amazonaws.com/screenshots.angel.co/ae/386938/053c3a1c74fc7f39de1117770f9debef-thumb_jpg.jpg"
[[1]]$screenshots[[6]]$original
[1] "https://s3.amazonaws.com/screenshots.angel.co/ae/386938/053c3a1c74fc7f39de1117770f9debef-original.png"
[[1]]$screenshots[[7]]
[[1]]$screenshots[[7]]$thumb
[1] "https://s3.amazonaws.com/screenshots.angel.co/ae/386938/8adcf2d6a6cafc9c6b810f8359a3fedf-thumb_jpg.jpg"
[[1]]$screenshots[[7]]$original
[1] "https://s3.amazonaws.com/screenshots.angel.co/ae/386938/8adcf2d6a6cafc9c6b810f8359a3fedf-original.png"
[[2]]
[[2]]$id
[1] 385596
[[2]]$hidden
[1] FALSE
[[2]]$community_profile
[1] TRUE
[[2]]$name
[1] "Lariat "
[[2]]$angellist_url
[1] "https://angel.co/lariat-1"
[[2]]$logo_url
[1] "https://s3.amazonaws.com/photos.angel.co/startups/i/385596-29de05d584176c3972da411aed5485f0-medium_jpg.jpg?buster=1398260121"
[[2]]$thumb_url
[1] "https://s3.amazonaws.com/photos.angel.co/startups/i/385596-29de05d584176c3972da411aed5485f0-thumb_jpg.jpg?buster=1398260121"
[[2]]$quality
[1] 0
[[2]]$product_desc
[1] "Thus far, the internet has gone from discovery to search discovery, and then social discovery, but with little focus on recall. Remembering your digital footprint is difficult. We aim to solve that problem. Lariat is a cloud-based recall engine to securely recall information from any page in your search history instantly through intuitive keyword search, not just from page titles, but from the contents and context of the underlying pages.\r\n\r\nWrangle in the information you want, easier and faster."
[[2]]$high_concept
[1] "Recall your digital footprint on the web instantly"
[[2]]$follower_count
[1] 1
[[2]]$company_url
[1] "http://www.lariattech.com"
[[2]]$created_at
[1] "2014-04-23T13:17:47Z"
[[2]]$updated_at
[1] "2014-04-23T13:48:38Z"
[[2]]$crunchbase_url
NULL
[[2]]$twitter_url
[1] ""
[[2]]$blog_url
[1] ""
[[2]]$video_url
NULL
[[2]]$markets
[[2]]$markets[[1]]
[[2]]$markets[[1]]$id
[1] 4
[[2]]$markets[[1]]$tag_type
[1] "MarketTag"
[[2]]$markets[[1]]$name
[1] "digital media"
[[2]]$markets[[1]]$display_name
[1] "Digital Media"
[[2]]$markets[[1]]$angellist_url
[1] "https://angel.co/digital-media"
[[2]]$markets[[2]]
[[2]]$markets[[2]]$id
[1] 12
[[2]]$markets[[2]]$tag_type
[1] "MarketTag"
[[2]]$markets[[2]]$name
[1] "enterprise software"
[[2]]$markets[[2]]$display_name
[1] "Enterprise Software"
[[2]]$markets[[2]]$angellist_url
[1] "https://angel.co/enterprise-software"
[[2]]$markets[[3]]
[[2]]$markets[[3]]$id
[1] 59
[[2]]$markets[[3]]$tag_type
[1] "MarketTag"
[[2]]$markets[[3]]$name
[1] "open source"
[[2]]$markets[[3]]$display_name
[1] "Open Source"
[[2]]$markets[[3]]$angellist_url
[1] "https://angel.co/open-source"
[[2]]$markets[[4]]
[[2]]$markets[[4]]$id
[1] 282
[[2]]$markets[[4]]$tag_type
[1] "MarketTag"
[[2]]$markets[[4]]$name
[1] "semantic search"
[[2]]$markets[[4]]$display_name
[1] "Semantic Search"
[[2]]$markets[[4]]$angellist_url
[1] "https://angel.co/semantic-search"
[[2]]$locations
[[2]]$locations[[1]]
[[2]]$locations[[1]]$id
[1] 1620
[[2]]$locations[[1]]$tag_type
[1] "LocationTag"
[[2]]$locations[[1]]$name
[1] "boston"
[[2]]$locations[[1]]$display_name
[1] "Boston"
[[2]]$locations[[1]]$angellist_url
[1] "https://angel.co/boston"
[[2]]$company_size
[1] "1-10"
[[2]]$company_type
list()
[[2]]$status
NULL
[[2]]$screenshots
list()
[[3]]
[[3]]$id
[1] 385595
[[3]]$hidden
[1] TR,UE
Finalmente, aplicando la operación de subconjunto a través del vector de índice lógico:
aa[data$startups$hidden == FALSE]
el resultado es una lista vacía (a pesar dehidden = FALSE para los elementos primero y segundo):
list()
Nuevamente, perdón por el tamaño de la salida, pero tuve que mantener la estructura de la lista.
Consideraciones:
Según la "Introducción a R" de R Project (http://cran.r-project.org/doc/manuals/R-intro.html#Index-vectors),
"Los subconjuntos de los elementos de un vector pueden seleccionarse agregando al nombre del vector un vector índice entre corchetes. Más generalmente, cualquier expresión que evalúe a un vector puede tener subconjuntos de sus elementos seleccionados de manera similar agregando un vector índice en cuadrado paréntesis inmediatamente después de la expresión ".
Al mismo tiempo, según Hadley Wickham "Advanced R" (http://adv-r.had.co.nz/Subsetting.html),
"Subconjunto de una lista funciona exactamente de la misma manera que subconjunto de un vector atómico".