Перекрестные штриховки с помощью ggplot2

Я пытаюсь построить гистограмму, и для обработок, включающих инсектициды, я хочу, чтобы там были штриховки, но код, который у меня сейчас не работает, и я не могу понять, как его исправить.

Вот часть моих данных:

dput(peak.hillmeans1[1:12,])
structure(list(Subplot_Descriptions = c("ambient", "ambient", 
"ambient", "ambient", "drought", "drought", "drought", "drought", 
"drought_insecticide", "drought_insecticide", "drought_insecticide", 
"drought_insecticide"), hill.number.type = c("H0", "H1", "H2", 
"Hinf", "H0", "H1", "H2", "Hinf", "H0", "H1", "H2", "Hinf"), 
    hill.number.mean = c(203.425, 41.2441606562857, 12.737168631955, 
    4.18742498977372, 243.933333333333, 47.6826726791051, 14.0547025275759, 
    4.50664860697016, 259.016666666667, 47.6003166273996, 13.7637529655749, 
    4.55027488751543), hill.number.sd = c(60.6538518974682, 6.51934912505994, 
    1.47899803604672, 0.379117399794485, 56.4631708874614, 9.62482790860152, 
    2.24482412930567, 0.537764198394058, 48.9080225184649, 8.0756230742672, 
    1.26719037679015, 0.478045892509355), insecticide = c("ambient_i", 
    "ambient_i", "ambient_i", "ambient_i", "ambient_i", "ambient_i", 
    "ambient_i", "ambient_i", "insecticide", "insecticide", "insecticide", 
    "insecticide")), row.names = c(NA, 12L), class = "data.frame")

Это код, который у меня есть сейчас:

library(ggplot2)
library(ggpattern)

ggplot(peak.hillmeans1, aes(x = hill.number.type, 
                            y = hill.number.mean, 
                            fill = Subplot_Descriptions)) + 
  geom_bar(stat = "identity", position = position_dodge()) +
  geom_errorbar(aes(ymin = hill.number.mean - hill.number.sd, 
                    ymax = hill.number.mean + hill.number.sd), 
                width = 0.2, position = position_dodge(0.9)) + 
  geom_bar_pattern(aes(pattern = insecticide),
                   position = position_dodge(preserve = "single"),
                   pattern = "stripe",
                   pattern_density = 0.1,
                   pattern_spacing = 0.025,
                   pattern_key_scale_factor = 0.6,
                   color = "black") +
  scale_pattern_manual(values = c(insecticide = "stripe", ambient_i = "none")) +
  scale_fill_manual(values = c("ambient" = "darkblue",
                               "drought" = "gray58",
                               "warmed" = "red2",
                               "warmed_drought" = "darkred",
                               "drought_insecticide" = "dodgerblue4", 
                               "insecticide" = "sienna1", 
                               'warmed_drought_insecticide' = "orangered", 
                               'warmed_insecticide' = "salmon")) +
  labs(title = "Mean Hill Numbers for Peak Drought", 
       x = "Hill Number", y = "Mean # of Species", fill = "Treatment") +
  theme_minimal()

r ggplot2 ggpattern

18.04.2024 01:32

Стоит ли изучать PHP в 2023-2024 годах?

Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...

Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией

В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.

Приемы CSS-макетирования - floats и Flexbox

Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...

Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest

В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...

Концепция локализации и ее применение в приложениях React ⚡️

Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...

Пользовательский скаляр GraphQL

Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...

Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

library(ggplot2)
library(ggpattern)

ggplot(peak.hillmeans1, aes(x = hill.number.type, 
                            y = hill.number.mean, 
                            fill = Subplot_Descriptions)) + 
  geom_bar_pattern(aes(pattern = insecticide),
                   stat = "identity",
                   position = position_dodge(preserve = "single"),
                   pattern_density = 0.1,
                   pattern_spacing = 0.025,
                   pattern_key_scale_factor = 0.6,
                   color = "black") +
  geom_errorbar(aes(ymin = hill.number.mean - hill.number.sd, 
                    ymax = hill.number.mean + hill.number.sd), 
                width = 0.2, position = position_dodge(0.9)) + 
  scale_pattern_manual(values=c(insecticide = 'stripe', ambient_i = 'none'),
                       guide = guide_legend(override.aes=list(fill=NA))) +
  scale_fill_manual(values = c("ambient" = "darkblue",
                               "drought" = "gray58",
                               "warmed" = "red2",
                               "warmed_drought" = "darkred",
                               "drought_insecticide" = "dodgerblue4", 
                               "insecticide" = "sienna1", 
                               'warmed_drought_insecticide' = "orangered", 
                               'warmed_insecticide' = "salmon"),
                    guide = guide_legend(override.aes = list(pattern = "none"))) +
  labs(title = "Mean Hill Numbers for Peak Drought", 
       x = "Hill Number", y = "Mean # of Species", 
       fill = "Treatment", pattern = "Insecticide") +
  theme_minimal()