Проблема с динамическими метками, обрезающими поле в ggplotly

Question

При использовании аргумента dynamicTicks в ggplotly он удалял поля по обе стороны от интересующего меня диапазона дат.

Я попытался явно установить аргумент 'expand' в scale_x_date (), однако яполагайте, что dynamicTicks это переопределяет.

req(data.table)

plot_data = data.table(Date = seq.Date(ymd('2018-01-01'), ymd('2019-03-01'), by = 'day'))
plot_data$Value = rnorm(n = nrow(plot_data), mean = 1000, sd = 100)

p_obj = ggplot(data = plot_data, aes(x = Date, y = Value)) + 
        geom_line() +
        scale_x_date(expand = c(0.05,0))

# This gives does not give the 5% margin - however it does adjust the x axis as I zoom in
ggplotly(p_obj, dynamicTicks = T)

# This gives the 5% margin - however does not adjust the x axis as I zoom in
ggplotly(p_obj, dynamicTicks = F)

По умолчанию ggplot добавляет 5% поля по обе стороны от вашего минимального и максимального диапазона дат, однако, когда dynmaicTicks = T, это нулевое поле.