For loop in ggplot for multiple time series viz

Question

I need to make multiple individual plots of each time series (column) in my dataset:

https://github.com/rhozon/datasets/raw/master/multiple_time_series_dataset.csv

I thought of some for loop that loops through each column and plots each graph individually.

ggplot(df, aes(x = timestamp, 
               y = for loop for each column) ) +
geom_line()

How could I save my time by generating a time graph for each column of my dataset ?

Yuriy Saraykin · Answer 1 · 2021-12-10T15:46:37.840

1

Maybe that's what you're looking for

library(tidyverse)
library(lubridate)
library(plotly)
df <- vroom::vroom("https://github.com/rhozon/datasets/raw/master/multiple_time_series_dataset.csv")

df <- df %>% 
  mutate(timestamp = dmy(timestamp))

VARS <- names(df)[-1][1:3]         

map(.x = VARS,
    .f = ~ ggplot(df, aes(x = timestamp, y = .data[[.x]])) +
      geom_line()) %>%
  map(ggplotly)

edited Dec 10 '21 at 15:46

answered Dec 10 '21 at 14:15

Yuriy Saraykin

8,390
1
7
14

unfortunately I didn't work with ggplotly – Yuriy Saraykin Dec 10 '21 at 15:34
Great @Yuriy Saraykin, but how can use ggplotly here ? – Rodrigo H. Ozon Dec 10 '21 at 15:40
updated the solution – Yuriy Saraykin Dec 10 '21 at 15:47

score 1 · Accepted Answer · answered Dec 10 '21 at 15:50

You could try following code using lapply instead of for loop.

# transforming timestamp in date object
df$timestamp <- as.Date(df$timestamp, format = "%d/%m/%Y")
# create function that is used in lapply
plotlines <- function(variables){
  ggplot(df, aes(x = timestamp, y = variables)) +
  geom_line() 
}
# plot all plots with lapply
plots <- lapply(df[names(df) != "timestamp"], plotlines) # all colums except timestamp
plots

For loop in ggplot for multiple time series viz

2 Answers2