In mikeod38/ProvidenciaChemo:

knitr::opts_chunk$set(echo = TRUE)
knitr::opts_chunk$set(message = FALSE)
knitr::opts_chunk$set(warning = FALSE)
library(ProvidenciaChemo)
library(tidyverse)
library(patchwork)
library(tidybayes)
library(modelr)
library(emmeans)
library(magrittr)
library(emmeans)
library(rstanarm)
theme_set(theme_my)

library(scales)

TAsucc <- read_csv('extdata/Figure_2E_3D_TAsucc.csv') %>%
  mutate(food = fct_relevel(food, c("OP50", "JUb39")))

plot <- TAsucc %>%
  filter(genotype == "tdc-1") %>%
  ggplot(aes(x = food, y = AUC)) +
  #geom_point(aes(colour = food)) +
  geom_bardots(fillvar = food, dotvar = food) +
  stat_summary(geom = "errorbar", fun.data = mean_se, width = 0.2) +
  scale_color_plot("grey-blue-light", drop = TRUE) +
  scale_fill_plot("grey-blue-light", drop = TRUE) +
  add.n('food', y.pos = 0.5) +
  labs(x = "food",
       y = "AUC") +
  guides(colour = FALSE) +
  theme(axis.text.x = element_blank()) +
  scale_y_continuous(trans = 'log10',
                        breaks = trans_breaks('log10', function(x) 10^x),
                        labels = trans_format('log10', math_format(10^.x)))

plot

mikeod38/ProvidenciaChemo documentation built on April 6, 2020, 11:57 p.m.