Início / coding / Perguntas / 79452133
Accepted
Joe
Asked: 2025-02-20 00:42:12 +0800 CST

Encontre uma data com base no conhecimento de um dia da semana e de uma data anterior na semana

  • 772

Meu objetivo é encontrar a data em um dia posterior na semana com base nas informações que já tenho, que é outra data no início da semana. Neste caso, tenho uma data de 2025-02-16 que posso usar weekdays() para descobrir que é uma segunda-feira. Agora, quero encontrar datas para todos os outros dias da semana de segunda a domingo, idealmente retornando os dias e datas em um dataframe para uso posterior (esta parte não é essencial).

theDate = "2025-02-17"
theDay = "Monday"

Meu pensamento inicial era fazer isso em um loop while como este, embora funcione, sinto que há maneiras melhores de fazer o que preciso, pois teria que repetir isso algumas vezes.

while(weekdays(as.Date(theDate))!="Sunday"){
  myDate = theDate+1
}

Meu objetivo final é algo como;

datesdf
Monday     Tuesday    Wednesday  Thursday   Friday     Saturday   Sunday
2025-02-16 2025-02-17 2025-02-18 2025-02-19 2025-02-20 2025-02-21 2025-02-22

4 respostas

  1. Best Answer

    lubridateAs funções de piso e teto do para datas ajudarão com isso:

    library(lubridate)
full_week = function(day) {
  seq.Date(
    from = floor_date(day, unit = "week"),
    to = ceiling_date(day, unit = "week", change_on_boundary = FALSE),
    by = "day"
  )
}

theDate = "2025-02-17"
full_week(ymd(theDate))
# [1] "2025-02-16" "2025-02-17" "2025-02-18" "2025-02-19" "2025-02-20" "2025-02-21" "2025-02-22"

    Isso deve ser suficiente para você começar. Se quiser colocar as datas do vetor resultante em um quadro de dados e nomear as colunas com os nomes dos dias, deixo isso com você.

    • 2

  2. 1) cut.Date Converta theDatepara a classe Date e use cutpara obter a segunda-feira anterior ou a data atual se já for segunda-feira. Adicionar 0:6 fornece todas as datas da semana. Defina os nomes usando weekdayse, em seguida, mantenha apenas datas maiores ou iguais a theDate. Se quiser todas as datas em vez das datas de theDate omita as linhas marcadas com ## . Nenhum pacote é usado.

    theDate <- "2025-02-17"

dates <- as.Date(cut(as.Date(theDate), "week")) + 0:6
dates <- setNames(dates, weekdays(dates))
next_dates <- dates[dates >= theDate]  ##
next_dates ##

##       Monday      Tuesday    Wednesday     Thursday       Friday     Saturday       Sunday 
## "2025-02-17" "2025-02-18" "2025-02-19" "2025-02-20" "2025-02-21" "2025-02-22" "2025-02-23"

    2) nextsun Podemos criar uma função nextsunpara calcular a data do próximo domingo ou hoje se for domingo e então usar seq. Isso também usa apenas a base R. A saída é como acima.

    nextsun <- function(x) 7 * ceiling(as.numeric(x - 0 + 4)/7) + as.Date(0-4)
next_dates <- seq(as.Date(theDate), nextsun(as.Date(theDate)), "day")
setNames(next_dates, weekdays(next_dates))

    Se você quiser todas as datas da semana em vez das datas de Date em diante, então

    dates <- nextsun(as.Date(theDate)) - 6:0
setNames(dates, weekdays(dates))
    • 2

  3. Você poderia criar uma pequena função de ajuda:

    dateFun <- function(ddate) {
  day_index <- c("Monday" = 2, "Tuesday" = 3, "Wednesday" = 4,
                 "Thursday" = 5, "Friday" = 6, "Saturday" = 7,
                 "Sunday" = 1)[weekdays(as.Date(ddate))]
  current_index <- as.integer(format(as.Date(ddate), "%u"))
  start <- as.Date(ddate) + (current_index - day_index)
  wk <- seq.Date(start, by = 1, length.out = 7)
  names(wk) <- weekdays(wk)
  wk
}

dateFun(theDate)

    Saída:

    #       Sunday       Monday      Tuesday    Wednesday     Thursday       Friday     Saturday 
# "2025-02-16" "2025-02-17" "2025-02-18" "2025-02-19" "2025-02-20" "2025-02-21" "2025-02-22"
    • 1

  4. Você pode adicionar uma seqinfluência à data e subsetao weekdaysbin por 1str completo.

    > week_fun <- \(theDate, start_week='Monday') {
+   data.frame(
+     date=as.Date(theDate) + seq_len(13) - 7
+   ) |>
+     transform(weekday=weekdays(date)) |> 
+     subset(cumsum(weekday == start_week) == 1)
+   
+ }
> 
> week_fun("2025-02-17")
         date   weekday
7  2025-02-17    Monday
8  2025-02-18   Tuesday
9  2025-02-19 Wednesday
10 2025-02-20  Thursday
11 2025-02-21    Friday
12 2025-02-22  Saturday
13 2025-02-23    Sunday
> week_fun("2025-02-19")
         date   weekday
5  2025-02-17    Monday
6  2025-02-18   Tuesday
7  2025-02-19 Wednesday
8  2025-02-20  Thursday
9  2025-02-21    Friday
10 2025-02-22  Saturday
11 2025-02-23    Sunday
> week_fun("2025-02-19", 'Sunday')
         date   weekday
4  2025-02-16    Sunday
5  2025-02-17    Monday
6  2025-02-18   Tuesday
7  2025-02-19 Wednesday
8  2025-02-20  Thursday
9  2025-02-21    Friday
10 2025-02-22  Saturday
    • 1

relate perguntas