library(dplyr)
#>
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#>
#> filter, lag
#> The following objects are masked from 'package:base':
#>
#> intersect, setdiff, setequal, union
library(ggplot2)
library(ggrepel)
iris %>%
ggplot(aes(x=Sepal.Length, y=Sepal.Width,
label=round(rnorm(nrow(iris))))) +
geom_label_repel(aes(fill=Species)) +
guides(fill = guide_legend(override.aes = aes(label = "")))