Description Usage Arguments Value Examples
Hexalabel adds labels to your hexagons. Use it after you have first drawn the hexagons from the output from hexamap.
1 | add_hexalabel(zz, p)
|
zz |
a data frame containing the output of the hexamap function |
p |
a ggplot2 object with mapped hexagons |
The function returns labeled hexagons using ggplot2.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 | # Load libraries
library(hexamapmaker)
library(ggplot2)
library(tibble)
library(ggthemes)
# Points on a "normal" grid.
my_points <- tibble::tibble(
x = c(1, 2, 1, 2, 1, 2, 4, 4),
y = c(1, 1, 2, 2, 3, 3, 1, 2),
id = c("test1", "test2", "test3", "test4", "test5", "test6", "test7", "test8")
)
# Plot the points
ggplot(my_points, aes(x = x, y = y, group = id)) +
geom_point() +
coord_fixed(ratio = 1) +
theme_map()
# Turn points into hexagons
hexa_points <- make_polygons(my_points)
# Plot the new hexagons
ggplot(hexa_points, aes(x, y, group = id)) +
geom_polygon(colour = "black", fill = NA) +
coord_fixed(ratio = 1) +
theme_map()
# Oh no! It is way off - lets fix it.
my_points <- fix_shape(my_points)
# Plot points
ggplot(my_points, aes(x = x, y = y, group = id)) +
geom_point() +
coord_fixed(ratio = 1) +
theme_map()
# Turn points into hexagons
hexa_points <- make_polygons(my_points)
ggplot(hexa_points, aes(x, y, group = id)) +
geom_polygon(colour = "black", fill = NA) +
coord_fixed(ratio = 1) +
theme_map()
# Add color by using the fill argument in ggplot.
# Remember to remove it from the geom_polygon then
(p <- ggplot(hexa_points, aes(x, y, group = id, fill = id)) +
geom_polygon(colour = "black", show.legend = FALSE) +
coord_fixed(ratio = 1) +
theme_map())
# Label hexagons
add_hexalabel(hexa_points, p)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.