r - 如何使用参数自动化此 R 代码?
问题描述
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"))
解决方案
- 第一个目标可以参考评论中的链接。
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 包于 2021-04-29 创建 (v2.0.0 )
推荐阅读
- javascript - 在 Firefox 中是否可以找到 javascript 函数的运行位置?
- javascript - 在选择周围插入粗体和斜体的降价
- android - TextView 提示弄乱了 RTL 重力
- opencv - 使用 py-tesseract 和 opencv 从日本图像中提取表格数据
- php - 为什么 .env 不应该在 Symfony4 的生产环境中加载?
- php - Symfony 缓存不适用于类/对象
- sqlite - 在 SQLite 中,如何在选择结果中插入 id 字段?
- scala - GraphX 中具有不同属性的顶点
- php - 如何使用 xhr 将我的 sql 结果从 php 文件获取到 javascript
- javascript - Ajax 在 Localhost 上工作,但不在 Live Server 上