data("economics", package = "ggplot2")
apex(
data = economics,
mapping = aes(x = date, y = uempmed),
type = "line"
) %>%
ax_stroke(
width = 1,
dashArray = 4
)
data("economics_long", package = "ggplot2")
apex(
data = economics_long,
mapping = aes(x = date, y = value01, group = variable),
type = "line"
) %>%
ax_stroke(
width = c(1, 2, 3, 4, 5),
dashArray = c(1, 2, 3, 4, 5)
)
Run the code above in your browser using DataLab