weekly_to_daily_values

weeklytodaily.R

library(tidyverse)
library(ISOweek)
library(lubridate)

# Load weekly data
mydf <- read_csv("weeklydata.csv")[, -1] %>% mutate(week = ISOweek(date))

# Create daily dates
firstdate <- min(mydf$date) - 6
lastdate <- max(mydf$date)
datedf <- tibble(date = seq(firstdate, lastdate, by = "1 day"), week = ISOweek(date))

# Join the datedf with mydf
mydf <- mydf %>% select(-date)
mydf <- left_join(datedf, mydf)

# Correct values from weekly to daily
mydf <- mydf %>% mutate(value = value / 7)