Quisiera saber como puedo filtrar los datos de una columna en una lista en R, sin que se me generen datos NA, he estado usando este código que me han recomendado en una pregunta anterior:
Filtro <- lapply(X = Mediamovil2010, FUN = function(x){x[x$"Media movil PM10" > 50,]})
Sin embargo, parece que deja la misma cantidad de filas en cada elemento de la lista, convirtiendo las que no cumplen, en NA. Quisiera saber si es posible realizar un filtro, que me deje sólo las filas que cumplan con el parámetro establecido, y si no cumple, que me deje el número de filas en 0.
Pido esto, ya que necesito realizar una relación entre listas, que divida el total de datos, sobre los datos que superar cierto límite, comparando los datos de las listas entre sí.
Por otro lado, quisiera saber cómo eliminar los datos NA en toda la lista, ya sea en las filas o en una columna determinada.
Dejo una muestra de un elemento de la lista, la lista, está conformado por muchos data.frames como el de acontinuación:
$ MOVILING_RochePM10.csv :Classes ‘spec_tbl_df’, ‘tbl_df’, ‘tbl’ and 'data.frame': 2191 obs. of 26 variables:
..$ X1 : num [1:2191] 0 1 2 3 4 5 6 7 8 9 ...
..$ Unnamed: 0 : num [1:2191] 357271 357272 357273 357274 357275 ...
..$ rowid : num [1:2191] 3083119 3083120 3083121 3083122 3083123 ...
..$ date : chr [1:2191] "1999-01-01" "1999-01-02" "1999-01-03" "1999-01-04" ...
..$ site : chr [1:2191] "ROCHE (PM-10)" "ROCHE (PM-10)" "ROCHE (PM-10)" "ROCHE (PM-10)" ...
..$ EnvAut : chr [1:2191] "CORPOGUAJIRA - CAR DE LA GUAJIRA" "CORPOGUAJIRA - CAR DE LA GUAJIRA" "CORPOGUAJIRA - CAR DE LA GUAJIRA" "CORPOGUAJIRA - CAR DE LA GUAJIRA" ...
..$ Latitude : num [1:2191] 11.1 11.1 11.1 11.1 11.1 ...
..$ Longitude : num [1:2191] -72.6 -72.6 -72.6 -72.6 -72.6 ...
..$ AveragingTimeHours: num [1:2191] 24 24 24 24 24 24 24 24 24 24 ...
..$ Year : num [1:2191] 1999 1999 1999 1999 1999 ...
..$ Units : chr [1:2191] "ugm3" "ugm3" "ugm3" "ugm3" ...
..$ COD_DEP : num [1:2191] 44 44 44 44 44 44 44 44 44 44 ...
..$ NOM_DEP : chr [1:2191] "La Guajira" "La Guajira" "La Guajira" "La Guajira" ...
..$ COD_MUN : num [1:2191] 44078 44078 44078 44078 44078 ...
..$ NOM_MUN : chr [1:2191] "Barrancas" "Barrancas" "Barrancas" "Barrancas" ...
..$ StationType : chr [1:2191] "Fija" "Fija" "Fija" "Fija" ...
..$ CO : logi [1:2191] NA NA NA NA NA NA ...
..$ NO : logi [1:2191] NA NA NA NA NA NA ...
..$ NO2 : logi [1:2191] NA NA NA NA NA NA ...
..$ O3 : logi [1:2191] NA NA NA NA NA NA ...
..$ PM10 : num [1:2191] NA NA NA NA NA NA NA NA NA NA ...
..$ PM2.5 : num [1:2191] NA NA NA NA NA NA NA NA NA NA ...
..$ PST : logi [1:2191] NA NA NA NA NA NA ...
..$ SO2 : logi [1:2191] NA NA NA NA NA NA ...
..$ Media movil PM10 : num [1:2191] NA NA NA NA NA NA NA NA NA NA ...
..$ Media movil PM2.5 : num [1:2191] NA NA NA NA NA NA NA NA NA NA ...
..- attr(*, "spec")=List of 3
.. ..$ cols :List of 26
.. .. ..$ X1 : list()
.. .. .. ..- attr(*, "class")= chr [1:2] "collector_double" "collector"
.. .. ..$ Unnamed: 0 : list()
.. .. .. ..- attr(*, "class")= chr [1:2] "collector_double" "collector"
.. .. ..$ rowid : list()
.. .. .. ..- attr(*, "class")= chr [1:2] "collector_double" "collector"
.. .. ..$ date : list()
.. .. .. ..- attr(*, "class")= chr [1:2] "collector_character" "collector"
.. .. ..$ site : list()
.. .. .. ..- attr(*, "class")= chr [1:2] "collector_character" "collector"
.. .. ..$ EnvAut : list()
.. .. .. ..- attr(*, "class")= chr [1:2] "collector_character" "collector"
.. .. ..$ Latitude : list()
.. .. .. ..- attr(*, "class")= chr [1:2] "collector_double" "collector"
.. .. ..$ Longitude : list()
.. .. .. ..- attr(*, "class")= chr [1:2] "collector_double" "collector"
.. .. ..$ AveragingTimeHours: list()
.. .. .. ..- attr(*, "class")= chr [1:2] "collector_double" "collector"
.. .. ..$ Year : list()
.. .. .. ..- attr(*, "class")= chr [1:2] "collector_number" "collector"
.. .. ..$ Units : list()
.. .. .. ..- attr(*, "class")= chr [1:2] "collector_character" "collector"
.. .. ..$ COD_DEP : list()
.. .. .. ..- attr(*, "class")= chr [1:2] "collector_double" "collector"
.. .. ..$ NOM_DEP : list()
.. .. .. ..- attr(*, "class")= chr [1:2] "collector_character" "collector"
.. .. ..$ COD_MUN : list()
.. .. .. ..- attr(*, "class")= chr [1:2] "collector_double" "collector"
.. .. ..$ NOM_MUN : list()
.. .. .. ..- attr(*, "class")= chr [1:2] "collector_character" "collector"
.. .. ..$ StationType : list()
.. .. .. ..- attr(*, "class")= chr [1:2] "collector_character" "collector"
.. .. ..$ CO : list()
.. .. .. ..- attr(*, "class")= chr [1:2] "collector_logical" "collector"
.. .. ..$ NO : list()
.. .. .. ..- attr(*, "class")= chr [1:2] "collector_logical" "collector"
.. .. ..$ NO2 : list()
.. .. .. ..- attr(*, "class")= chr [1:2] "collector_logical" "collector"
.. .. ..$ O3 : list()
.. .. .. ..- attr(*, "class")= chr [1:2] "collector_logical" "collector"
.. .. ..$ PM10 : list()
.. .. .. ..- attr(*, "class")= chr [1:2] "collector_number" "collector"
.. .. ..$ PM2.5 : list()
.. .. .. ..- attr(*, "class")= chr [1:2] "collector_number" "collector"
.. .. ..$ PST : list()
.. .. .. ..- attr(*, "class")= chr [1:2] "collector_logical" "collector"
.. .. ..$ SO2 : list()
.. .. .. ..- attr(*, "class")= chr [1:2] "collector_logical" "collector"
.. .. ..$ Media movil PM10 : list()
.. .. .. ..- attr(*, "class")= chr [1:2] "collector_number" "collector"
.. .. ..$ Media movil PM2.5 : list()
.. .. .. ..- attr(*, "class")= chr [1:2] "collector_number" "collector"
.. ..$ default: list()
.. .. ..- attr(*, "class")= chr [1:2] "collector_guess" "collector"
.. ..$ skip : num 1
.. ..- attr(*, "class")= chr "col_spec"
¡Muchas Gracias!