library(tidyverse)
ins <- read_csv("https://denvirlab.marshall.edu/BMR617-2021/data/InsulinSensitivityBorkman.csv")
ggplot(ins, aes(x=`%C20-22`, y=InsulinSensitivity)) + geom_point()
cor(pull(ins, `%C20-22`), pull(ins, InsulinSensitivity))
       
met <- read_csv("https://denvirlab.marshall.edu/BMR617-2021/data/TH-B6-metabolic.csv")
met <- separate(met, MouseID, sep="-", into=c("Strain", "Diet", "ID"))

cor(pull(met, TG), pull(met, Glucose))

ggplot(met, aes(x=TG, y=Glucose)) + geom_point(aes(color=Diet, shape=Strain))