# NOT RUN {
library(tidyverse)
library(ggplot2)
print(head(mtcars))
print(table(mtcars$gear, useNA="ifany"))
statVisual(type = "BiAxisErrBar",
dat= mtcars,
group = "gear",
y.left = "mpg",
y.right = "wt")
BiAxisErrBar(
dat = mtcars,
group = "gear",
y.left = "mpg",
y.right = "wt")
# }
Run the code above in your browser using DataLab