我如何使用参数自动化此 R 代码？

Question

YR = "2021"

那么我的结果应该是：

levels = c("202101", "202102", "202103", "202104", "202105", "202106", "202107", "202108", "202109", "202110", "202111", "202112"),

labels = c("Jan-2021", "Feb-2021", "Mar-2021", "Apr-2021","May-2021","Jun-2021","Jul-2021","Aug-2021","Sep-2021","Oct-2021","Nov-2021","Dec-2021"))

这是为标签创建的。

如果我把它改成

YR = 2022

那么我的结果应该是：

levels: c("202201","202202",...,"202212"), 
labels = c("Jan-2022", "Feb-2022",...,"Dec-2022"))

Answer 1

第一个目标可以参考评论中的link
month.abb函数可以提供每个月的缩写

YR = "2021"
levels <- sprintf('%s%02d', YR, 1:12)
levels
#>  [1] "202101" "202102" "202103" "202104" "202105" "202106" "202107" "202108"
#>  [9] "202109" "202110" "202111" "202112"
labels <- paste0(month.abb,"-",YR)
# or
# labels <- sprintf('%s%s%s',month.abb,"-",YR)
labels
#>  [1] "Jan-2021" "Feb-2021" "Mar-2021" "Apr-2021" "May-2021" "Jun-2021"
#>  [7] "Jul-2021" "Aug-2021" "Sep-2021" "Oct-2021" "Nov-2021" "Dec-2021"

^{由 reprex package (v2.0.0)}

于 2021-04-29 创建

我如何使用参数自动化此 R 代码？

How I can automate this R Code, with parameters?

parameters

r