подскажите как для такой структуры в data.table посчитать накопительную сумму по месяцам по каждому customer_id ?

чтоб в итоге вышло

если не путаю, то должно быть так

dt[, var := cumsum(status_date_month), by = customer_id]

поправил

Спасибо.

А ты напрямую к БД подключал визуализацию?

нет, читал всю БД целиком (не очень большая была) и пересчитывал/перерисовывал что нужно

Тогда перефразирую вопрос. При загрузке страницы в shiny, сервер посылал запрос в БД?

Добрый вечер
Подскажите, пожалуйста, как сделать, чтобы ггплот расширял оси автоматически под сдвинутый текvст? Пример на рисунке. Подписи к столбцам сдвигал через `vjust` в `geom_text`. Я могу вручную прописать `ylim`, но графиков много и каждому такое прописывать очень неудобно

сделать ylim в %% от размера, чтобы место оставалось всегда/

можно подобрать высоту, требуемую, чтобы уместить числа, и прибавляя ее к максимальной высоте столбца на графике, указывать в ylim()



library(tidyverse)

fontsize = 4 # кегль цифр на графиках
linesize = 3 # вручную подобранный множитель

df <- data.frame(
  a = rep(c("a", "b", "c"), times = 7),
  b = rep(letters[1:7], each = 3),
  c = runif(21, max = 100)
)

df %>% 
ggplot(aes(x = b, y = c, fill = a, label = round(c, 3)))+ 
  geom_bar(position = "dodge", stat = "identity")+
  geom_text(position = position_dodge(width = 0.8), angle = 90, hjust = -0.1, size = fontsize)+
  ylim(c(NA, max(df$c) + fontsize*linesize)) # предлагаемый костыль

library(tidyverse)

fontsize = 4 # кегль цифр на графиках
linesize = 3 # вручную подобранный множитель

df <- data.frame(
  a = rep(c("a", "b", "c"), times = 7),
  b = rep(letters[1:7], each = 3),
  c = runif(21, max = 100)
)

df %>% 
ggplot(aes(x = b, y = c, fill = a, label = round(c, 3)))+ 
  geom_bar(position = "dodge", stat = "identity")+
  geom_text(position = position_dodge(width = 0.8), angle = 90, hjust = -0.1, size = fontsize)+
  ylim(c(NA, max(df$c) + fontsize*linesize)) # предлагаемый костыль

Ого вот это ничего себе

Благодарю за помощь!

Рад! Но наверняка есть способ покрасивее

да, конеяно, при каждом запуске

потом была мысль отдельную кнопку сделать для обновления, но и без этого норм

+ coord_flip()

если подписи оставлять к барам, не надо издеваться над теми, кто будет изучать этот график

++