Как удалить фон ggplot2 и обрезать поля вокруг geom_col

Question

Я хочу создать «временную шкалу», используя столбчатую диаграмму с накоплением. То, что я хочу сделать, это удалить весь фон, чтобы у меня была только панель и ничего больше. Я застрял на белом фоне графика.

Вот минимальный пример:

mytheme <-  theme(
        axis.title.x=element_blank(),
        axis.text.x=element_blank(),
        axis.ticks.x=element_blank(),
        axis.title.y=element_blank(),
        axis.text.y=element_blank(),
        axis.ticks.y=element_blank(),
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        #panel.background = element_blank()
)

Name <- c("One", "Two", "Three", "Four")
value <- c(2, 5, 7, 8)

df <-  data.frame(Name, value)

ggplot(df)+
  aes(x= "Name", y = value,  fill = Name) +
  geom_col(width = .1, show.legend = FALSE) + 
  xlab("") + ylab("") +
  coord_flip() +
  mytheme

давая мне бар, но на большом фоне .

(Я закомментировал panel.background только для того, чтобы показать экстент фона. Я хочу «обрезать» этот белый фон, чтобы у меня была только полоса или небольшое пространство вокруг полосы. Помогите, пожалуйста.

Обновление

После предложения @Gregor я изменил код ggplot следующим образом:

ggplot(df)+
  aes(x= "Name", y = value,  fill = Name) +
  geom_col(width = .1, show.legend = FALSE) + 
  xlab("") + ylab("") +
  coord_flip(expand = FALSE) +
  mytheme

В результате получается очень широкая полоса (высокая на странице, потому что я использовалordin_flip):

Все, что мне нужно сделать сейчас, это уменьшить высоту (как видно на рисунке), чтобы сделать ее больше похожей на мою исходную полосу. Как я могу это изменить?

Решение

Я наконец нашел простое решение. Поскольку я использую R Markdown, я использовал:

```{r, ..., fig.width=4, fig.height=.3}

в преамбуле к вставленной фигуре. Не лучшее решение, но оно работает. Спасибо всем.

Answer 1

Это очень интересный вопрос.Вот один из способов подойти к этому: вместо использования вертикально расположенного столбчатого графика и последующего переворачивания его по горизонтали, мы можем просто создать «обычный» график, где столбцы располагаются рядом друг с другом и имеют одинаковую высоту, но каждый столбец имеетпеременная ширина, которая равна продолжительности желаемых интервалов времени.Мы можем «обрезать» фон, используя coord_fixed(expand = FALSE).

. Вероятно, будет лучше, если мы напрямую укажем положение оси x на ggplot(), чтобы мы могли использовать их для размещения меток (более подробно очто позже) - вот как расположить интервалы для вашей временной шкалы:

Пусть X _i обозначает расстояние (вдоль оси x) от начала координат доцентр каждого временного интервала i .Для каждого интервала i , X _i представляет собой сумму длин предыдущих интервалов времени X ₀ : X _{i - 1} , плюс половина длины X _i .Мы можем сделать так, чтобы R автоматически генерировал эти значения для нас, добавив столбец, который использует накопленную накопленную сумму, как вы увидите ниже.

Я оставил panel.background = element_blank() закомментированным, чтобы вы могли подтвердить, что мы делаемдействительно получить «только временную шкалу», без фона.

Код:

library("tidyverse")

mytheme <-  theme(
  axis.title.x=element_blank(),
  axis.text.x=element_blank(),
  axis.ticks.x=element_blank(),
  axis.title.y=element_blank(),
  axis.text.y=element_blank(),
  axis.ticks.y=element_blank(),
  panel.grid.major = element_blank(),
  panel.grid.minor = element_blank(),
  #panel.background = element_blank()
)

Name <- c("One", "Two", "Three", "Four")
Value <- c(2, 5, 7, 8)

df <-  data.frame(Name, Value) %>%
  mutate(Name = factor(Name, levels = Name),
         xPos = cumsum(lag(Value, default = 0)) + Value/2) # calculate interval position

ggplot(data = df, aes(x = xPos, y = 1, width = Value, fill = Name)) +
  geom_col(position = "identity",
           show.legend = FALSE) +
  geom_text(aes(label = Name),
            position = position_fill(vjust = 0.5)) +
  coord_fixed(expand = FALSE) + # crop background around geom_col()
  mytheme

Вывод:

Почему это работает:

Начиная с ggplot2 версии 3.1.0, мы изначально оказались между молотом и наковальней: если мы решим использовать coord_flip(), мы можем получить горизонтальную временную шкалу, но мыне может (легко) изменить размеры нашей области построения, чтобы получить нужные размеры.Если вместо этого мы используем coord_fixed(expand = FALSE), у нас есть желаемые поля рисования, но мы не можем легко сделать горизонтальный «стек» баров, так как coord_fixed() несовместим с coord_flip().

Есть интересный аргументназывается position_dodge2(), который вы можете использовать с geom_col() для размещения стержней переменной ширины рядом друг с другом.Если вы установите padding = 0, вы можете получить график, который выглядит очень похоже на то, что вы видите выше, но фактические "x-координаты" каждого интервала будут начинаться с левого края каждого бара, в отличие от центра.

Это делает центрирование текстовых меток очень трудным, поскольку нам нужно было бы отрегулировать их расположение в зависимости от ширины каждого интервала, но параметры ggplot2, такие как position_nudge(), позволяют нам регулировать только все этикеток на некоторое постоянное количество.Следовательно, мы указываем центр каждого временного интервала напрямую.Надеемся, что по мере улучшения ggplot2 мы увидим, что такие опции, как position_nudge(), расширят функциональные возможности для более простого решения этой проблемы!