families <- c("square", "circle", "diamond")
variants <- c("inset", "hollow", "cross", "solid")
pal <- c(square = "#1E88E5", circle = "#2A9D8F", diamond = "#E76F51")
icons <- paste(rep(families, each = 4), variants, sep = "-")
df_markers <- data.frame(
icon = c(icons, "plus-bold", "plus-hollow", "triangle-down", "triangle-down-inset"),
x = seq_len(16),
y = 1,
colour = c(
rep(pal["square"], 4),
rep(pal["circle"], 4),
rep(pal["diamond"], 4),
"#6D6875", "#6D6875", "#6D6875", "#6D6875"
),
stringsAsFactors = FALSE
)
ggplot(df_markers, aes(x = x, y = y, icon = icon, colour = colour)) +
geom_icon_point(size = 8, dpi = 150, legend_icons = FALSE) +
geom_text(aes(label = icon), y = 0.72, angle = 50,
hjust = 1, size = 3, colour = "grey30") +
scale_colour_identity() +
scale_x_continuous(expand = expansion(add = c(0.8, 0.5))) +
scale_y_continuous(limits = c(0.2, 1.4)) +
theme_void()