stack <- ggplot(data_melt, 
         aes(x = reorder(name, value, FUN = sum), y = value, 
             fill= variable)) + 
             geom_bar(stat = "identity", width = 0.8) + 

             # zoom in to last 10 bars on the axis
             scale_x_discrete(expand = c(0, 0.5)) +
             coord_flip(xlim = c(length(unique(data_melt$name))-9,
                                 length(unique(data_melt$name))))