% 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)

}