FromUser  time      shares  comments    likes
User 1    17-01-18  67      5           100
User 2    16-01-18  46      13          65
User 1    16-01-18  32      25          32
User 1    15-01-18  45      36          45
User 2    14-01-18  64      52          58

line_chart <- ggplot(dataframe, aes(x = time)) +
  geom_line(aes(y = shares), colour="blue") +
  geom_line(aes(y = comments), colour = "grey") +
  geom_line(aes(y = likes), colour = "grey") +
  ylab(label="Number of interactions") +
  xlab("Days")