fork download
copy 
  1. library(data.table)
  2. set.seed(20220510)
  3. DT <- data.table(Year = rep(1957:1960, rep(12, 4)),
  4.                  Month = month.abb,
  5.                  Prod = round(runif(48, min = 1000, max = 4000)))
  6. DT[, Date := paste(Year, sprintf("%02.f", match(Month, month.abb)))]
  7. DT[, Date_abbr := paste(Year, Month)]
  8. DT
Success #stdin #stdout 0.33s 43180KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
    Year Month Prod    Date Date_abbr
 1: 1957   Jan 3806 1957 01  1957 Jan
 2: 1957   Feb 1471 1957 02  1957 Feb
 3: 1957   Mar 2524 1957 03  1957 Mar
 4: 1957   Apr 3077 1957 04  1957 Apr
 5: 1957   May 2739 1957 05  1957 May
 6: 1957   Jun 3276 1957 06  1957 Jun
 7: 1957   Jul 1652 1957 07  1957 Jul
 8: 1957   Aug 3794 1957 08  1957 Aug
 9: 1957   Sep 3183 1957 09  1957 Sep
10: 1957   Oct 3627 1957 10  1957 Oct
11: 1957   Nov 2881 1957 11  1957 Nov
12: 1957   Dec 1124 1957 12  1957 Dec
13: 1958   Jan 3190 1958 01  1958 Jan
14: 1958   Feb 3208 1958 02  1958 Feb
15: 1958   Mar 3373 1958 03  1958 Mar
16: 1958   Apr 3512 1958 04  1958 Apr
17: 1958   May 1932 1958 05  1958 May
18: 1958   Jun 2860 1958 06  1958 Jun
19: 1958   Jul 3288 1958 07  1958 Jul
20: 1958   Aug 1340 1958 08  1958 Aug
21: 1958   Sep 3299 1958 09  1958 Sep
22: 1958   Oct 3677 1958 10  1958 Oct
23: 1958   Nov 2460 1958 11  1958 Nov
24: 1958   Dec 2453 1958 12  1958 Dec
25: 1959   Jan 1831 1959 01  1959 Jan
26: 1959   Feb 3685 1959 02  1959 Feb
27: 1959   Mar 3071 1959 03  1959 Mar
28: 1959   Apr 2525 1959 04  1959 Apr
29: 1959   May 3164 1959 05  1959 May
30: 1959   Jun 1841 1959 06  1959 Jun
31: 1959   Jul 2817 1959 07  1959 Jul
32: 1959   Aug 2273 1959 08  1959 Aug
33: 1959   Sep 3111 1959 09  1959 Sep
34: 1959   Oct 3894 1959 10  1959 Oct
35: 1959   Nov 3047 1959 11  1959 Nov
36: 1959   Dec 2214 1959 12  1959 Dec
37: 1960   Jan 3757 1960 01  1960 Jan
38: 1960   Feb 1075 1960 02  1960 Feb
39: 1960   Mar 2521 1960 03  1960 Mar
40: 1960   Apr 2267 1960 04  1960 Apr
41: 1960   May 2403 1960 05  1960 May
42: 1960   Jun 3208 1960 06  1960 Jun
43: 1960   Jul 3219 1960 07  1960 Jul
44: 1960   Aug 2508 1960 08  1960 Aug
45: 1960   Sep 1817 1960 09  1960 Sep
46: 1960   Oct 2680 1960 10  1960 Oct
47: 1960   Nov 1620 1960 11  1960 Nov
48: 1960   Dec 3069 1960 12  1960 Dec
    Year Month Prod    Date Date_abbr
https://ideone.com/Fddm8x
language:
R (R 3.5.2)
created:
1 year ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!