Assuming the following dataframe df:
df
df <- structure(list(`week1` = structure(c(number = 4L, area1 = 1L, area2 = 2L, price1 = 3L, price2 = 5L),