How can I put in the subtitle the small point to? Starting before 5?
library(tidyverse, quietly = TRUE)
binary_data <- data.frame(stringsAsFactors=FALSE,
Especies = c( "Epinephelus fuscoguttatus",
"Epinephelus guttatus",
"Epinephelus itajara",
"Epinephelus marginatus",
"Epinephelus polyphekadion",
"Epinephelus rivulatus",
"Mycteroperca bonaci",
"Mycteroperca olfax",
"Plectropomus leopardus",
"Plectropomus maculatus",
"Plectropomus punctatus",
"Alphestes afer",
"Dermatolepis dermatolepis",
"Epinephelus fuscoguttatus",
"Epinephelus guttatus",
"Epinephelus itajara",
"Epinephelus marginatus",
"Epinephelus ongus",
"Epinephelus polyphekadion",
"Epinephelus striatus",
"Mycteroperca bonaci",
"Mycteroperca jordani",
"Mycteroperca prionura",
"Mycteroperca rosacea",
"Mycteroperca tigris",
"Mycteroperca venenosa",
"Mycteroperca xenarcha",
"Paralabrax clathratus",
"Paralabrax nebulifer",
"Plectropomus areolatus"
),
Hemisfério = c("HS",
"HS",
"HS",
"HS",
"HS",
"HS",
"HS",
"HS",
"HS",
"HS",
"HS",
"HN",
"HN",
"HN",
"HN",
"HN",
"HN",
"HN",
"HN",
"HN",
"HN",
"HN",
"HN",
"HN",
"HN",
"HN",
"HN",
"HN",
"HN",
"HN"
),
primavera = c(1,
0,
1,
1,
1,
0,
1,
1,
1,
1,
0,
0,
0,
1,
0,
0,
0,
1,
1,
1,
1,
1,
1,
1,
1,
1,
0,
1,
0,
1
),
verão = c(1,
1,
1,
1,
1,
0,
0,
1,
1,
1,
1,
0,
0,
1,
1,
1,
1,
0,
1,
1,
1,
1,
0,
1,
0,
0,
1,
1,
1,
0
),
outono = c(1,
0,
1,
0,
1,
0,
0,
0,
0,
0,
0,
0,
0,
1,
0,
0,
0,
0,
0,
0,
1,
1,
0,
1,
0,
0,
1,
1,
0,
0
),
inverno = c(0,
0,
0,
0,
1,
1,
1,
0,
0,
0,
0,
1,
1,
1,
1,
0,
0,
0,
1,
1,
1,
0,
0,
0,
1,
1,
0,
0,
0,
1
)
)
>binary_data %>%
gather(Estação, Presence, primavera:inverno) %>%
group_by(Hemisfério, Estação) %>%
summarise(species_count = sum(Presence)) %>%
ggplot(aes(x = Estação, y = Hemisfério)) +
geom_point(aes(size = species_count, color = species_count)) +
scale_size_continuous(range = c(3,18)) +
guides(colour = guide_legend()) +
labs(color = 'Número de espécies',
size = 'Número de espécies') +
theme_classic() + scale_colour_gradient(low="#000066",high="#000066")
to be like this subtitle (starting in 1 to 10 or include the small circles too)