spiral_horizon: Draw horizon chart along the spiral

In jokergoo/spiralize: Visualize Data on Spirals

Draw horizon chart along the spiral

Description

Draw horizon chart along the spiral

Usage

spiral_horizon(
  x,
  y,
  y_max = max(abs(y)),
  n_slices = 4,
  slice_size,
  pos_fill = "#D73027",
  neg_fill = "#313695",
  use_bars = FALSE,
  bar_width = min(diff(x)),
  negative_from_top = FALSE,
  track_index = current_track_index()
)

Arguments

x	X-locations of the data points.
y	Y-locations of the data points.
y_max	Maximal absolute value on y-axis.
n_slices	Number of slices.
slice_size	Size of the slices. The final number of sizes is ceiling(max(abs(y))/slice_size).
pos_fill	Colors for positive values.
neg_fill	Colors for negative values.
use_bars	Whether to use bars?
bar_width	Width of bars.
negative_from_top	Should negative distribution be drawn from the top?
track_index	Index of the track.

Details

Since the track height is very small in the spiral, horizon chart visualization is an efficient way to visualize distribution-like graphics.

Value

A list of the following objects:

• a color mapping function for colors.

• a vector of intervals that split the data.

See Also

horizon_legend() for generating the legend.

Examples

df = readRDS(system.file("extdata", "global_temperature.rds", package = "spiralize"))
df = df[df$Source == "GCAG", ]
spiral_initialize_by_time(xlim = range(df$Date), unit_on_axis = "months", period = "year",
    period_per_loop = 20, polar_lines_by = 360/20)
spiral_track()
spiral_horizon(df$Date, df$Mean, use_bar = TRUE)

# with legend
require(ComplexHeatmap)
spiral_initialize_by_time(xlim = range(df$Date), unit_on_axis = "months", period = "year",
    period_per_loop = 20, polar_lines_by = 360/20, 
    vp_param = list(x = unit(0, "npc"), just = "left"))
spiral_track()
lt = spiral_horizon(df$Date, df$Mean, use_bar = TRUE)
lgd = horizon_legend(lt, title = "Temperature difference")
draw(lgd, x = unit(1, "npc") + unit(2, "mm"), just = "left")

jokergoo/spiralize documentation built on June 16, 2024, 4:35 a.m.