vue日历翻拍效果_calendR：为你定制私人专属日历

作者 | 庄闪闪  责编 | 张文头图 | CSDN 下载自视觉中国来源 | 庄闪闪的成长手册(ID&＃xff1a;Zss_R4ds)今天教大家如何制作个人专属日历。先说说这个包吧&＃xff0c;非常简单&＃xff0c;比起ggplot2 包绘制日历要简单的多。

R 中的年历图

该软件包非常易容易使用&＃xff0c;因为它仅包含一个命名函数calendR 。默认情况下&＃xff0c;如果未指定任何参数&＃xff0c;则该函数将以横向形式创建当年的日历&＃xff0c;并且所有文本将使用系统的语言&＃xff0c;如下所示&＃xff1a;

# install.packages("calendR") #直接install安装包library(calendR)calendR() # 默认为当前年份

如果不希望日历使用操作系统的语言&＃xff0c;则可以对其进行修改。例如&＃xff0c;使用英语&＃xff1a;

Sys.setlocale("LC_ALL","English")如果想创建其他年份的年度日历图&＃xff0c;则可以在year 参数上设定&＃xff0c;如下所示&＃xff1a;

calendR(year &＃61; 2021)

1.1 日历周开始的设定

默认情况下&＃xff0c;日历的周数将从星期日开始。设定参数start&＃61;"M" 可以获得从星期一开始日历图。

calendR(year &＃61; 2021, start &＃61; "M")

1.2 为日子增添色彩

special.days 参数可以为指定的日期添加颜色&＃xff0c;special.col 设置颜色&＃xff0c;  low.col 设置其他日期的颜色。比如下面就是将第 9&＃xff0c;19 等日子设置为特定时间&＃xff0c;其颜色为淡蓝色&＃xff0c;其他颜色设置为白色。

calendR(year &＃61; 2021, start &＃61; "M", special.days &＃61; c(9, 19, 56, 79, 102, # Days to color 126, 257, 300, 342), special.col &＃61; "lightblue", # Color of the specified days low.col &＃61; "white") # Background color of the rest of the days

技巧&＃xff1a;如果要突出日历中所有的周末&＃xff0c;可以将 special.days 参数设置为"weekend"&＃xff0c;此快捷方式将立即为它们全部着色。

calendR(year &＃61; 2025, start &＃61; "M", special.days &＃61; "weekend") # Color all weekends

为了添加多个事件&＃xff0c;您将需要创建一个 NA 值向量&＃xff0c;该向量的长度与相应年份的天数相同。然后将事件添加到相应的日期&＃xff0c;你需要在special.days 参数中指定。

events 365)# Set the corresponding eventsevents[40:45] "Trip"events[213:240] "Holidays"events[252] "Birthday"events[359] "Christmas" # Creating the calendar with a legendcalendR(year &＃61; 2025, special.days &＃61; events, special.col &＃61; c("pink", "lightblue", # Colors "lightgreen", "lightsalmon"), legend.pos &＃61; "right") # Legend to the right

R 中的月历图

年度日历前面描述的功能也可用于月度日历中。但是月度日历还可以将文本添加到每月的某几天中。为了创建月度日历&＃xff0c;你需要指定年份和月份。

calendR(year &＃61; 2021, month &＃61; 8)

2.1 为日子增添色彩

与前面相同&＃xff0c;使用special.days 参数给指定日期加上颜色。

calendR(year &＃61; 2021, month &＃61; 8, special.days &＃61; c(1, 9, 12, 23, 28), special.col &＃61; "#bfe2f2", low.col &＃61; "white")

2.2 在日子里添加文字

使用月度日历图时&＃xff0c;可以使用text 参数向日期添加一些文本&＃xff0c;并使用参数  text.pos 指定其位置。使用text.size和text.col 参数修改文本的大小和颜色。

calendR(year &＃61; 2021, month &＃61; 8, # Year and month start &＃61; "M", # Start the week on Monday text &＃61; c("Running", "Running", # Add text (only for monthly calendars) "Class"), text.pos &＃61; c(5, 16, 25), # Days of the month where to put the texts text.size &＃61; 4.5, # Font size of the text text.col &＃61; 4) # Color of the texts

2.3 添加月相

设置lunar &＃61; TRUE 可以将月相添加到其日期中。lunar.col 参数设置隐藏区域的颜色&＃xff0c;lunar.size 设置大小。

calendR(month &＃61; 2, lunar &＃61; TRUE, # Add moons to the calendar lunar.col &＃61; "gray60", # Color of the non-visible area of the moons lunar.size &＃61; 7) # Size of the moons

学术日历

使用 start_date和 end_date创建学术日历。如果你想设置某个时间段(下面是 2020 年 9 月- 2021 年 5 月 31 日)的日历&＃xff0c;非常使用科研人员&＃xff0c;学生。请参阅以下示例&＃xff1a;

calendR(start_date &＃61; "2020-09-01", # Custom start date end_date &＃61; "2021-05-31", # Custom end date start &＃61; "M", # Start the weeks on Monday mbg.col &＃61; 4, # Color of the background of the names of the months months.col &＃61; "white", # Color text of the names of the months special.days &＃61; "weekend", # Color the weekends special.col &＃61; "lightblue", # Color of the special.days lty &＃61; 0, # Line type bg.col &＃61; "#f4f4f4", # Background color title &＃61; "Academic calendar 2020-2021", # Title title.size &＃61; 30, # Title size orientation &＃61; "p") # Vertical orientation

当然&＃xff0c;我觉得打印出来可能效果更好用吧。这里只是给出一个简单的例子&＃xff0c;你可以在这个基础上加上背景以及你喜欢的颜色&＃xff0c;可以继续往下看。

私人定制

接下来&＃xff0c;就是给日历加了背景以及根据直男审美把其他颜色进行了调整。下面给出上次大家说还不错的日历的源代码.可以使用 pdf &＃61; TRUE 将日历进行导出(默认为 A4 格式)。可以在doc_name 参数中指定生成的 PDF 文件的名称。此外&＃xff0c;你可以在几种纸张尺寸之间进行选择以保存日历&＃xff0c;从"A6"到&＃xff0c;"A0"。但是注意&＃xff0c;可能需要微调一些字体尺寸来获得所需的输出。如果想制作自己的日历&＃xff0c;只需修改 img 的图片&＃xff0c;存储的路径(默认在我的文档里)。

3.1 日历

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

3.2 月历

这里和日历区别最大的点就是&＃xff1a;月历要把每个月都输出&＃xff0c;可以使用sapply 函数&＃xff0c;把所有月份输出。前面的 invisible 指的是&＃xff1a;不显示图片(显示的话太费事了&＃xff01;保存再看更快)。最后使用paste0() 将字符串进行粘合(这个方法非常好用&＃xff01;)&＃xff0c;而这里的 i 是变化的&＃xff0c;所以最后生成的 pdf 文件名不一样但很有规律(除了 i 不一样)。

img "C:/Users/ZLL/Desktop/5.jpg"invisible(sapply(1:12 , function(i) calendR(year &＃61; 2021,month &＃61; i, pdf &＃61; TRUE, title.col &＃61; "white", # Weeks start on Monday mbg.col &＃61; "#cd853f", # Background color of the month names months.col &＃61; "white", # Color of the text of the month names weeknames.col &＃61; "white", special.days &＃61; "weekend", # Color the weekends special.col &＃61; "gray60", # Color of the special.days lty &＃61; 0, # Line type (no line) bg.img &＃61; img, doc_name &＃61; file.path("C:\\Users\\ZLL\\Documents\\calendar", paste0("Calendar(gray)_2021_", i)))) )

更多精彩推荐

☞弃用 COOKIE&＃xff01;

☞前端诸神大战&＃xff0c;Vue、React 依旧笑傲江湖

☞计算机巨星陨落&＃xff01;图灵奖得主 Edmund Clarke 因感染“新冠”逝世

☞Github 超 20000 Star&＃xff0c;最火开源视频库 FFmpeg 这 20 年&＃xff01;

☞跨平台将终结

☞曾被“劝退”的 C&＃43;&＃43; 20 正式发布&＃xff01;

☞Rust 2020 调查报告出炉&＃xff0c;95%的开发者吐槽Rust难学

点分享点点赞点在看