In rte-antares-rpackage/flowBasedClustering: Cluster 'Flow-Based' Typical Days
library(flexdashboard)
library(rAmCharts)
library(manipulateWidget)
library(flowBasedClustering)
library(ggplot2)
library(pipeR)
library(DT)
library(shiny)
library(gridExtra)
Cluster {data-navmenu="Hour"}
Typical day, hour : `r data[idDayType == dayType]$TypicalDay`
Column {data-width=100}
Day in cluster
day <- data[idDayType == dayType]$TypicalDay
datatable(data.frame(Date = as.character(unique(data[idDayType == dayType]$dayIn[[1]][[1]]$Date))), rownames=FALSE,
# filter = 'top'
extensions = 'Buttons',
options = list(searching=F,
paging = F,
bInfo = F,
pageLength = 10000,
dom = 'Bfrtip',
buttons = list(
list(extend = 'csv',
buttons = c('csv'),
text = 'Download data',
filename = "cluster_typicalDay")
)
)
)
Column {.tabset}
Hour 1 {data-navmenu="Hour"}
hour <- 1
Column {.tabset}
Historical domains, hour 1
grid.arrange(
clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE),
nrow=2, ncol=2
)
Typical day, hour 1
tags$div(
tags$div(style = "height: 830px; width : 840px",
combineWidgets(ncol = 2,
clusterPlot(data, "BE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE,
width = "640px", height = "610px"),
clusterPlot(data, "BE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE)
)
),
align = "center")
Hour 2 {data-navmenu="Hour"}
hour <- 2
Column {.tabset}
Historical domains, hour 2
grid.arrange(
clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE),
nrow=2, ncol=2
)
Typical day, hour 2
tags$div(
tags$div(style = "height: 830px; width : 840px",
combineWidgets(ncol = 2,
clusterPlot(data, "BE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE,
width = "640px", height = "610px"),
clusterPlot(data, "BE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE)
)
),
align = "center")
Hour 3 {data-navmenu="Hour"}
hour <- 3
Column {.tabset}
Historical domains, hour 3
grid.arrange(
clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE),
nrow=2, ncol=2
)
Typical day, hour 3
tags$div(
tags$div(style = "height: 830px; width : 840px",
combineWidgets(ncol = 2,
clusterPlot(data, "BE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE,
width = "640px", height = "610px"),
clusterPlot(data, "BE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE)
)
),
align = "center")
Hour 4 {data-navmenu="Hour"}
hour <- 4
Column {.tabset}
Historical domains, hour 4
grid.arrange(
clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE),
nrow=2, ncol=2
)
Typical day, hour 4
tags$div(
tags$div(style = "height: 830px; width : 840px",
combineWidgets(ncol = 2,
clusterPlot(data, "BE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE,
width = "640px", height = "610px"),
clusterPlot(data, "BE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE)
)
),
align = "center")
Hour 5 {data-navmenu="Hour"}
hour <- 5
Column {.tabset}
Historical domains, hour 5
grid.arrange(
clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE),
nrow=2, ncol=2
)
Typical day, hour 5
tags$div(
tags$div(style = "height: 830px; width : 840px",
combineWidgets(ncol = 2,
clusterPlot(data, "BE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE,
width = "640px", height = "610px"),
clusterPlot(data, "BE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE)
)
),
align = "center")
Hour 6 {data-navmenu="Hour"}
hour <- 6
Column {.tabset}
Historical domains, hour 6
grid.arrange(
clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE),
nrow=2, ncol=2
)
Typical day, hour 6
tags$div(
tags$div(style = "height: 830px; width : 840px",
combineWidgets(ncol = 2,
clusterPlot(data, "BE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE,
width = "640px", height = "610px"),
clusterPlot(data, "BE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE)
)
),
align = "center")
Hour 7 {data-navmenu="Hour"}
hour <- 7
Column {.tabset}
Historical domains, hour 7
grid.arrange(
clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE),
nrow=2, ncol=2
)
Typical day, hour 7
tags$div(
tags$div(style = "height: 830px; width : 840px",
combineWidgets(ncol = 2,
clusterPlot(data, "BE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE,
width = "640px", height = "610px"),
clusterPlot(data, "BE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE)
)
),
align = "center")
Hour 8 {data-navmenu="Hour"}
hour <- 8
Column {.tabset}
Historical domains, hour 8
grid.arrange(
clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE),
nrow=2, ncol=2
)
Typical day, hour 8
tags$div(
tags$div(style = "height: 830px; width : 840px",
combineWidgets(ncol = 2,
clusterPlot(data, "BE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE,
width = "640px", height = "610px"),
clusterPlot(data, "BE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE)
)
),
align = "center")
Hour 9 {data-navmenu="Hour"}
hour <- 9
Column {.tabset}
Historical domains, hour 9
grid.arrange(
clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE),
nrow=2, ncol=2
)
Typical day, hour 9
tags$div(
tags$div(style = "height: 830px; width : 840px",
combineWidgets(ncol = 2,
clusterPlot(data, "BE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE,
width = "640px", height = "610px"),
clusterPlot(data, "BE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE)
)
),
align = "center")
Hour 10 {data-navmenu="Hour"}
hour <- 10
Column {.tabset}
Historical domains, hour 10
grid.arrange(
clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE),
nrow=2, ncol=2
)
Typical day, hour 10
tags$div(
tags$div(style = "height: 830px; width : 840px",
combineWidgets(ncol = 2,
clusterPlot(data, "BE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE,
width = "640px", height = "610px"),
clusterPlot(data, "BE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE)
)
),
align = "center")
Hour 11 {data-navmenu="Hour"}
hour <- 11
Column {.tabset}
Historical domains, hour 11
grid.arrange(
clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE),
nrow=2, ncol=2
)
Typical day, hour 11
tags$div(
tags$div(style = "height: 830px; width : 840px",
combineWidgets(ncol = 2,
clusterPlot(data, "BE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE,
width = "640px", height = "610px"),
clusterPlot(data, "BE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE)
)
),
align = "center")
Hour 12 {data-navmenu="Hour"}
hour <- 12
Column {.tabset}
Historical domains, hour 12
grid.arrange(
clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE),
nrow=2, ncol=2
)
Typical day, hour 12
tags$div(
tags$div(style = "height: 830px; width : 840px",
combineWidgets(ncol = 2,
clusterPlot(data, "BE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE,
width = "640px", height = "610px"),
clusterPlot(data, "BE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE)
)
),
align = "center")
Hour 13 {data-navmenu="Hour"}
hour <- 13
Column {.tabset}
Historical domains, hour 13
grid.arrange(
clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE),
nrow=2, ncol=2
)
Typical day, hour 13
tags$div(
tags$div(style = "height: 830px; width : 840px",
combineWidgets(ncol = 2,
clusterPlot(data, "BE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE,
width = "640px", height = "610px"),
clusterPlot(data, "BE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE)
)
),
align = "center")
Hour 14 {data-navmenu="Hour"}
hour <- 14
Column {.tabset}
Historical domains, hour 14
grid.arrange(
clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE),
nrow=2, ncol=2
)
Typical day, hour 14
tags$div(
tags$div(style = "height: 830px; width : 840px",
combineWidgets(ncol = 2,
clusterPlot(data, "BE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE,
width = "640px", height = "610px"),
clusterPlot(data, "BE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE)
)
),
align = "center")
Hour 15 {data-navmenu="Hour"}
hour <- 15
Column {.tabset}
Historical domains, hour 15
grid.arrange(
clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE),
nrow=2, ncol=2
)
Typical day, hour 15
tags$div(
tags$div(style = "height: 830px; width : 840px",
combineWidgets(ncol = 2,
clusterPlot(data, "BE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE,
width = "640px", height = "610px"),
clusterPlot(data, "BE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE)
)
),
align = "center")
Hour 16 {data-navmenu="Hour"}
hour <- 16
Column {.tabset}
Historical domains, hour 16
grid.arrange(
clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE),
nrow=2, ncol=2
)
Typical day, hour 16
tags$div(
tags$div(style = "height: 830px; width : 840px",
combineWidgets(ncol = 2,
clusterPlot(data, "BE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE,
width = "640px", height = "610px"),
clusterPlot(data, "BE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE)
)
),
align = "center")
Hour 17 {data-navmenu="Hour"}
hour <- 17
Column {.tabset}
Historical domains, hour 17
grid.arrange(
clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE),
nrow=2, ncol=2
)
Typical day, hour 17
tags$div(
tags$div(style = "height: 830px; width : 840px",
combineWidgets(ncol = 2,
clusterPlot(data, "BE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE,
width = "640px", height = "610px"),
clusterPlot(data, "BE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE)
)
),
align = "center")
Hour 18 {data-navmenu="Hour"}
hour <- 18
Column {.tabset}
Historical domains, hour 18
grid.arrange(
clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE),
nrow=2, ncol=2
)
Typical day, hour 18
tags$div(
tags$div(style = "height: 830px; width : 840px",
combineWidgets(ncol = 2,
clusterPlot(data, "BE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE,
width = "640px", height = "610px"),
clusterPlot(data, "BE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE)
)
),
align = "center")
Hour 19 {data-navmenu="Hour"}
hour <- 19
Column {.tabset}
Historical domains, hour 19
grid.arrange(
clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE),
nrow=2, ncol=2
)
Typical day, hour 19
tags$div(
tags$div(style = "height: 830px; width : 840px",
combineWidgets(ncol = 2,
clusterPlot(data, "BE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE,
width = "640px", height = "610px"),
clusterPlot(data, "BE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE)
)
),
align = "center")
Hour 20 {data-navmenu="Hour"}
hour <- 20
Column {.tabset}
Historical domains, hour 20
grid.arrange(
clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE),
nrow=2, ncol=2
)
Typical day, hour 20
tags$div(
tags$div(style = "height: 830px; width : 840px",
combineWidgets(ncol = 2,
clusterPlot(data, "BE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE,
width = "640px", height = "610px"),
clusterPlot(data, "BE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE)
)
),
align = "center")
Hour 21 {data-navmenu="Hour"}
hour <- 21
Column {.tabset}
Historical domains, hour 21
grid.arrange(
clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE),
nrow=2, ncol=2
)
Typical day, hour 21
tags$div(
tags$div(style = "height: 830px; width : 840px",
combineWidgets(ncol = 2,
clusterPlot(data, "BE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE,
width = "640px", height = "610px"),
clusterPlot(data, "BE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE)
)
),
align = "center")
Hour 22 {data-navmenu="Hour"}
hour <- 22
Column {.tabset}
Historical domains, hour 22
grid.arrange(
clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE),
nrow=2, ncol=2
)
Typical day, hour 22
tags$div(
tags$div(style = "height: 830px; width : 840px",
combineWidgets(ncol = 2,
clusterPlot(data, "BE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE,
width = "640px", height = "610px"),
clusterPlot(data, "BE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE)
)
),
align = "center")
Hour 23 {data-navmenu="Hour"}
hour <- 23
Column {.tabset}
Historical domains, hour 23
grid.arrange(
clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE),
nrow=2, ncol=2
)
Typical day, hour 23
tags$div(
tags$div(style = "height: 830px; width : 840px",
combineWidgets(ncol = 2,
clusterPlot(data, "BE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE,
width = "640px", height = "610px"),
clusterPlot(data, "BE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE)
)
),
align = "center")
Hour 24 {data-navmenu="Hour"}
hour <- 24
Column {.tabset}
Historical domains, hour 24
grid.arrange(
clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE),
nrow=2, ncol=2
)
Typical day, hour 24
tags$div(
tags$div(style = "height: 830px; width : 840px",
combineWidgets(ncol = 2,
clusterPlot(data, "BE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE,
width = "640px", height = "610px"),
clusterPlot(data, "BE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "FR", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE),
clusterPlot(data, "DE", "NL", hour, dayType,
ggplot = FALSE, typicalDayOnly = TRUE)
)
),
align = "center")
rte-antares-rpackage/flowBasedClustering documentation built on Nov. 21, 2020, 11:21 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
library(flexdashboard) library(rAmCharts) library(manipulateWidget) library(flowBasedClustering) library(ggplot2) library(pipeR) library(DT) library(shiny) library(gridExtra)
Cluster {data-navmenu="Hour"}
Typical day, hour : `r data[idDayType == dayType]$TypicalDay`
Column {data-width=100}
Day in cluster
day <- data[idDayType == dayType]$TypicalDay datatable(data.frame(Date = as.character(unique(data[idDayType == dayType]$dayIn[[1]][[1]]$Date))), rownames=FALSE, # filter = 'top' extensions = 'Buttons', options = list(searching=F, paging = F, bInfo = F, pageLength = 10000, dom = 'Bfrtip', buttons = list( list(extend = 'csv', buttons = c('csv'), text = 'Download data', filename = "cluster_typicalDay") ) ) )
Column {.tabset}
Hour 1 {data-navmenu="Hour"}
hour <- 1
Column {.tabset}
Historical domains, hour 1
grid.arrange( clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE), nrow=2, ncol=2 )
Typical day, hour 1
tags$div( tags$div(style = "height: 830px; width : 840px", combineWidgets(ncol = 2, clusterPlot(data, "BE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE, width = "640px", height = "610px"), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE) ) ), align = "center")
Hour 2 {data-navmenu="Hour"}
hour <- 2
Column {.tabset}
Historical domains, hour 2
grid.arrange( clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE), nrow=2, ncol=2 )
Typical day, hour 2
tags$div( tags$div(style = "height: 830px; width : 840px", combineWidgets(ncol = 2, clusterPlot(data, "BE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE, width = "640px", height = "610px"), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE) ) ), align = "center")
Hour 3 {data-navmenu="Hour"}
hour <- 3
Column {.tabset}
Historical domains, hour 3
grid.arrange( clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE), nrow=2, ncol=2 )
Typical day, hour 3
tags$div( tags$div(style = "height: 830px; width : 840px", combineWidgets(ncol = 2, clusterPlot(data, "BE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE, width = "640px", height = "610px"), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE) ) ), align = "center")
Hour 4 {data-navmenu="Hour"}
hour <- 4
Column {.tabset}
Historical domains, hour 4
grid.arrange( clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE), nrow=2, ncol=2 )
Typical day, hour 4
tags$div( tags$div(style = "height: 830px; width : 840px", combineWidgets(ncol = 2, clusterPlot(data, "BE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE, width = "640px", height = "610px"), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE) ) ), align = "center")
Hour 5 {data-navmenu="Hour"}
hour <- 5
Column {.tabset}
Historical domains, hour 5
grid.arrange( clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE), nrow=2, ncol=2 )
Typical day, hour 5
tags$div( tags$div(style = "height: 830px; width : 840px", combineWidgets(ncol = 2, clusterPlot(data, "BE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE, width = "640px", height = "610px"), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE) ) ), align = "center")
Hour 6 {data-navmenu="Hour"}
hour <- 6
Column {.tabset}
Historical domains, hour 6
grid.arrange( clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE), nrow=2, ncol=2 )
Typical day, hour 6
tags$div( tags$div(style = "height: 830px; width : 840px", combineWidgets(ncol = 2, clusterPlot(data, "BE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE, width = "640px", height = "610px"), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE) ) ), align = "center")
Hour 7 {data-navmenu="Hour"}
hour <- 7
Column {.tabset}
Historical domains, hour 7
grid.arrange( clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE), nrow=2, ncol=2 )
Typical day, hour 7
tags$div( tags$div(style = "height: 830px; width : 840px", combineWidgets(ncol = 2, clusterPlot(data, "BE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE, width = "640px", height = "610px"), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE) ) ), align = "center")
Hour 8 {data-navmenu="Hour"}
hour <- 8
Column {.tabset}
Historical domains, hour 8
grid.arrange( clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE), nrow=2, ncol=2 )
Typical day, hour 8
tags$div( tags$div(style = "height: 830px; width : 840px", combineWidgets(ncol = 2, clusterPlot(data, "BE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE, width = "640px", height = "610px"), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE) ) ), align = "center")
Hour 9 {data-navmenu="Hour"}
hour <- 9
Column {.tabset}
Historical domains, hour 9
grid.arrange( clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE), nrow=2, ncol=2 )
Typical day, hour 9
tags$div( tags$div(style = "height: 830px; width : 840px", combineWidgets(ncol = 2, clusterPlot(data, "BE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE, width = "640px", height = "610px"), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE) ) ), align = "center")
Hour 10 {data-navmenu="Hour"}
hour <- 10
Column {.tabset}
Historical domains, hour 10
grid.arrange( clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE), nrow=2, ncol=2 )
Typical day, hour 10
tags$div( tags$div(style = "height: 830px; width : 840px", combineWidgets(ncol = 2, clusterPlot(data, "BE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE, width = "640px", height = "610px"), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE) ) ), align = "center")
Hour 11 {data-navmenu="Hour"}
hour <- 11
Column {.tabset}
Historical domains, hour 11
grid.arrange( clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE), nrow=2, ncol=2 )
Typical day, hour 11
tags$div( tags$div(style = "height: 830px; width : 840px", combineWidgets(ncol = 2, clusterPlot(data, "BE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE, width = "640px", height = "610px"), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE) ) ), align = "center")
Hour 12 {data-navmenu="Hour"}
hour <- 12
Column {.tabset}
Historical domains, hour 12
grid.arrange( clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE), nrow=2, ncol=2 )
Typical day, hour 12
tags$div( tags$div(style = "height: 830px; width : 840px", combineWidgets(ncol = 2, clusterPlot(data, "BE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE, width = "640px", height = "610px"), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE) ) ), align = "center")
Hour 13 {data-navmenu="Hour"}
hour <- 13
Column {.tabset}
Historical domains, hour 13
grid.arrange( clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE), nrow=2, ncol=2 )
Typical day, hour 13
tags$div( tags$div(style = "height: 830px; width : 840px", combineWidgets(ncol = 2, clusterPlot(data, "BE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE, width = "640px", height = "610px"), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE) ) ), align = "center")
Hour 14 {data-navmenu="Hour"}
hour <- 14
Column {.tabset}
Historical domains, hour 14
grid.arrange( clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE), nrow=2, ncol=2 )
Typical day, hour 14
tags$div( tags$div(style = "height: 830px; width : 840px", combineWidgets(ncol = 2, clusterPlot(data, "BE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE, width = "640px", height = "610px"), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE) ) ), align = "center")
Hour 15 {data-navmenu="Hour"}
hour <- 15
Column {.tabset}
Historical domains, hour 15
grid.arrange( clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE), nrow=2, ncol=2 )
Typical day, hour 15
tags$div( tags$div(style = "height: 830px; width : 840px", combineWidgets(ncol = 2, clusterPlot(data, "BE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE, width = "640px", height = "610px"), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE) ) ), align = "center")
Hour 16 {data-navmenu="Hour"}
hour <- 16
Column {.tabset}
Historical domains, hour 16
grid.arrange( clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE), nrow=2, ncol=2 )
Typical day, hour 16
tags$div( tags$div(style = "height: 830px; width : 840px", combineWidgets(ncol = 2, clusterPlot(data, "BE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE, width = "640px", height = "610px"), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE) ) ), align = "center")
Hour 17 {data-navmenu="Hour"}
hour <- 17
Column {.tabset}
Historical domains, hour 17
grid.arrange( clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE), nrow=2, ncol=2 )
Typical day, hour 17
tags$div( tags$div(style = "height: 830px; width : 840px", combineWidgets(ncol = 2, clusterPlot(data, "BE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE, width = "640px", height = "610px"), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE) ) ), align = "center")
Hour 18 {data-navmenu="Hour"}
hour <- 18
Column {.tabset}
Historical domains, hour 18
grid.arrange( clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE), nrow=2, ncol=2 )
Typical day, hour 18
tags$div( tags$div(style = "height: 830px; width : 840px", combineWidgets(ncol = 2, clusterPlot(data, "BE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE, width = "640px", height = "610px"), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE) ) ), align = "center")
Hour 19 {data-navmenu="Hour"}
hour <- 19
Column {.tabset}
Historical domains, hour 19
grid.arrange( clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE), nrow=2, ncol=2 )
Typical day, hour 19
tags$div( tags$div(style = "height: 830px; width : 840px", combineWidgets(ncol = 2, clusterPlot(data, "BE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE, width = "640px", height = "610px"), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE) ) ), align = "center")
Hour 20 {data-navmenu="Hour"}
hour <- 20
Column {.tabset}
Historical domains, hour 20
grid.arrange( clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE), nrow=2, ncol=2 )
Typical day, hour 20
tags$div( tags$div(style = "height: 830px; width : 840px", combineWidgets(ncol = 2, clusterPlot(data, "BE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE, width = "640px", height = "610px"), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE) ) ), align = "center")
Hour 21 {data-navmenu="Hour"}
hour <- 21
Column {.tabset}
Historical domains, hour 21
grid.arrange( clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE), nrow=2, ncol=2 )
Typical day, hour 21
tags$div( tags$div(style = "height: 830px; width : 840px", combineWidgets(ncol = 2, clusterPlot(data, "BE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE, width = "640px", height = "610px"), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE) ) ), align = "center")
Hour 22 {data-navmenu="Hour"}
hour <- 22
Column {.tabset}
Historical domains, hour 22
grid.arrange( clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE), nrow=2, ncol=2 )
Typical day, hour 22
tags$div( tags$div(style = "height: 830px; width : 840px", combineWidgets(ncol = 2, clusterPlot(data, "BE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE, width = "640px", height = "610px"), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE) ) ), align = "center")
Hour 23 {data-navmenu="Hour"}
hour <- 23
Column {.tabset}
Historical domains, hour 23
grid.arrange( clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE), nrow=2, ncol=2 )
Typical day, hour 23
tags$div( tags$div(style = "height: 830px; width : 840px", combineWidgets(ncol = 2, clusterPlot(data, "BE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE, width = "640px", height = "610px"), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE) ) ), align = "center")
Hour 24 {data-navmenu="Hour"}
hour <- 24
Column {.tabset}
Historical domains, hour 24
grid.arrange( clusterPlot(data, "BE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = TRUE), nrow=2, ncol=2 )
Typical day, hour 24
tags$div( tags$div(style = "height: 830px; width : 840px", combineWidgets(ncol = 2, clusterPlot(data, "BE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE, width = "640px", height = "610px"), clusterPlot(data, "BE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "FR", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE), clusterPlot(data, "DE", "NL", hour, dayType, ggplot = FALSE, typicalDayOnly = TRUE) ) ), align = "center")
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.