Если бы у меня был пример dput()
, я бы смог его протестировать, но я думаю, что это должно сработать:
library(dplyr)
library(lubridate)
library(tidyr)
doge <- doge %>%
mutate(year = year(timestamp), month = month(timestamp), week = week(timestamp)) %>%
unite_("date", c("year", "month", "week"), sep ="-") %>%
group_by(date) %>%
summarise(mean_price_usd = mean(price_usd, na.rm = TRUE))