p <- ggplot(df1, aes(x = time, y = value, fill = variable)) + 
  geom_bar(stat = "identity")

p