一眨眼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))))