# NOT RUN {
materials <- convDir("core_426", rootData = FALSE)
# }
# NOT RUN {
# plot using "ggplot" package after transforming with "reshape2" package
mass.long <- reshape2::melt(materials, id.vars = c("depth"),
measure.vars = grep(".g", names(materials)))
ggplot2::ggplot(data = mass.long, ggplot2::aes(y = -depth, x = value,
color = variable)) + ggplot2::geom_point() + ggplot2::theme_classic() +
ggplot2::xlab("mass per section (g)")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab