# NOT RUN {
library(ggplot2)
library(ggBubbles)
data(MusicianInterestsSmall)
ggplot(data = MusicianInterestsSmall, aes(x = Instrument, y = Genre, col = Level)) +
geom_point(position = position_surround(), size = 4) +
scale_colour_manual(values = c("#333333", "#666666", "#999999", "#CCCCCC")) + theme_bw()
# }
Run the code above in your browser using DataLab