.Rhistory

devtools::document()
devtools::document()
devtools::document()
devtools::check()
devtools::check()
devtools::check()
usethis::use_package("stringr")
devtools::check()
devtools::check()
devtools::check()
devtools::document()
devtools::check()
devtools::document()
devtools::check()
?draw_volcano
library(tidyverse)
library(janitor)
library(magrittr)
library(edgeR)
library(ComplexHeatmap)
library(sva)
library(patchwork)
library(tidyverse)
draw_boxplot <- function(df, gene, groups) {
gene <- df %>%
tibble::rownames_to_column("gene_symbol") %>%
filter(gene_symbol == gene) %>%
pull(gene)
samples <- colnames(df)
df[gene, ] %>%
pivot_longer(cols = samples, names_to = "sample", values_to = "expression") %>%
mutate(groups = group_by) %>%
ggplot(aes(groups, expression)) +
geom_boxplot() +
geom_jitter(shape = 21, cex = 2.5, color = 'black', width = 0.2, height = 0, aes(fill = groups)) +
theme(legend.position = "none") +
scale_y_continuous(limits = c(0, NA)) +
labs(y = "Norm intensity") +
ggtitle(gene)
}
devtools::check()
devtools::check()
usethis::use_package("magrittr")
usethis::use_package("tidyverse")
usethis::use_package("dplyr")
usethis::use_package("tidyr")
usethis::use_package("tibble")
devtools::document()
rm(list = c("draw_boxplot"))
devtools::check()
devtools::check()