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))))