Как центрировать текст легенды в ggplot

У меня есть сюжет, который выглядит так:

Я использовал эти данные и код для его создания:

structure(list(zone = c("Zone 1", "Zone 2", "Zone 3", "Zone 4", 
"Zone 5", "Total", "Zone 1", "Zone 2", "Zone 3", "Zone 4", "Zone 5", 
"Total"), effort = c(3226, 4705, 2443, 131, 276, 10781, 1757, 
7293, 1631, 34.4, 442, 11157), creelyear = c("2013-2014", "2013-2014", 
"2013-2014", "2013-2014", "2013-2014", "2013-2014", "2022-2023", 
"2022-2023", "2022-2023", "2022-2023", "2022-2023", "2022-2023"
)), class = "data.frame", row.names = c(NA, -12L))

df %>% 
  ggplot(aes(x= zone, y= effort, fill=creelyear)) +
  geom_bar(position = "dodge",  stat = "identity", color = "black")  +                                                      #Select data for plotting
  scale_y_continuous(labels = comma, name = "Pressure (h/km)",
                     limits = c(0,12000), expand = c(0, 0))  +       #Change y axis name and expand so bars touch y axis
  scale_fill_manual(name = "", labels = c("2013-2014", "2022-2023"), values = c("#000000","#d11141"))+
  scale_x_discrete(limit = c("Zone 1", "Zone 2", "Zone 3", "Zone 4", "Zone 5", "Total")) +
  xlab("Zone") +                                                                  #Change name of x axis
  theme(legend.position = 'top',                                                    #Select legend position
        legend.spacing.x = unit(1.0, 'cm'),                                         #Select legend spacing value and units
        legend.background = element_blank(),
        legend.box.background = element_rect(colour = "black"),
        legend.text = element_text(margin = margin(r = 6.2, unit = "cm"), hjust = 2),
        panel.background = element_rect(fill='transparent'),                        #Set panel background to transparent for presentations
        plot.background = element_rect(fill='transparent', color = "transparent"),  #Set plot background to transparent for presentations
        panel.grid.major = element_blank(),                                         #Remove major gridlines
        panel.grid.minor = element_blank(),
        panel.border = element_rect(colour = "black", fill=NA, size=1))

Как я могу центрировать текст в легенде и оставить больше места между цветами и текстом, чтобы он выглядел более эстетично?

Попробуйте удалить hjust = 2 в настройках legend.text и посмотрите, понравится ли вам это. Если вы хотите попробовать центрировать текст, установите hjust = 0.5.

— 06.05.2024 20:59

Я должен был уточнить, что я все еще хочу, чтобы поле увеличивало длину графика, если я удалю h, это не сделает этого

— 06.05.2024 21:54

Заполните поля поля или что-то в этом роде, возможно, дополните текст пробелами. Но hjust (что означает «горизонтальное выравнивание») — это способ установить выравнивание текста.

— 06.05.2024 21:59

Как заполнить поле или текст?

— 06.05.2024 22:00

r ggplot2 plot legend

06.05.2024 20:57

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

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

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

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

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

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

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

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

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

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

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

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

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

Ответы 1

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

Вот несколько потенциально полезных вариантов для вас. legend.key.spacing.x и legend.margin — это то, что я бы использовал, чтобы попытаться достичь того, чего вы хотите, с помощью верхней легенды. Просто имейте в виду, что вы указываете точное измерение интервала, и это будет зависеть от общих размеров вашего изображения, размера графика и т. д. Первый и второй показывают расстояние между клавишами. Третий показывает комбинацию расстояния между клавишами и поля (4 числа полей — верхнее, правое, нижнее и левое заполнение). В-четвёртых, что бы я лично сделал на вашем месте.

library(ggplot2)
df <- structure(list(zone = c("Zone 1", "Zone 2", "Zone 3", "Zone 4", 
    "Zone 5", "Total", "Zone 1", "Zone 2", "Zone 3", "Zone 4", "Zone 5", 
    "Total"), effort = c(3226, 4705, 2443, 131, 276, 10781, 1757, 
        7293, 1631, 34.4, 442, 11157), creelyear = c("2013-2014", "2013-2014", 
            "2013-2014", "2013-2014", "2013-2014", "2013-2014", "2022-2023", 
            "2022-2023", "2022-2023", "2022-2023", "2022-2023", "2022-2023"
        )), class = "data.frame", row.names = c(NA, -12L))

base <- df |> 
    ggplot(aes(x= zone, y= effort, fill=creelyear)) +
    geom_bar(position = "dodge",  stat = "identity", color = "black") +
    scale_y_continuous(labels = scales::comma, name = "Pressure (h/km)",
        limits = c(0,12000), expand = c(0, 0)) +
    scale_fill_manual(labels = c("2013-2014", "2022-2023"), values = c("#000000","#d11141")) + # No need to specify name = "" if you set legend title to element_blank()
    scale_x_discrete(limit = c("Zone 1", "Zone 2", "Zone 3", "Zone 4", "Zone 5", "Total")) +
    xlab("Zone") +
    theme(panel.background = element_rect(fill='transparent'),
        plot.background = element_rect(fill='transparent', color = "transparent"),
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        panel.border = element_rect(colour = "black", fill=NA, linewidth=1))
base +
    theme(legend.position = 'top',
        legend.key.spacing.x = unit(1.5, 'cm'),
        legend.background = element_rect(colour = "black"),
        legend.title = element_blank())

base +
    theme(legend.position = 'top',
        legend.key.spacing.x = unit(10, 'cm'),
        legend.background = element_rect(colour = "black"),
        legend.title = element_blank())

base +
    theme(legend.position = 'top',
        legend.key.spacing.x = unit(7.5, 'cm'),
        legend.margin = margin(5,50,5,50),
        legend.background = element_rect(colour = "black"),
        legend.title = element_blank())

base +
    theme(legend.position = 'inside',
        legend.byrow = TRUE,
        legend.justification.inside = c(0.025, 0.975),
        legend.background = element_rect(colour = "black"),
        legend.title = element_blank())