润滑数据框中的年份日期

Question

如何创建十二行三列的数据框。首先到 select 3000:9999 范围内的随机年份。

三列的要求是：第一个变量（列）应该是日期（selected 年每个月的最后一天）第二个变量应该是非空且唯一的字符串（字符），第三个变量应该是 1:12 整数的随机排列？

有没有办法在 as.Date 函数中随机化年份，或者有其他更好的方法吗？我如何使用 lubridate 获取每个月的最后一天？

Answer 1

这样的怎么样

library(lubridate)

dates <- ceiling_date(date(paste(sample(3000:9999, 1), 1:12, "1", sep = "-")), "months") - 1
strings <- sample(LETTERS, 12)
numbers <- sample(1:12, 12)

df <- data.frame(dates, strings, numbers)

> print(df)
        dates strings numbers
1  9366-01-31       U       6
2  9366-02-28       J       2
3  9366-03-31       T       5
4  9366-04-30       G       1
5  9366-05-31       I       7
6  9366-06-30       L      10
7  9366-07-31       H       8
8  9366-08-31       R       3
9  9366-09-30       B      11
10 9366-10-31       V      12
11 9366-11-30       E       4
12 9366-12-31       F       9

润滑数据框中的年份日期

lubridate year date in a data frame

r

dataframe

lubridate