# file = "~/Box Sync/UC Davis/Right Now/Researches/Zivkovic Lab/Egg Study/Result/Analysis/hdl/Rdata/lpd_precalc.Rdata"
# load(file)
# mset = lipidome_set$class$Adjusted
# df = data.frame(
# x = conc_table(mset)["Cholesterol",],
# Timepoint = sample_table(mset)$Timepoint,
# Treatment = sample_table(mset)$Treatment,
# Subject = sample_table(mset)$Subject
# )
#
# ggplot(df, aes(y = x)) +
# geom_boxplot() +
# facet_grid(cols = vars(Timepoint), rows = vars())
#
# myplot = function(data, x, y, cols){
# ggplot(data, aes(x=!!(enquo(x)), y = !!(enquo(y)))) +
# geom_boxplot() +
# facet_grid(cols = vars(!!enquo(cols)))
# }
#
# ggboxplot(data = df, x = "Timepoint", y = "x")
#
# df = data.frame(
# x = lipidome_set$class$Adj_protein$conc_table["CE",],
# y = hdl_function$conc_table["Chol Efflux (ApoB Depleted Serum 1%)",],
# Timepoint = hdl_function$sample_table$Timepoint,
# Treatment = hdl_function$sample_table$Treatment,
# Subject = hdl_function$sample_table$Subject
# )
# ggscatterplot(data=df, x="x", y="y")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.