Nothing
## ---- include=FALSE-----------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>",
fig.align = "center",
fig.asp = 1,
fig.width = 5
)
## ----setup, message=FALSE-----------------------------------------------------
library(ggplot2)
library(dplyr)
library(ipaddress)
library(ggip)
## ----before_transform, echo=FALSE---------------------------------------------
tibble(
label = c("A", "B", "C"),
address = ip_address(c("0.0.0.0", "192.168.0.1", "255.255.255.255"))
)
## ----after_transform, echo=FALSE----------------------------------------------
tibble(
label = c("A", "B", "C"),
address = tibble(
ip = ip_address(c("0.0.0.0", "192.168.0.1", "255.255.255.255")),
x = as.integer(c(0, 214, 255)),
y = as.integer(c(255, 142, 255))
)
)
## -----------------------------------------------------------------------------
tibble(address = ip_address(c("0.0.0.0", "128.0.0.0", "192.168.0.1"))) %>%
ggplot(aes(x = address$x, y = address$y, label = address$ip)) +
geom_point() +
geom_label(nudge_x = c(10, 0, -10), nudge_y = -10) +
coord_ip(expand = TRUE) +
theme_ip_light()
## ---- fig.asp=0.8, fig.width=6.25---------------------------------------------
iana_ipv4 %>%
ggplot(aes(xmin = network$xmin, ymin = network$ymin, xmax = network$xmax, ymax = network$ymax)) +
geom_rect(aes(fill = allocation)) +
scale_fill_brewer(palette = "Accent", name = NULL) +
coord_ip() +
theme_ip_dark()
## -----------------------------------------------------------------------------
tibble(address = sample_ipv4(10000)) %>%
ggplot(aes(ip = address)) +
stat_summary_address() +
scale_fill_viridis_c(guide = "none") +
coord_ip() +
theme_ip_dark()
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.