library(tidyverse)
met <- read_csv("https://denvirlab.marshall.edu/BMR617-2023/data/TH-B6-metabolic.csv") %>%
separate(MouseID, sep='-', into=c("Strain", "Diet", "Id"))
ggplot(met, aes(x=Strain, y=Cholesterol)) +
geom_boxplot(aes(fill=Diet))
ggplot(met, aes(x=Strain, y=Cholesterol)) +
geom_point(aes(color=Diet), position=position_jitterdodge(jitter.width = 0.1, dodge.width = 0.75))
ggplot(met, aes(x=Strain, y=Cholesterol)) + geom_boxplot(aes(fill=Diet)) + scale_fill_manual(values=c("lavender", "orange", "beige"))
colors()
ggplot(met, aes(x=Strain, y=Cholesterol)) + geom_boxplot(aes(fill=Diet)) + scale_fill_manual(values=c(LF="lavender", HF="orange", Chow="beige"))
ggplot(met, aes(x=Strain, y=Cholesterol)) + geom_boxplot(aes(color=Diet)) + scale_color_manual(values=c(LF="purple", HF="orange", Chow="brown"))
ggplot(met, aes(x=Strain, y=Cholesterol)) + geom_boxplot(aes(fill=Diet, color=Diet)) + scale_discrete_manual(values=c(LF="purple", HF="orange", Chow="brown"), aesthetics=c("fill", "color"))
ggplot(met, aes(x=Strain, y=Cholesterol)) + geom_boxplot(aes(fill=Diet)) + scale_fill_discrete()
library(RColorBrewer)
display.brewer.all()
display.brewer.all(type="qual")
display.brewer.all(type="qual", colorblindFriendly = TRUE)
ggplot(met, aes(x=Strain, y=Cholesterol, fill=Diet)) +
geom_boxplot() +
scale_fill_brewer(palette="Dark2")
ggplot(met, aes(x=Strain, y=Cholesterol, fill=Diet)) +
geom_boxplot() +
scale_fill_viridis_d()
sp <- ggplot(met, aes(x=Strain, y=Cholesterol)) + geom_point(aes(color=Diet), position=position_jitterdodge(jitter.width=0.1))
sp + scale_color_brewer(palette="Dark2")