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 │⣨⣈⢨⣈⢨⣈⢨⡪⡔⡕⠑ ⡀⡕⢄⢪⢨⢪⢨⢪⣈⢨⣈⢨⣈⢨⠬│
#> └────────────────────────────────────────────────────────────┘
#>
#> -3.1 1.1 5.3 9.4 13.6
#>
#> x
#> # Generate sample data
sample_data <- rnorm(1000, mean = 5, sd = 2)
# Create a histogram
plotcli_histogram(sample_data, color = "yellow")
#>
#>
#> ┌────────────────────────────────────────────────────────────┐
#> 206 │ █ │
#> │ █ █ │
#> │ █ █ │
#> │ █ █ │
#> │ █ █ █ │
#> 154 │ █ █ █ █ │
#> │ █ █ █ █ │
#> │ █ █ █ █ │
#> │ █ █ █ █ │
#> Frequency 103 │ █ █ █ █ │
#> │ █ █ █ █ █ │
#> │ █ █ █ █ █ █ │
#> │ █ █ █ █ █ █ │
#> │ █ █ █ █ █ █ │
#> 51.4 │ █ █ █ █ █ █ █ █ │
#> │ █ █ █ █ █ █ █ █ │
#> │ █ █ █ █ █ █ █ █ │
#> │ █ █ █ █ █ █ █ █ █ │
#> │ █ █ █ █ █ █ █ █ █ █ │
#> 0.0 │█ █ █ █ █ █ █ █ █ █ █ █ █ █ █│
#> └────────────────────────────────────────────────────────────┘
#>
#> -0.5 3.0 6.5 10.0 13.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
#>