Как сделать шахматную гистограмму с тремя факторами?

Question

Мне было интересно, как я могу составить гистограмму в R, которая будет иметь три разных фактора на каждый год? Я хотел бы сделать эти три фактора «перекрывающимися», но немного пошатнулся и добавить процентные показатели в бары. Я искал в Интернете ответ, но я не смог его найти.

Это то, что я ищу:

Я надеюсь, что картина графика помогает уточнить, что я после.

Answer 1

Я поздно, но так как это быстро ...

library(ggplot2) 
df <- data.frame(year = rep(2010:2014, 3), group = rep(LETTERS[24:26], 5), value = rep(c(34, 41, 59), 5)) 

ggplot(df, aes(x = factor(year), y = value, fill = group)) + 
    geom_col(position = position_dodge(width = -0.5)) + 
    geom_text(aes(y = value - 2, label = value), position = position_dodge(w = -0.5)) 

Answer 2

library(ggplot2) 
df <- data.frame(year = c(2014, 2014, 2014, 2015, 2015, 2015), gr = c("x", "y", "z", "x", "y", "z"), val = c(100, 300, 400, 10, 20, 30)) 
ggplot(aes(x = factor(year), group = gr, y = val, fill = gr), data = df) + geom_bar(stat = "identity", position = "dodge")