testthat::context("amFloatingBar")
library(pipeR)
data(data_fbar)
data(data_gbar)
testthat::test_that("Basic example", {
testthat::expect_silent({
# Load data
# Reference example : column chart
amFloatingBar(x = "country", y_inf = "visits_inf", y_sup = "visits_sup",
data = data_fbar, labelRotation = -45)
# Label rotation modification
amFloatingBar(x = "country", y_inf = "visits_inf", y_sup = "visits_sup",
data = data_fbar, labelRotation = -90)
# Horizontal bar
amFloatingBar(x = "country", y_inf = "visits_inf", y_sup = "visits_sup",
data = data_fbar, horiz = TRUE)
# 3D bar
amFloatingBar(x = "country", y_inf = "visits_inf", y_sup = "visits_sup",
data = data_fbar, labelRotation = -45, depth = 15)
# Display values
amFloatingBar(x = "country", y_inf = "visits_inf", y_sup = "visits_sup",
data = data_fbar, labelRotation = -90, show_values = TRUE)
# Change colors
amFloatingBar(x = "country", y_inf = "visits_inf", y_sup = "visits_sup",
data = data_fbar[,1:3], labelRotation = -45, groups_color = "#67b7dc")
# Grouped columns
# Parse dates
# Default label: firt day of each year
amFloatingBar(x = "year", y_inf = "expenses", y_sup = "income", data = data_gbar,
dataDateFormat = "YYYY", minPeriod = "YYYY", zoom = TRUE)
# Default label: first day of each month
amFloatingBar(x = "month", y_inf = "expenses", y_sup = "income", data = data_gbar,
dataDateFormat = "MM/YYYY", minPeriod = "MM", zoom = TRUE)
amFloatingBar(x = "day", y_inf = "expenses", y_sup = "income", data = data_gbar,
dataDateFormat = "DD/MM/YYYY", zoom = TRUE)
})
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.