Я хочу назначить каждую букву из векторов каждой дате, что приведет к дублированию дат.
date_range <- seq(from = as.Date("01/01/2015", "%d/%m/%Y"), to = as.Date("01/12/2021", "%d/%m/%Y"), by = "month")
DF <- data.frame(date = date_range, Source = map(c("a", "b", "c", "d"), rep, length.out = length(date_range)))
Это приводит к повторению букв в их собственных столбцах, что сейчас я и пытаюсь сделать. Идеальным примером будет:
date Source
1 01/01/2015 a
2 01/01/2015 b
3 01/01/2015 c
4 01/01/2015 d
5 02/01/2015 a
Дайте мне знать, если есть дополнительная информация, которую я могу предоставить!
Не используйте map
; вы можете воспользоваться векторной переработкой. Просто повторите каждый элемент date_range
4 раза.
DF <- data.frame(date = rep(date_range, each = 4),
Source = c("a", "b", "c", "d"))
head(DF)
date Source
1 2015-01-01 a
2 2015-01-01 b
3 2015-01-01 c
4 2015-01-01 d
5 2015-02-01 a
6 2015-02-01 b
7 2015-02-01 c
8 2015-02-01 d
9 2015-03-01 a
10 2015-03-01 b
Другой вариант с tidyr::separate_rows
:
library(tidyr)
data.frame(date = date_range, Source = c("a,b,c,d")) %>%
separate_rows(Source)