Блог

Я был бы очень признателен за помощь в создании гистограммы с накоплением для одного значения x. Я добился некоторого успеха в ее создании, однако я хотел бы заменить легенду в правой части графика моей переменной s и сделать цвет более четким. См. Изображение для справки.

 d <- c(287, 76, 237, 44, 249, 149, 3)

s <- c('Allied servicemen reached Spain through the Pyrenees', 
'Civilians reached Spain through the Pyrenees', 
'Airmen who were arrested during their evasion', 
'Airmen who were handed over to other evasion lines', 
'Airmen who were kept in camps of the "Operation Marathon" in France and Belgium', 
'Airmen who were hidden by their lodgers until Liberation', 
'Airmen who were killed during their evasion')

t <- c('Comete Line','Comete Line','Comete Line',
'Comete Line','Comete Line','Comete Line','Comete Line')

Comete_Line <- data.frame(d,s,t)

Comete_Line <- Comete_Line[order(Comete_Line$d),]

Comete_Line.TB %>% 
ggplot(aes(x = t, y = d, fill = d))   
geom_bar(stat = "identity", width = 0.2)
  

Я думаю, вам просто нужно:

     Comete_Line %>% 
      ggplot(aes(x = t, y = d, fill = s))   
      geom_bar(stat = "identity", width = 0.2)