data("eemian_pollen")
#to time series list
tsl <- tsl_initialize(
x = eemian_pollen,
name_column = "name",
time_column = "time"
)
#time series plot
if(interactive()){
tsl_plot(
tsl = tsl_subset(
tsl = tsl,
names = 1:3
),
columns = 2,
guide_columns = 2
)
}
Run the code above in your browser using DataLab