Генерировать случайную дату после даты

У меня есть такой набор данных:

set.seed(123)
date_entry<- sample(seq(as.Date('2000-01-01'), as.Date('2010-01-01'), by = "day"), 1000)
df <- data.frame( date_entry)
df <- df %>% mutate(id = row_number())

Я хочу создать случайный столбец date_end для каждого id, который больше date_entry. Например, для этих дат я хочу больше 2006 года для id=1:3 и 2002 года для id=4.

    date_entry  id
1   2006-09-28   1
2   2006-11-15   2
3   2006-02-04   3
4   2001-06-09   4
5   2000-07-13   5

r dplyr datatable dataset simulation

19.03.2022 05:23

Стоит ли изучать PHP в 2023-2024 годах?

Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...

Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией

В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.

Приемы CSS-макетирования - floats и Flexbox

Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...

Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest

В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...

Концепция локализации и ее применение в приложениях React ⚡️

Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...

Пользовательский скаляр GraphQL

Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...

Перейти к ответу Данный вопрос помечен как решенный

Ответы 3

Выберите случайное количество дней, чтобы добавить к каждому date_entry. Здесь я равномерно отбираю от 1 до 100 000 дней, чтобы добавить — выберите любой диапазон возможностей / распределения, который вы хотите.

df %>%
  mutate(date_end = date_entry + sample(1:1e5, size = n(), replace = TRUE))
#     date_entry  id   date_end
# 1   2006-09-28   1 2104-02-13
# 2   2006-11-15   2 2199-06-24
# 3   2006-02-04   3 2042-08-30
# 4   2001-06-09   4 2153-04-10
# 5   2000-07-13   5 2140-04-28
# 6   2008-03-04   6 2106-07-06
# 7   2005-01-15   7 2169-06-14
# ...

Если вы хотите убедиться, что date_end относится к следующему году (может быть, это подразумевается в вашем вопросе?), округлите его, прежде чем добавлять случайные дни:

df %>%
  mutate(date_end = 
    lubridate::ceiling_date(date_entry, unit = "year") + 
      sample(0:1e5, size = n(), replace = TRUE)
  )

19.03.2022 05:35

Ответ принят как подходящий

Создайте ежедневную последовательность между date_entry и сегодняшней датой (например, Sys.Date()), затем выберите 1 образец для date_end.

library(tidyverse)

df %>% 
  rowwise %>% 
  mutate(date_end = sample(seq(date_entry, Sys.Date(), by = "day"), 1))

Выход

   date_entry    id date_end  
   <date>     <int> <date>    
 1 2006-09-28     1 2016-01-08
 2 2006-11-15     2 2019-04-27
 3 2006-02-04     3 2016-02-17
 4 2001-06-09     4 2012-12-26
 5 2000-07-13     5 2008-11-12
 6 2008-03-04     6 2011-12-27
 7 2005-01-15     7 2015-01-04
 8 2003-02-15     8 2020-07-28
 9 2009-03-24     9 2014-11-01
10 2003-06-06    10 2004-03-22
# … with 990 more rows

19.03.2022 05:37

В функции f мы можем использовать as.POSIXlt и добавлять 1901 к элементу года, что просто дает следующий год, в котором мы создаем 1 января ^st с помощью ISOdate. Преобразовав as.Date, мы добавляем случайное целое число от нуля до определенного dmax, в результате чего желаемая случайная дата начинается не ранее следующего года.

f <- \(x, dmax=3652) with(as.POSIXlt(x), as.Date(ISOdate(year + 1901, 1, 1)) + 
                            sample(0:dmax, length(x), replace=TRUE))

set.seed(42)
transform(dat, date_end=f(date_entry))
#   date_entry id   date_end
# 1 2006-09-28  1 2014-02-21
# 2 2006-11-15  2 2013-06-26
# 3 2006-02-04  3 2010-03-22
# 4 2001-06-09  4 2005-01-02
# 5 2000-07-13  5 2004-06-05
# 6 2008-03-04  6 2017-10-23

Данные:

dat <- structure(list(date_entry = structure(c(13419, 13467, 13183, 
11482, 11151, 13942), class = "Date"), id = 1:6), class = "data.frame", row.names = c(NA, 
-6L))

19.03.2022 07:18

Другие вопросы по теме

Изменение повторяющихся значений в субъектах: R

Создайте столбец в R для сравнения значений в группе и пометьте как больше (1), меньше (0) или равно (2)

R объединить столбцы из большого фрейма данных в фрейм сводных данных

R: Подсчитать количество поездок между двумя пунктами

Неверные значения при суммировании значений в столбце по другим 3 столбцам

Процент по группе с большим количеством столбцов

Условная перекодировка большого набора переменных в NA

Агрегатная функция и часовой пояс

Как переименовать имена столбцов mutliples (с префиксом) в соответствии с соответствующим именем фрейма данных [R]

Условная фильтрация на основе сгруппированных данных в R с использованием dplyr

Генерировать случайную дату после даты

Ответы 3

Другие вопросы по теме

Похожие вопросы