Tengo una lista con 82 elementos, cada elemento de la lista contiene una columna llamada "Media movil PM10", y quisiera aplicar la función filter
en esta columna, para todos los elementos de la lista, para que me filtre aquellos valores que superen el valor 50.
He estado intentando con la función lapply, pero no he podido generar un código que funcione.
Prueba<- lapply(X=Mediamovil2010, FUN= function(x){filter(x,file = paste0(filter(x$MediamovilPM10[1], '>50')
A continuación, una muestra de los datos:
$ 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
Mediamovil2010
? En el código faltan varios paréntisis y el corchete que cierra la funciónPrueba <- lapply(X = Mediamovil2010, FUN = function(x){x[x$MediamovilPM10 > 50,]})
podría servir. Sino, te sugiero que armes un ejemplo, mínimo de los datos.str(Mediamovil2010)
eso nos va a dar una idea de como son los datos.data.frame
, con la única dificultad en el nombre desnormalizado de la variable, podrías hacer algo así:filter(MOVILING_RochePM10.csv, ``Media movil PM10`` > 50)
, nota los bakticks para encerrar el nombre de variable que tiene espacios. Si lo que muestras es uno de los elementos de una lista, mi propuesta anterior debiera funcionarte, salvo por el tema del nombre de variablePrueba <- lapply(X = MOVILING_RochePM10.csv, FUN = function(x){x[x$``Media movil PM10`` > 50,]})
.