Tengo el siguiente df:
datos2<-data.frame(
col1=c("AAA","BBB","AAA","BBB","BBB","AAA","BBB","BBB","C"),
col2=c(200,800,200,NA,NA,30,30,800,NA)
)
col1 col2
1 AAA 200
2 BBB 800
3 AAA 200
4 BBB NA
5 BBB NA
6 AAA 30
7 BBB 30
8 BBB 800
9 C NA
Quiero calcular la moda agrupada por la col1
Moda <- function(x, useNA = "no") {
xtabla <- table(x, useNA = useNA)
names(xtabla[xtabla == max(xtabla)])}
datos2 %>%
group_by(col1) %>%
mutate(Moda= Moda(col2))->datos2
Pero da error, porque C no tiene datos.
¿Hay alguna forma de que añada las modas que sí se pueden calcular y esa la deje en blanco?
El resultado seria algo así
col1 col2
1 AAA 200 200
2 BBB 800 800
3 AAA 200 200
4 BBB NA 800
5 BBB NA 800
6 AAA 30 200
7 BBB 30 800
8 BBB 800 800
9 C NA NA