Пожалуйста, проверьте это: https://stackoverflow.com/help/minimal-reproducible-example
df <- data.frame(
Requirement = c("After", "Before", "After", "During"),
Documentation = c("After", "After", "Before", "During"),
Development = c("During", "Before", "Before", "After"),
Delivery = c("During", "After", "During", "Before")
)
Сначала вы должны изменить форму вашего кадра данных в длинном формате
library(tidyr)
newdf <- gather(df)
p <- ggplot(data=newdf, aes(x=key, y=value, fill = value)) +
geom_bar(stat="identity", color="black", position=position_dodge())+
theme_minimal()
p