% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/EnrichmentSpiralize.R
\name{spiral_newrle}
\alias{spiral_newrle}
\title{Render a Spiral Plot Using Run-Length Encoding}
\usage{
spiral_newrle(x, samples, values, colors, labels = FALSE)
}
\arguments{
\item{x}{A vector representing categories or segments.}

\item{samples}{A vector indicating the sample each segment belongs to.}

\item{values}{Numeric vector indicating the lengths of each segment.}

\item{colors}{Character vector specifying the colors for each segment.}

\item{labels}{Logical, whether to add labels to each segment.}
}
\value{
No return value, called for side effects. This function generates a spiral plot and optionally adds labels.
}
\description{
This function creates a spiral plot for visualizing sequential data in a compact and visually appealing way.
It uses run-length encoding to represent the lengths and colors of sequences in the spiral.
}
\examples{
# Example: Creating a spiral plot using the spiral_newrle function

# Define example data
x <- c("A", "A", "B", "C")
samples <- c("Sample1", "Sample1", "Sample2", "Sample2")
values <- c(20, 30, 15, 35)
colors <- c("red", "blue", "green", "purple")
labels <- TRUE

# Initialize the spiral plot, setting the x-axis range and scaling
spiralize::spiral_initialize(xlim = c(0, sum(values)), scale_by = "curve_length",
                 vp_param = list(x = grid::unit(0, "npc"), just = "left"))

# Create a track for the spiral plot
spiralize::spiral_track(height = 0.5)

# Add segments to the spiral plot using run-length encoding
spiral_newrle(x, samples, values, colors, labels)

}