R可视化：给柱状图添加网格

给柱状图添加不同类型的网格，用于区分不同分组

加载R包

knitr::opts_chunk$set(message = FALSE, warning = FALSE)

library(tidyverse)
library(ggpattern)
library(ggplot2)

# rm(list = ls())
options(stringsAsFactors = F)
options(future.globals.maxSize = 10000 * 1024^2)

Importing data

data <- data.frame(
  category = rep(c("cat1", "cat2", "cat3"), 4),
  values = c(0.664, 0.045, 0.291, 0.482, 0.029, 0.489, 0.537, 0.027, 0.436, 0.536, 0.028, 0.436),
  group = c(rep("group1a", 3), rep("group1b", 3), rep("group2a", 3), rep("group2b", 3)))

数据预处理

plotdata <- data %>%
  dplyr