Tengo un df original enorme que contiene datos de temperatura y peso. Al hacer ndatos <- df %>% group_by(tt) %>% summarise(peso=mean(peso), n=n())%>% data.frame() puedo ver que para cada categoría de temperatura tengo diferente número de observaciones, así: df Temp Obs Pesomedio -3 782 40 -2 815 32 -1 3586 52 0 561 78 1 256 89 2 758 99 Lo que debo hacer es eliminar de cada categoría de temperatura el 1% de los valores de peso más altos y más bajos sobre la media del valor. No sé cómo hacerlo de forma sencilla y eficiente, porque lo primero que se me ha ocurrido es hacer un subset por categoría, luego sacar la media y luego eliminar manualmente los valores más altos y más bajos sin que estos superen el 2% del total... pero esto me llevaría horas o días. Espero haberme explicado y que me puedan ayudar. Gracias!