where to add the "drop_na" command ?

ggplot(data=Final_data2) + geom_bar(mapping=aes(x=gender)

You can try the following:


ggplot(data = drop_na(Final_data2)) +
    geom_bar(mapping=aes(x=gender)