How to produce stacked bars within grouped barchart in R [duplicate]

Question

I have the following graph

test  <- data.frame(person=c("A", "B", "C", "D", "E"), 
                    value1=c(100,150,120,80,150),     
                    value2=c(25,30,45,30,30) , 
                    value3=c(100,120,150,150,200)) 

I want to plot a grouped barchart (horizontal) for each person where one bar indicates value1 and the other bar is stack of value2 and value3. Is there a way with which I can do this using ggplot2? Can I use facets to plot these individual graphs one below the other?

Answer 1

Here is what I came up with, similar to a solution proposed here: stacked bars within grouped bar chart

1. Melt data.frame and add a new column cat

   library(reshape2) # for melt
   
   melted <- melt(test, "person")
   
   melted$cat <- ''
   melted[melted$variable == 'value1',]$cat <- "first"
   melted[melted$variable != 'value1',]$cat <- "second"
   

2. Plot a stacked chart cat vs value, faceting by person. You may need to adjust the labels to get what you want:

   ggplot(melted, aes(x = cat, y = value, fill = variable)) + 
     geom_bar(stat = 'identity', position = 'stack') + facet_grid(~ person)