get_occupancy: Time-series EV occupancy

In mcanigueral/evsim: Electric Vehicle Charging Sessions Simulation

Time-series EV occupancy

Description

Obtain time-series of simultaneously connected EVs from sessions data set

Usage

get_occupancy(
  sessions,
  dttm_seq = NULL,
  by = "Profile",
  resolution = 15,
  mc.cores = 1
)

Arguments

sessions	tibble, sessions data set in standard format marked by {evprof} package
dttm_seq	sequence of datetime values that will be the datetime variable of the returned time-series data frame.
by	character, being 'Profile' or 'Session'. When by='Profile' each column corresponds to an EV user profile.
resolution	integer, time resolution (in minutes) of the sessions datetime variables. If dttm_seq is defined this parameter is ignored.
mc.cores	integer, number of cores to use. Must be at least one, and parallelization requires at least two cores.

Details

Note that the time resolution of variable ConnectionStartDateTime must coincide with resolution parameter. For example, if a charging session in sessions starts charging at 15:32 and resolution = 15, the load of this session won't be computed. To solve this, the function automatically aligns charging sessions' start time according to resolution, so following the previous example the session would start at 15:30.

Value

time-series tibble with first column of type datetime

Examples

library(lubridate)
library(dplyr)

# Get occupancy with the complete datetime sequence from the sessions
sessions <- head(evsim::california_ev_sessions, 100)
connections <- get_occupancy(
  sessions,
  by = "ChargingStation",
  resolution = 60
)
connections %>%
  plot_ts(ylab = "Vehicles connected", legend_show = "onmouseover")

# Get occupancy with a custom datetime sequence and resolution of 15 minutes
sessions <- head(evsim::california_ev_sessions_profiles, 100)
dttm_seq <- seq.POSIXt(
  as_datetime(dmy(08102018)) %>% force_tz(tz(sessions$ConnectionStartDateTime)),
  as_datetime(dmy(11102018)) %>% force_tz(tz(sessions$ConnectionStartDateTime)),
  by = "15 mins"
)
connections <- get_occupancy(
  sessions,
  dttm_seq = dttm_seq,
  by = "Profile"
)
connections %>%
  plot_ts(ylab = "Vehicles connected", legend_show = "onmouseover")

mcanigueral/evsim documentation built on April 5, 2025, 3:05 a.m.