# NOT RUN {
td <- tidy(mtcars)
td
glance(mtcars)
library(ggplot2)
# compare mean and standard deviation
ggplot(td, aes(mean, sd)) + geom_point() +
geom_text(aes(label = column), hjust = 1, vjust = 1) +
scale_x_log10() + scale_y_log10() + geom_abline()
# }
Run the code above in your browser using DataLab