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.2 │ ⡎ ⢳⡀ │
#> │ ⡜ ⢧ │
#> │ ⡸⠁ ⠈⡆ │
#> │ ⡜⠁ ⠸⡀ │
#> Density 0.1 │ ⡜ ⢇ │
#> │ ⡜ ⠘⡄ │
#> │ ⢸⠁ ⢱ │
#> │ ⢠⠇ ⠈⢇ │
#> │ ⢀⠎ ⠈⢆ │
#> 0.1 │ ⢀⡜ ⠈⢦⡀ │
#> │ ⢀⠞ ⠱⡄ │
#> │ ⣠⠋ ⠙⣆ │
#> │ ⢀⡜⠁ ⠈⠳⣄⡀ │
#> │ ⣀⡴⠋ ⠉⠙⠢⣄ │
#> 0.0 │⣀⣀⣀⣠⠤⠔⠚⠉⠁ ⠈⠙⠲⠤⠤⠤⣄⣀⣀⣀│
#> └────────────────────────────────────────────────────────────┘
#>
#> -1.9 1.7 5.4 9.1 12.8
#>
#> x
#> # Generate sample data
sample_data <- rnorm(1000, mean = 5, sd = 2)
# Create a histogram
plotcli_histogram(sample_data, color = "yellow")
#>
#>
#> ┌────────────────────────────────────────────────────────────┐
#> 209 │ █ │
#> │ █ │
#> │ █ █ │
#> │ █ █ │
#> │ █ █ █ │
#> 157 │ █ █ █ █ │
#> │ █ █ █ █ │
#> │ █ █ █ █ │
#> │ █ █ █ █ █ │
#> Frequency 104 │ █ █ █ █ █ │
#> │ █ █ █ █ █ │
#> │ █ █ █ █ █ █ │
#> │ █ █ █ █ █ █ │
#> │ █ █ █ █ █ █ │
#> 52.2 │ █ █ █ █ █ █ │
#> │ █ █ █ █ █ █ █ │
#> │ █ █ █ █ █ █ █ █ │
#> │ █ █ █ █ █ █ █ █ █ │
#> │ █ █ █ █ █ █ █ █ █ █ │
#> 0.0 │█ █ █ █ █ █ █ █ █ █ █ █ █ █│
#> └────────────────────────────────────────────────────────────┘
#>
#> -1.5 1.8 5.0 8.2 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
#>