Estimados eRReros,

Tengo un df como el adjunto (en txt y como objeto de R)
Como veréis hay una columna T/F que se llama germ y cada fila corresponde a
datos de un día.
Me gustaría que R fuera siguiendo la columna germ y en cada serie de días
con TRUE sumara el valor de la columna p. Se trata de saber si en esa serie
de días con valor T el total de p es mayor que 1 o no.
He hecho algo parecido con rle() que me cuenta la longitud de las series de
TRUE, pero este siguiente paso no se como darlo.
Si uso apply o subset me toma todas las filas del df con T en la columna
germ. Lo que no se el como decirle a R que empiece por el principio y vaya
tomando grupo a grupo.
Me imagino que podría llegar a construir un bucle que lo hiciera, pero no
quiero pasarme tres horas dándole vueltas si hay una función o combinación
de funciones que lo hace ¿Alguna sugerencia o me pongo ya con el bucle?

Muchas gracias.

Jaume.


-- 
Dr. Jaume Tormo.
Area of Ecology
Department of Agrarian and Environmental Sciences
Technological College. Agri-food and Environment
University of Zaragoza, Spain
0034 974292678
https://flipboard.com/@jaumetormo/hallazgos-interesantes-bj8opmboy
https://acercad.wordpress.com/
"dia" "p" "lim" "trat" "sp" "germ" "estac"
"1" 2019-11-07 0 "brown" "gfgs" "aege" FALSE "fall"
"2" 2019-11-08 0 "brown" "gfgs" "aege" FALSE "fall"
"3" 2019-11-09 0 "brown" "gfgs" "aege" FALSE "fall"
"4" 2019-11-10 0.079 "black" "gfgs" "aege" TRUE "fall"
"5" 2019-11-11 0.084 "black" "gfgs" "aege" TRUE "fall"
"6" 2019-11-12 0.081 "black" "gfgs" "aege" TRUE "fall"
"7" 2019-11-13 0.116 "black" "gfgs" "aege" TRUE "fall"
"8" 2019-11-14 0.097 "black" "gfgs" "aege" TRUE "fall"
"9" 2019-11-15 0.059 "black" "gfgs" "aege" TRUE "fall"
"10" 2019-11-16 0.042 "black" "gfgs" "aege" TRUE "fall"
"11" 2019-11-17 0.035 "black" "gfgs" "aege" TRUE "fall"
"12" 2019-11-18 0.054 "black" "gfgs" "aege" TRUE "fall"
"13" 2019-11-19 0 "brown" "gfgs" "aege" FALSE "fall"
"14" 2019-11-20 0 "brown" "gfgs" "aege" FALSE "fall"
"15" 2019-11-21 0.094 "black" "gfgs" "aege" TRUE "fall"
"16" 2019-11-22 0.114 "black" "gfgs" "aege" TRUE "fall"
"17" 2019-11-23 0.092 "black" "gfgs" "aege" TRUE "fall"
"18" 2019-11-24 0.058 "black" "gfgs" "aege" TRUE "fall"
"19" 2019-11-25 0 "brown" "gfgs" "aege" FALSE "fall"
"20" 2019-11-26 0.115 "black" "gfgs" "aege" TRUE "fall"
"21" 2019-11-27 0.144 "black" "gfgs" "aege" TRUE "fall"
"22" 2019-11-28 0 "brown" "gfgs" "aege" FALSE "fall"
"23" 2019-11-29 0 "brown" "gfgs" "aege" FALSE "fall"
"24" 2019-11-30 0 "brown" "gfgs" "aege" FALSE "fall"
"25" 2019-12-01 0.113 "black" "gfgs" "aege" TRUE "winter"
"26" 2019-12-02 0.099 "black" "gfgs" "aege" TRUE "winter"
"27" 2019-12-03 0.076 "black" "gfgs" "aege" TRUE "winter"
"28" 2019-12-04 0.084 "black" "gfgs" "aege" TRUE "winter"
"29" 2019-12-05 0.103 "black" "gfgs" "aege" TRUE "winter"
"30" 2019-12-06 0.113 "black" "gfgs" "aege" TRUE "winter"
"31" 2019-12-07 0.056 "black" "gfgs" "aege" TRUE "winter"
"32" 2019-12-08 0.062 "black" "gfgs" "aege" TRUE "winter"
"33" 2019-12-09 0 "brown" "gfgs" "aege" FALSE "winter"
"34" 2019-12-10 0 "brown" "gfgs" "aege" FALSE "winter"
"35" 2019-12-11 0 "brown" "gfgs" "aege" FALSE "winter"
"36" 2019-12-12 0 "brown" "gfgs" "aege" FALSE "winter"
"37" 2019-12-13 0 "brown" "gfgs" "aege" FALSE "winter"
"38" 2019-12-14 0 "brown" "gfgs" "aege" FALSE "winter"
"39" 2019-12-15 0.041 "black" "gfgs" "aege" TRUE "winter"
"40" 2019-12-16 0 "brown" "gfgs" "aege" FALSE "winter"
"41" 2019-12-17 0.076 "black" "gfgs" "aege" TRUE "winter"
"42" 2019-12-18 0.057 "black" "gfgs" "aege" TRUE "winter"
"43" 2019-12-19 0.095 "black" "gfgs" "aege" TRUE "winter"
"44" 2019-12-20 0.163 "black" "gfgs" "aege" TRUE "winter"
"45" 2019-12-21 0.175 "black" "gfgs" "aege" TRUE "winter"
"46" 2019-12-22 0.132 "black" "gfgs" "aege" TRUE "winter"
"47" 2019-12-23 0 "brown" "gfgs" "aege" FALSE "winter"
"48" 2019-12-24 0 "brown" "gfgs" "aege" FALSE "winter"
"49" 2019-12-25 0.052 "black" "gfgs" "aege" TRUE "winter"
"50" 2019-12-26 0 "brown" "gfgs" "aege" FALSE "winter"

Attachment: ejemplo.RData
Description: Binary data

_______________________________________________
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Responder a