Title: | Dots and Their Connections in Polar Coordinate System |
---|---|
Description: | Provides basic graphing functions to fully demonstrate point-to-point connections in a polar coordinate space. |
Authors: | Shixiang Wang [aut, cre] |
Maintainer: | Shixiang Wang <[email protected]> |
License: | GPL (>= 3) |
Version: | 0.2.2 |
Built: | 2024-08-20 02:28:55 UTC |
Source: | https://github.com/ShixiangWang/polar |
Check polar_init()
for examples.
polar_connect(data, x1, x2, ...)
polar_connect(data, x1, x2, ...)
data |
a |
x1 , x2
|
the column names (without quote) storing connected events. |
... |
parameters passing to ggplot2::geom_segment,
expect |
a ggplot
object.
Init a dot plot in polar system
polar_init(data, x, ...)
polar_init(data, x, ...)
data |
a |
x |
the column name (without quote) storing event list. |
... |
parameters passing to ggplot2::geom_point. |
a ggplot
object.
# ------------------- # Init a polar plot # ------------------- data <- data.frame(x = LETTERS[1:7]) p1 <- polar_init(data, x = x) p1 # Set aes value p2 <- polar_init(data, x = x, size = 3, color = "red", alpha = 0.5) p2 # Set aes mapping set.seed(123L) data1 <- data.frame( x = LETTERS[1:7], shape = c("r", "r", "r", "b", "b", "b", "b"), color = c("r", "r", "r", "b", "b", "b", "b"), size = abs(rnorm(7)) ) # Check https://ggplot2.tidyverse.org/reference/geom_point.html # for how to use both stroke and color p3 <- polar_init(data1, x = x, aes(size = size, color = color, shape = shape), alpha = 0.5) p3 # -------------------- # Connect polar dots # -------------------- data2 <- data.frame( x1 = LETTERS[1:7], x2 = c("B", "C", "D", "E", "C", "A", "C"), color = c("r", "r", "r", "b", "b", "b", "b") ) p4 <- p3 + polar_connect(data2, x1, x2) p4 # Unlike polar_init, mappings don't need to be included in aes() p5 <- p3 + polar_connect(data2, x1, x2, color = color, alpha = 0.8, linetype = 2) p5 # Use two different color scales if (requireNamespace("ggnewscale")) { library(ggnewscale) p6 = p3 + new_scale("color") + polar_connect(data2, x1, x2, color = color, alpha = 0.8, linetype = 2) p6 + scale_color_brewer() p6 + scale_color_manual(values = c("darkgreen", "magenta")) }
# ------------------- # Init a polar plot # ------------------- data <- data.frame(x = LETTERS[1:7]) p1 <- polar_init(data, x = x) p1 # Set aes value p2 <- polar_init(data, x = x, size = 3, color = "red", alpha = 0.5) p2 # Set aes mapping set.seed(123L) data1 <- data.frame( x = LETTERS[1:7], shape = c("r", "r", "r", "b", "b", "b", "b"), color = c("r", "r", "r", "b", "b", "b", "b"), size = abs(rnorm(7)) ) # Check https://ggplot2.tidyverse.org/reference/geom_point.html # for how to use both stroke and color p3 <- polar_init(data1, x = x, aes(size = size, color = color, shape = shape), alpha = 0.5) p3 # -------------------- # Connect polar dots # -------------------- data2 <- data.frame( x1 = LETTERS[1:7], x2 = c("B", "C", "D", "E", "C", "A", "C"), color = c("r", "r", "r", "b", "b", "b", "b") ) p4 <- p3 + polar_connect(data2, x1, x2) p4 # Unlike polar_init, mappings don't need to be included in aes() p5 <- p3 + polar_connect(data2, x1, x2, color = color, alpha = 0.8, linetype = 2) p5 # Use two different color scales if (requireNamespace("ggnewscale")) { library(ggnewscale) p6 = p3 + new_scale("color") + polar_connect(data2, x1, x2, color = color, alpha = 0.8, linetype = 2) p6 + scale_color_brewer() p6 + scale_color_manual(values = c("darkgreen", "magenta")) }