How to draw a barchart in R with less common values merged to “other” category?

Question

I need to draw a barchart in R:

ggplot(data, aes(x=characters, fill=characters)) +
geom_bar() +
coord_flip()+
scale_fill_hue(c = 40) +
theme(legend.position=&