Как выровнять текст заголовка с левой полосой на гистограмме?

Я пытаюсь выровнять текст заголовка на гистограмме, чтобы он начинался с того же вертикального поля, что и левая полоса.

library(ggplot2)
library(tibble)

my_df <- 
  tibble::tribble(~response, ~estimate,
                  "little_bit", 0.353477,
                  "no", 0.307639,
                  "very", 0.338883)

ggplot(my_df, aes(x = reorder(response, -estimate), y = estimate)) +
  geom_bar(stat = "identity", width = 0.9, fill = "royalblue") +
  ggtitle("do you like swimming with fish?") +
  ylab("") +
  labs(caption = "this is my caption") +
  theme_minimal() +
  theme(
    axis.line.x = element_blank(),
    axis.line.y = element_blank(),
    axis.text.y = element_blank(),
    panel.grid  = element_blank(),
    panel.grid.major=element_blank(),
    plot.title = element_text(hjust = 0.5, size = 26),
    axis.text.x = element_text(angle = 0, size = 14, margin = margin(t = 0, r = 20, b = 0, l = 0)),
    axis.title.x = element_blank(),
    legend.title = element_blank(),
    plot.caption = element_text(hjust = 0, size = 8),
    plot.caption.position = "plot") ## <-- I thought this would help, but no...

Есть ли способ выровнять заголовок, как показано ниже?

r ggplot2

21.12.2020 23:29

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

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

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

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

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

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

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

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

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

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

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

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

284

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

Ответы 2

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

Чтобы получить желаемый результат, установите положение подписи на "panel" и удалите расширение шкалы x:

library(ggplot2)
library(tibble)

my_df <- 
  tibble::tribble(~response, ~estimate,
                  "little_bit", 0.353477,
                  "no", 0.307639,
                  "very", 0.338883)

ggplot(my_df, aes(x = reorder(response, -estimate), y = estimate)) +
  geom_bar(stat = "identity", width = 0.9, fill = "royalblue") +
  ggtitle("do you like swimming with fish?") +
  scale_x_discrete(expand = c(0, 0)) +
  labs(caption = "this is my caption", y = NULL) +
  theme_minimal() +
  theme(
    axis.line.x = element_blank(),
    axis.line.y = element_blank(),
    axis.text.y = element_blank(),
    panel.grid  = element_blank(),
    panel.grid.major=element_blank(),
    plot.title = element_text(hjust = 0.5, size = 26),
    axis.text.x = element_text(angle = 0, size = 14, margin = margin(t = 0, r = 20, b = 0, l = 0)),
    axis.title.x = element_blank(),
    legend.title = element_blank(),
    plot.caption = element_text(hjust = 0, size = 8),
    plot.caption.position = "panel")

Спасибо! Но что, если мне нужно больше отступов на полях?

— 22.12.2020 06:41

неважно. решил это с theme(plot.margin = margin(r = , l = ))

— 22.12.2020 06:47

(: Это был бы один вариант, который я бы предложил. Другой: axis.text.y = element_text(color = "transparent", margin = margin(t = 0, r = 0, b = 0, l = 20). Best S.

— 22.12.2020 06:49

21.12.2020 23:44

Или очень распространенным обходным решением для таких случаев будет аннотирование за пределами области графика. (Я использую annotate(geom = "text",...) — вы также можете использовать geom_text, но для этого вам понадобится только фрейм данных.)

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

library(ggplot2)

my_df <-
  tibble::tribble(  ~response, ~estimate,  "little_bit", 0.353477,  "no", 0.307639,  "very", 0.338883)

barwidth <- 0.9

ggplot(my_df, aes(x = reorder(response, -estimate), y = estimate)) +
  geom_bar(stat = "identity", width = barwidth, fill = "royalblue") +
  annotate(
    geom = "text",
    x = 1 - barwidth / 2, hjust = 0, # that's the trick 
    y = -0.1, # play around with y. you could also set it relativ to your bar heights
    label = "this is my caption"
  ) +
  coord_cartesian(clip = "off", ylim = c(0, NA)) + # necessary to set axis limits and clip off to annotate beyond
  ggtitle("do you like swimming with fish?") +
  theme_minimal() +
  theme(plot.margin = margin(b = 1, unit = "inch")) # margin randomly chosen. unfortunately also necessary