2023年日历大派送

庄闪闪

发布于 2023-01-09 15:51:05

3840

发布于 2023-01-09 15:51:05

简介

一眨眼2022年即将过去，属实不易。让我们放下这年，展望2023年吧。两年前我使用 calendR 包制作了 2021 年的日历：calendR包—私人定制专属日历。今天重新整理了下代码，做了2023年的日历送给大家。祝大家新年快乐，科研顺利，幸福安康～

详细介绍教程可见：calendR包—私人定制专属日历 和 私人定制日历代码改进。如果需要高清 pdf 版本，可在公众号后台回复[2023年日历]。

版本一

竖版

横版

横版-月度

版本二

竖版-年度

横版-年度

横版-月度

代码详情

这里不再给出详细介绍了，具体可见以前写过的推文：calendR包—私人定制专属日历。如果你是 windows，并且想加入中文问题，可参考这篇：私人定制日历代码改进 。

library(calendR)
library(showtext)
showtext_auto()

calendR(year = 2023,
        start = "M", 
        title.col = "white",
        # Weeks start on Monday
        mbg.col = "#cd853f",               # Background color of the month names
        months.col = "white",      # Color of the text of the month names
        weeknames.col = "white",
        
        special.days = "weekend",  # Color the weekends
        special.col = "#a9a9a9", # Color of the special.days
        lty = 0,                   # Line type (no line)
        weeknames = c("Mo", "Tu",  # Week names
                      "We", "Th",
                      "Fr", "Sa",
                      "Su"),
        title.size = 40,   # Title size
        orientation = "p",
        bg.img = "5.jpg",
        pdf = TRUE,
        doc_name = "version1/calendar2023"
)


sapply(1:12 , function(i) calendR(year = 2023,month = i, pdf = TRUE,                            
                                  title.col = "white",
                                  # Weeks start on Monday
                                  mbg.col = "#cd853f",  
                                  # Background color of the month names
                                  months.col = "white",      # Color of the text of the month names
                                  weeknames.col = "white",
                                  special.days = "weekend",  # Color the weekends
                                  special.col = "gray60", # Color of the special.days
                                  lty = 0,                   # Line type (no line)
                                  bg.img = "5.jpg",
                                  doc_name = file.path("version1/month", paste0("Calendar(gray)_2023_", i))))

本文参与腾讯云自媒体同步曝光计划，分享自微信公众号。

原始发表：2022-12-31，如有侵权请联系 cloudcommunity@tencent.com 删除

windows