# install.packages("devtools")
devtools::install_github("dylanjm/meplotR")
library(dplyr)
library(meplotR)
# Scale data as needed before plotting
dat <- meplotR::zr4_coated %>% # data included as example as part of package
mutate(coating_thickness = coating_thickness * 1e6,
internal_pressure = internal_pressure / 1e6,
max_clad_displacement = max_clad_displacement * 1000)
# Select the column numbers that are input parameters
# Put in units - for LaTeX wrap it in $ and use double (\\) when calling macros
input_parameters <- names(dat)[3:6]
input_units <- c("($\\mu$ m)", "(K)", "(kPa/s)", "(n/m$^2$-s)")
# Select column numbers that are output parameters
output_parameters <- names(dat)[7:9]
output_units <- c("(s)", "(MPa)", "(mm)")
# Generate all plots for input and output parameters
generate_all_me(dat, input_parameters, input_units, output_parameters, output_units)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.