可发表的柱状图
介绍
柱状图可视化
加载R包
knitr::opts_chunk$set(echo = TRUE, message = FALSE, warning = FALSE)
library(tidyverse)
library(ggpubr)
library(plyr)
library(ggprism)
rm(list = ls())
options(stringsAsFactors = F)
# group & color
dose_names <- c("0.5", "1", "2")
dose_colors <- c("#0073C2FF", "#EFC000FF", "#CD534CFF")
supp_names <- c("OJ", "VC")
supp_colors <- c('#999999','#E69F00')
导入数据
data("ToothGrowth")
head(ToothGrowth)
准备数据
plotdata <- ToothGrowth |>
dplyr::mutate(dose = factor(as.character(dose), levels = dose_names),
supp = factor(supp, levels = sup
