plotcli-py 0.1.0__py3-none-any.whl

plotcli-original/vignettes/ggplotcli.Rmd

@@ -0,0 +1,329 @@
+---
+title: "ggplotcli: Universal ggplot2 to Terminal Plotting"
+author: "Claas Heuer"
+date: "`r Sys.Date()`"
+output: rmarkdown::html_vignette
+vignette: >
+  %\VignetteIndexEntry{ggplotcli: Universal ggplot2 to Terminal Plotting}
+  %\VignetteEngine{knitr::rmarkdown}
+  %\VignetteEncoding{UTF-8}
+---
+
+```{r setup, include = FALSE}
+knitr::opts_chunk$set(
+  collapse = TRUE,
+  comment = "#>"
+)
+```
+
+## Introduction
+
+`ggplotcli` is a universal converter that renders any ggplot2 plot in the terminal using Unicode/ASCII characters. It automatically extracts data, aesthetics, and styling from ggplot objects, supporting 15+ geom types, faceting, color aesthetics, and legends.
+
+## Basic Usage
+
+```{r}
+library(plotcli)
+library(ggplot2)
+
+# Create a ggplot
+p <- ggplot(mtcars, aes(x = wt, y = mpg, color = factor(cyl))) +
+  geom_point() +
+  labs(title = "MPG vs Weight by Cylinders")
+
+# Render in terminal
+ggplotcli(p, width = 60, height = 16)
+```
+
+## Supported Geoms
+
+### Scatter Plots (geom_point)
+
+```{r}
+p <- ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, color = Species)) +
+  geom_point() +
+  labs(title = "Iris: Sepal Dimensions by Species")
+ggplotcli(p, width = 60, height = 16)
+```
+
+### Line Plots (geom_line)
+
+```{r}
+# Multiple colored lines
+df <- data.frame(
+  x = rep(1:30, 2),
+  y = c(sin(1:30/4) * 10, cos(1:30/4) * 10),
+  type = rep(c("sin", "cos"), each = 30)
+)
+p <- ggplot(df, aes(x, y, color = type)) +
+  geom_line() +
+  labs(title = "Sine and Cosine Waves")
+ggplotcli(p, width = 60, height = 12)
+```
+
+### Histograms (geom_histogram)
+
+```{r}
+p <- ggplot(mtcars, aes(x = mpg, fill = factor(cyl))) +
+  geom_histogram(bins = 10, position = "dodge") +
+  labs(title = "MPG Distribution by Cylinders")
+ggplotcli(p, width = 60, height = 12)
+```
+
+### Density Plots (geom_density)
+
+```{r}
+p <- ggplot(mtcars, aes(x = mpg, color = factor(cyl))) +
+  geom_density() +
+  labs(title = "MPG Density by Cylinders")
+ggplotcli(p, width = 60, height = 12)
+```
+
+### Bar Charts (geom_col)
+
+```{r}
+df <- data.frame(
+  category = c("A", "B", "C", "D", "E", "F"),
+  value = c(25, 45, 30, 60, 35, 50)
+)
+p <- ggplot(df, aes(x = category, y = value, fill = category)) +
+  geom_col() +
+  labs(title = "Category Values")
+ggplotcli(p, width = 60, height = 12)
+```
+
+### Boxplots (geom_boxplot)
+
+Boxplots are rendered with box-drawing characters by default, showing whiskers, box (Q1-Q3), median line, and outliers:
+
+```{r}
+set.seed(42)
+df <- data.frame(
+  group = factor(rep(paste0("Group ", 1:6), each = 50)),
+  value = c(rnorm(50, 10, 3), rnorm(50, 5, 2), rnorm(50, 8, 4),
+            rnorm(50, 6, 2), rnorm(50, 12, 3), rnorm(50, 7, 2))
+)
+p <- ggplot(df, aes(x = group, y = value, fill = group)) +
+  geom_boxplot() +
+  labs(title = "Boxplot Colored by Group", y = "Value", x = "Group")
+ggplotcli(p, width = 80, height = 20, boxplot_style = "ascii")
+```
+
+You can also use Braille rendering for boxplots:
+
+```{r}
+ggplotcli(p, width = 80, height = 20, boxplot_style = "braille")
+```
+
+## Combining Multiple Geoms
+
+```{r}
+# Histogram with density overlay
+p <- ggplot(mtcars, aes(x = mpg)) +
+  geom_histogram(aes(y = after_stat(density)), bins = 10, fill = "gray") +
+  geom_density(color = "red") +
+  labs(title = "Histogram with Density Overlay")
+ggplotcli(p, width = 60, height = 12)
+```
+
+```{r}
+# Points with smooth line
+p <- ggplot(mtcars, aes(x = wt, y = mpg)) +
+  geom_point(color = "gray") +
+  geom_smooth(method = "loess", color = "red") +
+  labs(title = "Scatter with LOESS Smooth")
+suppressMessages(ggplotcli(p, width = 60, height = 12))
+```
+
+## Faceting
+
+### facet_wrap with Color Aesthetics
+
+Faceting works seamlessly with color/fill aesthetics and legends:
+
+```{r}
+mtcars$cyl_fac <- factor(mtcars$cyl)
+p <- ggplot(mtcars, aes(x = wt, y = mpg, color = cyl_fac)) +
+  geom_point() +
+  facet_wrap(~cyl_fac) +
+  labs(title = "MPG vs Weight: Faceted by Cylinders")
+ggplotcli(p, width = 75, height = 16)
+```
+
+### facet_grid
+
+```{r}
+p <- ggplot(mtcars, aes(x = wt, y = mpg, color = factor(gear))) +
+  geom_point() +
+  facet_grid(am ~ cyl) +
+  labs(title = "MPG: AM (rows) x Cylinders (cols)")
+ggplotcli(p, width = 80, height = 20)
+```
+
+## Styling Options
+
+### Borders and Grid Lines
+
+```{r}
+p <- ggplot(mtcars, aes(x = hp, y = qsec)) +
+  geom_point(color = "cyan") +
+  labs(title = "Quarter Mile Time vs HP")
+
+# With border
+ggplotcli(p, width = 55, height = 12, border = TRUE)
+
+# With grid
+ggplotcli(p, width = 55, height = 12, grid = "major")
+
+# Both
+ggplotcli(p, width = 55, height = 12, border = TRUE, grid = "major")
+```
+
+### Theme Auto-Detection
+
+ggplotcli automatically respects ggplot2 themes:
+
+```{r}
+p <- ggplot(mtcars, aes(x = wt, y = mpg)) +
+  geom_point(color = "blue") +
+  labs(title = "theme_bw() - Grid + Border")
+
+# theme_bw has both grid and border
+ggplotcli(p + theme_bw(), width = 60, height = 14, border = "auto", grid = "auto")
+
+# theme_classic has border but no grid
+ggplotcli(p + theme_classic() + labs(title = "theme_classic() - Border Only"), 
+           width = 60, height = 14, border = "auto", grid = "auto")
+```
+
+## Canvas Types
+
+Three rendering modes are available:
+
+```{r}
+wave <- ggplot(data.frame(x = 1:25, y = sin(1:25/4)*8), aes(x, y)) +
+  geom_line(color = "green")
+
+# Braille (highest resolution - 2x4 dots per character)
+ggplotcli(wave + labs(title = "Braille Canvas (highest resolution)"), 
+           width = 50, height = 8, canvas_type = "braille")
+
+# Block (medium resolution - uses block characters)
+ggplotcli(wave + labs(title = "Block Canvas (medium resolution)"), 
+           width = 50, height = 8, canvas_type = "block")
+
+# ASCII (basic, most compatible)
+ggplotcli(wave + labs(title = "ASCII Canvas (most compatible)"), 
+           width = 50, height = 8, canvas_type = "ascii")
+```
+
+## Color Mapping
+
+ggplotcli intelligently maps ggplot2 colors to terminal colors (red, yellow, green, cyan, blue, magenta). The mapping prioritizes **color distinctness** over hue accuracy to maximize visual differentiation between groups.
+
+### Many Groups (8+)
+
+Even with many groups, colors are distributed to minimize repetition:
+
+```{r}
+set.seed(123)
+df <- data.frame(
+  group = factor(rep(paste0("G", 1:8), each = 30)),
+  value = unlist(lapply(1:8, function(i) rnorm(30, mean = i * 2, sd = 1.5)))
+)
+p <- ggplot(df, aes(x = group, y = value, fill = group)) +
+  geom_boxplot() +
+  labs(title = "8 Groups with Optimized Color Distribution")
+ggplotcli(p, width = 85, height = 18, boxplot_style = "ascii")
+```
+
+## Showcase: Maximum Complexity
+
+### Complex Faceted Boxplot
+
+```{r}
+set.seed(42)
+df <- data.frame(
+  treatment = factor(rep(c("Control", "Drug A", "Drug B"), each = 60)),
+  timepoint = factor(rep(rep(c("Baseline", "Week 4", "Week 8"), each = 20), 3)),
+  response = c(
+    rnorm(20, 50, 10), rnorm(20, 52, 10), rnorm(20, 51, 10),  # Control
+    rnorm(20, 50, 10), rnorm(20, 65, 12), rnorm(20, 70, 11),  # Drug A
+    rnorm(20, 50, 10), rnorm(20, 58, 11), rnorm(20, 62, 10)   # Drug B
+  )
+)
+
+p <- ggplot(df, aes(x = timepoint, y = response)) +
+  geom_boxplot(aes(fill = treatment)) +
+  labs(title = "Treatment Response Over Time",
+       subtitle = "Faceted by treatment group",
+       x = "Timepoint", y = "Response") +
+  theme_bw()
+
+ggplotcli(p, width = 100, height = 22, boxplot_style = "ascii")
+```
+
+### Multi-Layer Scientific Plot
+
+```{r}
+# Simulated experiment data
+set.seed(123)
+x <- seq(0, 10, length.out = 50)
+df <- data.frame(
+  x = rep(x, 3),
+  y = c(
+    2 * x + rnorm(50, 0, 1.5),
+    1.5 * x + 3 + rnorm(50, 0, 1.2),
+    x^1.2 + rnorm(50, 0, 1)
+  ),
+  group = rep(c("Linear", "Offset", "Power"), each = 50)
+)
+
+p <- ggplot(df, aes(x = x, y = y, color = group)) +
+  geom_point(alpha = 0.6) +
+  geom_smooth(method = "loess", se = FALSE) +
+  labs(title = "Multi-Group Regression Analysis",
+       subtitle = "Points with LOESS smoothing",
+       x = "Predictor", y = "Response") +
+  theme_minimal()
+
+suppressMessages(ggplotcli(p, width = 70, height = 18))
+```
+
+### Dense Scatter with Facets
+
+```{r}
+p <- ggplot(iris, aes(x = Sepal.Length, y = Petal.Length, color = Species)) +
+  geom_point() +
+  facet_wrap(~Species) +
+  labs(title = "Iris Dataset: Sepal vs Petal Length",
+       subtitle = "Faceted by species with color legend") +
+  theme_bw()
+
+ggplotcli(p, width = 80, height = 16)
+```
+
+## Supported Features Summary
+
+| Feature | Status |
+|---------|--------|
+| geom_point | ✓ |
+| geom_line, geom_path | ✓ |
+| geom_bar, geom_col, geom_histogram | ✓ |
+| geom_density | ✓ |
+| geom_smooth | ✓ |
+| geom_area | ✓ |
+| geom_segment, geom_hline, geom_vline | ✓ |
+| geom_rect | ✓ |
+| geom_text | ✓ |
+| geom_boxplot | ✓ |
+| Color/fill aesthetics | ✓ |
+| Legends (auto-generated) | ✓ |
+| facet_wrap, facet_grid | ✓ |
+| Titles, subtitles, captions | ✓ |
+| Theme auto-detection | ✓ |
+| Optimized color mapping | ✓ |
+| Multiple canvas types | ✓ |
+| geom_tile (heatmaps) | Planned |
+| geom_violin | Planned |
+

plotcli-original/vignettes/plotcli_class.R

@@ -0,0 +1,98 @@
+## ----setup, include = FALSE---------------------------------------------------
+knitr::opts_chunk$set(
+  collapse = TRUE,
+  comment = "#>"
+)
+
+## -----------------------------------------------------------------------------
+library(plotcli)  
+
+plot_width = 80
+plot_height = 40
+
+# Create some example data
+x <- seq(0, 2 * pi, length.out = 100)
+y1 <- sin(x)
+y2 <- cos(x)
+
+data_1 = list(
+              x = x, 
+              y = y1, 
+              name = "y1 = sin(x)", 
+              color = "blue",
+              type = "line",
+              braille = FALSE
+              )
+
+data_2 = list(
+                x = x, 
+                y = y2, 
+                name = "y2 = cos(x)", 
+                color = "red",
+                type = "line",
+                braille = FALSE
+                )
+
+# Create a plotcli object with specified dimensions
+plot <- plotcli$new(
+                    plot_width = plot_width, 
+                    plot_height = plot_height, 
+                    x_label = "X-axis", 
+                    y_label = "Y-axis"
+                    )
+
+# Add data sets to the plot
+plot$add_data(data_1)
+plot$add_data(data_2)
+
+# Print the plot
+plot$print_plot()
+
+## -----------------------------------------------------------------------------
+library(plotcli)  
+
+data(mtcars)
+
+# Fit a linear model
+lm_fit <- lm(wt ~ mpg, data = mtcars)
+
+# Create a new dataset with the predicted values
+predicted_data <- data.frame(mpg = mtcars$mpg, predicted_wt = predict(lm_fit, mtcars))
+
+# we use braille characters for the regression line
+data_1 = list(
+              x = predicted_data$mpg, 
+              y = predicted_data$predicted_wt, 
+              name = "Regression Line", 
+              color = "red",
+              type = "line",
+              braille = TRUE
+              )
+
+# and ascii characters for the raw data
+data_2 = list(
+                x = mtcars$mpg, 
+                y = mtcars$wt, 
+                name = "Data Points", 
+                color = "blue",
+                type = "scatter",
+                braille = FALSE
+                )
+
+# Create a plotcli object
+plot_width = 80
+plot_height = 40
+plot_obj <- plotcli$new(
+                        plot_width, 
+                        plot_height, 
+                        x_label = "Miles per Gallon", 
+                        y_label = "Weight"
+                        )
+
+# Add raw data and regression line
+plot_obj$add_data(data_1)
+plot_obj$add_data(data_2)
+
+# Print the plot
+plot_obj$print_plot()
+

plotcli-original/vignettes/plotcli_class.Rmd

@@ -0,0 +1,121 @@
+---
+title: "Using the plotcli R6 Class"
+author: "Claas Heuer"
+date: "`r Sys.Date()`"
+output: rmarkdown::html_vignette
+vignette: >
+  %\VignetteIndexEntry{Using the plotcli R6 Class}
+  %\VignetteEngine{knitr::rmarkdown}
+  %\VignetteEncoding{UTF-8}
+---
+  
+```{r setup, include = FALSE}
+knitr::opts_chunk$set(
+  collapse = TRUE,
+  comment = "#>"
+)
+```
+
+## Using plotcli R6 class 
+
+# Setting up a scatter plot with two data sets
+
+```{r}
+library(plotcli)  
+
+plot_width = 80
+plot_height = 40
+
+# Create some example data
+x <- seq(0, 2 * pi, length.out = 100)
+y1 <- sin(x)
+y2 <- cos(x)
+
+data_1 = list(
+              x = x, 
+              y = y1, 
+              name = "y1 = sin(x)", 
+              color = "blue",
+              type = "line",
+              braille = FALSE
+              )
+
+data_2 = list(
+                x = x, 
+                y = y2, 
+                name = "y2 = cos(x)", 
+                color = "red",
+                type = "line",
+                braille = FALSE
+                )
+
+# Create a plotcli object with specified dimensions
+plot <- plotcli$new(
+                    plot_width = plot_width, 
+                    plot_height = plot_height, 
+                    x_label = "X-axis", 
+                    y_label = "Y-axis"
+                    )
+
+# Add data sets to the plot
+plot$add_data(data_1)
+plot$add_data(data_2)
+
+# Print the plot
+plot$print_plot()
+```
+
+# Combining Ascii and braille characters
+
+plotcli can use braille characters for plotting scatter
+and line plots, which give a much higher resolution on supported terminals.
+Whether to use braille or ascii characters can be specified for each data set.
+
+```{r}
+library(plotcli)  
+
+data(mtcars)
+
+# Fit a linear model
+lm_fit <- lm(wt ~ mpg, data = mtcars)
+
+# Create a new dataset with the predicted values
+predicted_data <- data.frame(mpg = mtcars$mpg, predicted_wt = predict(lm_fit, mtcars))
+
+# we use braille characters for the regression line
+data_1 = list(
+              x = predicted_data$mpg, 
+              y = predicted_data$predicted_wt, 
+              name = "Regression Line", 
+              color = "red",
+              type = "line",
+              braille = TRUE
+              )
+
+# and ascii characters for the raw data
+data_2 = list(
+                x = mtcars$mpg, 
+                y = mtcars$wt, 
+                name = "Data Points", 
+                color = "blue",
+                type = "scatter",
+                braille = FALSE
+                )
+
+# Create a plotcli object
+plot_width = 80
+plot_height = 40
+plot_obj <- plotcli$new(
+                        plot_width, 
+                        plot_height, 
+                        x_label = "Miles per Gallon", 
+                        y_label = "Weight"
+                        )
+
+# Add raw data and regression line
+plot_obj$add_data(data_1)
+plot_obj$add_data(data_2)
+
+# Print the plot
+plot_obj$print_plot()
+```

plotcli-original/vignettes/plotcli_wrappers.R

@@ -0,0 +1,35 @@
+## ----setup, include = FALSE---------------------------------------------------
+knitr::opts_chunk$set(
+  collapse = TRUE,
+  comment = "#>"
+)
+
+## -----------------------------------------------------------------------------
+library(plotcli)
+# Generate sample data
+sample_data <- rnorm(1000, mean = 5, sd = 2)
+
+# Create a density plot
+plotcli_density(sample_data, color = "blue", braille = TRUE)
+
+## -----------------------------------------------------------------------------
+# Generate sample data
+sample_data <- rnorm(1000, mean = 5, sd = 2)
+
+# Create a histogram
+plotcli_histogram(sample_data, color = "yellow")
+
+## -----------------------------------------------------------------------------
+# Create a scatter plot
+plotcli_scatter(x = iris$`Sepal.Width`, y = iris$`Sepal.Length`, color = "magenta", braille = FALSE)
+
+## -----------------------------------------------------------------------------
+
+# make sin 
+x <- seq(0, 2*pi, length.out = 50)
+y <- sin(x)
+
+# Create a line plot
+plotcli_line(x = x, y = cos(y), color = "green")
+plotcli_line(x = x, y = x, color = "magenta", braille = FALSE)
+

plotcli-original/vignettes/plotcli_wrappers.Rmd

@@ -0,0 +1,62 @@
+---
+title: "plotcli Convenience Wrappers"
+author: "Claas Heuer"
+date: "`r Sys.Date()`"
+output: rmarkdown::html_vignette
+vignette: >
+  %\VignetteIndexEntry{plotcli Convenience Wrappers}
+  %\VignetteEngine{knitr::rmarkdown}
+  %\VignetteEncoding{UTF-8}
+---
+  
+```{r setup, include = FALSE}
+knitr::opts_chunk$set(
+  collapse = TRUE,
+  comment = "#>"
+)
+```
+
+## Using `plotcli` convenience wrappers
+
+# Density plot
+
+```{r}
+library(plotcli)
+# Generate sample data
+sample_data <- rnorm(1000, mean = 5, sd = 2)
+
+# Create a density plot
+plotcli_density(sample_data, color = "blue", braille = TRUE)
+``` 
+
+# Histogram
+
+```{r}
+# Generate sample data
+sample_data <- rnorm(1000, mean = 5, sd = 2)
+
+# Create a histogram
+plotcli_histogram(sample_data, color = "yellow")
+``` 
+
+# Scatterplot
+
+```{r}
+# Create a scatter plot
+plotcli_scatter(x = iris$`Sepal.Width`, y = iris$`Sepal.Length`, color = "magenta", braille = FALSE)
+``` 
+
+# Lineplot
+
+```{r}
+
+# make sin 
+x <- seq(0, 2*pi, length.out = 50)
+y <- sin(x)
+
+# Create a line plot
+plotcli_line(x = x, y = cos(y), color = "green")
+plotcli_line(x = x, y = x, color = "magenta", braille = FALSE)
+``` 
+
+

plotcli.egg-info/PKG-INFO

@@ -0,0 +1,11 @@
+Metadata-Version: 2.1
+Name: plotcli
+Version: 0.1.0
+Summary: Terminal plotting tool using Unicode Braille/Block/ASCII characters
+Home-page: UNKNOWN
+License: UNKNOWN
+Platform: UNKNOWN
+Requires-Python: >=3.7
+
+UNKNOWN
+

plotcli.egg-info/SOURCES.txt

@@ -0,0 +1,7 @@
+plotcli.py
+setup.py
+plotcli.egg-info/PKG-INFO
+plotcli.egg-info/SOURCES.txt
+plotcli.egg-info/dependency_links.txt
+plotcli.egg-info/entry_points.txt
+plotcli.egg-info/top_level.txt

plotcli.egg-info/dependency_links.txt

@@ -0,0 +1 @@
+

plotcli.egg-info/entry_points.txt

@@ -0,0 +1,3 @@
+[console_scripts]
+plotcli = plotcli:main
+

plotcli.egg-info/top_level.txt

@@ -0,0 +1 @@
+plotcli