geom_bar () делает бары разной ширины и полностью перекрываются

Question

У меня есть некоторые данные, которые фиксируют проценты двух разных групп за несколько периодов времени.

df <- structure(list(period = structure(c(1L, 2L, 3L, 4L, 5L, 1L, 2L, 
3L, 4L, 5L), .Label = c("FY18 Q4", "FY19 Q1", "FY19 Q2", "FY19 Q3", 
"FY19 Q4"), class = "factor"), key = c("You", "You", "You", "You", "You", 
"Me", "Me", "Me", "Me", "Me"), value = c(0.707036316472114, 
0.650424585523655, 0.629362214199759, 0.634016393442623, 0.66578947368421, 
0.509574110529601, 0.505703612591682, 0.493109917284898, 0.497505296695832, 
0.523938932489946)), row.names = c(NA, -10L), class = c("tbl_df", 
"tbl", "data.frame"))

Я хочу построить эти данные так, чтобы два столбца за период находились друг над другом, но столбцы были разной ширины. Я хочу, чтобы планка для «Я» была width=0.5, а планка для «Вы» - width=0.7. Я также хочу включить легенду, которая показывает, что представляет каждый цвет.

Если бы я хотел построить столбцы рядом, я мог бы использовать position="dodge", например:

library(ggplot2)
library(dplyr)

ggplot(data=df, aes(x=period, y=value, fill=key)) +
  geom_bar(stat="identity", position="dodge")

Я понял, что могу перекрывать бары, а затем изменять ширину каждого geom_bar() в отдельности, например:

ggplot(data=df %>% filter(key=="You"), aes(x=period, y=value, color=)) +
  geom_bar(stat="identity", fill="gray50", width=.7) +
  geom_bar(data=df %>% filter(key=="Me"), stat="identity", fill="darkblue", width=0.5)

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

Answer 1

Укажите width в основном aes (вы можете передать требуемые значения, используя ifelse):

library(ggplot2)
ggplot(df, aes(period, value, fill = key, width = ifelse(key == "You", 0.7, 0.5))) +
    geom_bar(stat = "identity") +
    scale_fill_manual(values = c("darkblue", "gray50"))