plotcli convenience wrapperslibrary(plotcli)
# Generate sample data
sample_data <- rnorm(1000, mean = 5, sd = 2)
# Create a density plot
plotcli_density(sample_data, color = "blue", braille = TRUE)
#>
#>
#> ┌────────────────────────────────────────────────────────────┐
#> 0.2 │ ⠰⣈⡧⡤⡔⡤⡶ │
#> │ ⠰⢘⡄ ⠰⡕ │
#> │ ⡰⡖ ⡐⠖ │
#> │ ⠰⡇ ⡣ │
#> │ ⠷ ⡥ │
#> 0.1 │ ⢁⠑ ⡠⠤ │
#> │ ⡐⠥ ⡤ │
#> │ ⠧ ⠰⠗ │
#> │ ⡱⠒ ⡣⠢ │
#> Density 0.1 │ ⠰⠦ ⢅ │
#> │ ⠷ ⢆ │
#> │ ⡣⠒ ⠰⢕⠢ │
#> │ ⡱⠓ ⡦⡈ │
#> │ ⡰⠦ ⡐⢖⠤ │
#> 0.0 │ ⡰⠵ ⡔⠦ │
#> │ ⡰⠷ ⡔⠦ │
#> │ ⡰⠵ ⡃⠚ │
#> │ ⢅⠵ ⡂⢕⠤ │
#> │ ⢚⢨⡦⠒ ⡅⢖⠪ │
#> 0.0 │⣨⣈⢨⣈⢨⣈⡧⡕⡔ ⡂⡤⢔⣈⢨⣈⢨⠬│
#> └────────────────────────────────────────────────────────────┘
#>
#> -2.5 1.2 4.9 8.6 12.3
#>
#> x
#> # Generate sample data
sample_data <- rnorm(1000, mean = 5, sd = 2)
# Create a histogram
plotcli_histogram(sample_data, color = "yellow")
#>
#>
#> ┌────────────────────────────────────────────────────────────┐
#> 204 │ █ │
#> │ █ █ │
#> │ █ █ │
#> │ █ █ │
#> │ █ █ █ █ │
#> 153 │ █ █ █ █ │
#> │ █ █ █ █ │
#> │ █ █ █ █ │
#> │ █ █ █ █ │
#> Frequency 102 │ █ █ █ █ │
#> │ █ █ █ █ █ │
#> │ █ █ █ █ █ █ │
#> │ █ █ █ █ █ █ │
#> │ █ █ █ █ █ █ │
#> 50.9 │ █ █ █ █ █ █ █ █ │
#> │ █ █ █ █ █ █ █ █ │
#> │ █ █ █ █ █ █ █ █ │
#> │ █ █ █ █ █ █ █ █ █ │
#> │ █ █ █ █ █ █ █ █ █ █ │
#> 0.0 │█ █ █ █ █ █ █ █ █ █ █ █ █│
#> └────────────────────────────────────────────────────────────┘
#>
#> -0.5 2.5 5.5 8.5 11.5
#>
#> x
#> # Create a scatter plot
plotcli_scatter(x = iris$`Sepal.Width`, y = iris$`Sepal.Length`, color = "magenta", braille = FALSE)
#>
#>
#> ┌────────────────────────────────────────────────────────────┐
#> 7.9 │ * * * * │
#> │ * │
#> │ * * │
#> │ * * * │
#> │ * │
#> 7.0 │ * * * * │
#> │ * * * * * │
#> │ * * * * * * │
#> │ * * * * * * * * │
#> y 6.1 │ * * * * │
#> │ * * * * * * │
#> │ * * * * * * * * *│
#> │ * * * * * * * * * * │
#> │ * * * * │
#> 5.2 │ * * * * │
#> │* * * * * * * * * * * │
#> │ * * * * * * │
#> │ * * * * │
#> │ * * * * │
#> 4.3 │ * │
#> └────────────────────────────────────────────────────────────┘
#>
#> 2.0 2.6 3.2 3.8 4.4
#>
#> x
#>
# 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")
#>
#>
#> ┌────────────────────────────────────────────────────────────┐
#> 1.0 │*** ***** **│
#> │ * * * * │
#> │ * * * * │
#> │ * * * * │
#> │ * * * * │
#> 0.9 │ * * * * │
#> │ * * * * │
#> │ * * * * │
#> │ * * * * │
#> y 0.8 │ * * * * │
#> │ * * * * │
#> │ * * * * │
#> │ * * * * │
#> │ * * * * │
#> 0.7 │ * * * * │
#> │ * * * * │
#> │ * * * * │
#> │ * * * * │
#> │ * * * * │
#> 0.5 │ **** **** │
#> └────────────────────────────────────────────────────────────┘
#>
#> 0.0 1.6 3.1 4.7 6.3
#>
#> x
#>
plotcli_line(x = x, y = x, color = "magenta", braille = FALSE)
#>
#>
#> ┌────────────────────────────────────────────────────────────┐
#> 6.3 │ ****│
#> │ *** │
#> │ *** │
#> │ *** │
#> │ *** │
#> 4.7 │ ** │
#> │ **** │
#> │ ** │
#> │ **** │
#> y 3.1 │ *** │
#> │ *** │
#> │ *** │
#> │ *** │
#> │ *** │
#> 1.6 │ ** │
#> │ **** │
#> │ ** │
#> │ **** │
#> │ *** │
#> 0.0 │** │
#> └────────────────────────────────────────────────────────────┘
#>
#> 0.0 1.6 3.1 4.7 6.3
#>
#> x
#>