if (FALSE) {
# 'numeric' (default)
amBoxplot(rnorm(100))
# 'formula'
amBoxplot(count ~ spray, data = InsectSprays)
# 'formula', two group
data <- InsectSprays
data$group <- c("H", "F")
amBoxplot(count ~ spray + group, data = data, col = c("purple", "darkblue"))
# 'matrix'
x <- matrix(nrow = 10, ncol = 5, rnorm(50))
amBoxplot(x)
# 'data.frame'
amBoxplot(iris[, 1:4])
}
# Other examples available which can be time consuming depending on your configuration.
if (FALSE) {
don <- data.frame(a = 1:10, b = 1:5)
amBoxplot(don, ylim = c(0,15))
}
if (FALSE) {
# --- matrix
x <- matrix(nrow = 10, ncol = 5, rnorm(50))
amBoxplot(x) # on columns
colnames(x) <- LETTERS[1:5]
amBoxplot(x) # with names
amBoxplot(x, use.cols = FALSE, col = c("blue", "red"))
# Parameter for amOptions
amBoxplot(x, export = TRUE, exportFormat = "SVG")
}
if (FALSE) {
# --- Formula
(obj <- amBoxplot(count ~ spray, data = InsectSprays))
# Adding parameters
amBoxplot(count ~ spray, data = InsectSprays, ylim = c(0,50),
xlab = "spray", col = c("darkblue", "gray"))
# Transpose
amBoxplot(count ~ spray, data = InsectSprays, ylim = c(0,50), xlab = "spray", horiz = FALSE)
# Using a custom colum to identify outliers
InsectSprays$id <- paste0("ID : ", 1:nrow(InsectSprays))
amBoxplot(count ~ spray, data = InsectSprays, id = "id")
# Parameter for amOptions
amBoxplot(count ~ spray, data = InsectSprays, main = "amcharts")
}
Run the code above in your browser using DataLab