multiple graphs of each time series [closed]

Answer 1

Another option is to convert from wide to long format then plot everything in the same graph. Below is the code that use the DF posted by @G. Grothendieck

library(tidyverse)
library(scales)

# Convert Time from factor to Date/Time 
DF$Time <- as.POSIXct(DF$Time)

# Convert from wide to long format (`tidyr::gather`)
df_long <- DF %>% gather(key = "user", value = "value", -Time)

# Plot all together, color based on User
# We use pretty_breaks() from scales package for automatic Date/Time labeling
ggplot(df_long, aes(Time, value, group = user, color = user)) +
  geom_line() +
  scale_x_datetime(breaks = pretty_breaks()) +
  theme_bw()

Edit: to plot each user in a separated panel, use facet_grid

ggplot(df_long, aes(Time, value, group = user, color = user)) +
  geom_line() +
  scale_x_datetime(breaks = pretty_breaks()) +
  theme_bw() +
  facet_grid(user ~ .)