R可视化：可直接发表的柱状图

可发表的柱状图

介绍

柱状图可视化

加载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