{"id":13710886,"url":"https://github.com/R-CoderDotCom/calendR","last_synced_at":"2025-05-06T20:31:07.284Z","repository":{"id":45344020,"uuid":"288697606","full_name":"R-CoderDotCom/calendR","owner":"R-CoderDotCom","description":"Ready to print calendars with ggplot2","archived":false,"fork":false,"pushed_at":"2023-10-13T15:30:11.000Z","size":176,"stargazers_count":245,"open_issues_count":9,"forks_count":32,"subscribers_count":12,"default_branch":"master","last_synced_at":"2024-02-13T09:07:21.805Z","etag":null,"topics":["ggplot-extension","ggplot2","rstats"],"latest_commit_sha":null,"homepage":"https://r-coder.com/calendar-plot-r/","language":"R","has_issues":true,"has_wiki":null,"has_pages":null,"mirror_url":null,"source_name":null,"license":"mit","status":null,"scm":"git","pull_requests_enabled":true,"icon_url":"https://github.com/R-CoderDotCom.png","metadata":{"files":{"readme":"README.md","changelog":null,"contributing":null,"funding":".github/FUNDING.yml","license":"LICENSE","code_of_conduct":null,"threat_model":null,"audit":null,"citation":null,"codeowners":null,"security":null,"support":null,"governance":null,"roadmap":null,"authors":null,"dei":null,"publiccode":null,"codemeta":null},"funding":{"github":null,"patreon":null,"open_collective":null,"ko_fi":null,"tidelift":null,"community_bridge":null,"liberapay":null,"issuehunt":null,"otechie":null,"custom":"https://www.buymeacoffee.com/RCODER"}},"created_at":"2020-08-19T10:05:51.000Z","updated_at":"2024-08-03T00:03:42.267Z","dependencies_parsed_at":"2024-08-03T00:03:37.912Z","dependency_job_id":null,"html_url":"https://github.com/R-CoderDotCom/calendR","commit_stats":null,"previous_names":[],"tags_count":2,"template":false,"template_full_name":null,"repository_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/R-CoderDotCom%2FcalendR","tags_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/R-CoderDotCom%2FcalendR/tags","releases_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/R-CoderDotCom%2FcalendR/releases","manifests_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/R-CoderDotCom%2FcalendR/manifests","owner_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/owners/R-CoderDotCom","download_url":"https://codeload.github.com/R-CoderDotCom/calendR/tar.gz/refs/heads/master","host":{"name":"GitHub","url":"https://github.com","kind":"github","repositories_count":252764208,"owners_count":21800657,"icon_url":"https://github.com/github.png","version":null,"created_at":"2022-05-30T11:31:42.601Z","updated_at":"2022-07-04T15:15:14.044Z","host_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub","repositories_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories","repository_names_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repository_names","owners_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/owners"}},"keywords":["ggplot-extension","ggplot2","rstats"],"created_at":"2024-08-02T23:01:01.848Z","updated_at":"2025-05-06T20:31:07.010Z","avatar_url":"https://github.com/R-CoderDotCom.png","language":"R","readme":"# calendR R package\u003cimg width = 150px height = 150px src=\"https://user-images.githubusercontent.com/67192157/97783151-22ee0280-1b96-11eb-9b78-2ba02395c5c8.png\" align=\"right\" /\u003e\nReady to print monthly and yearly calendars made with ggplot2\n\n\n📅 The calendars **will be created by default in the system locale**. Change it with `Sys.setlocale(locale = \"the_preferred_language\")`.\n\n📖 Check the [full calendR package tutorial](https://r-coder.com/calendar-plot-r/).\n\n\n## Index\n- [Installation](#installation)\n- [Yearly calendar](#yearly-calendar)\n- [Monthly calendar](#monthly-calendar)\n- [Custom start and end date](#custom-start-and-end-date)\n- [Start of the week](#start-of-the-week-monday-or-sunday)\n- [Orientation](#orientation-landscape-or-portrait)\n- [Heat map](#calendar-heatmap-gradient)\n- [Add several events](#add-several-events)\n- [Add week numbers of the year](#add-week-number-only-on-the-github-development-version)\n- [Add background image](#add-background-image)\n- [Lunar calendar](#lunar-calendar)\n- [Save as PDF](#save-as-pdf)\n- [More examples](#further-customization)\n\n\n## Installation\n\n### GitHub\n``` r\n# Install the development version from GitHub:\n# install.packages(\"devtools\")\ndevtools::install_github(\"R-CoderDotCom/calendR\")\n```\n\n### CRAN\n``` r\ninstall.packages(\"calendR\")\n```\n\n[![CRAN_Status_Badge](http://www.r-pkg.org/badges/version/calendR)](https://cran.r-project.org/package=calendR)\n[![CRAN_Downloads](https://cranlogs.r-pkg.org/badges/grand-total/calendR)](https://cran.r-project.org/package=calendR)\n\n## Yearly calendar\n\n``` r\nlibrary(calendR)\ncalendR() # Defaults to the current year\n```\n\n![Calendar_2020](https://user-images.githubusercontent.com/67192157/95111727-35fce680-0740-11eb-9193-d61cd10352be.png)\n\n\n``` r\ncalendR(year = 2020,           # Year\n        mbg.col = 2,           # Background color for the month names\n        months.col = \"white\",  # Text color of the month names\n        special.days = c(1, 50, 12, 125, 80,     # Color days of the year\n                         99, 102, 205, 266, 360),\n        special.col = \"pink\", # Color of the special.days\n        months.pos = 0.5)     # Horizontal alignment of the month names\n```\n\n![calendR](https://user-images.githubusercontent.com/67192157/95111865-693f7580-0740-11eb-8b92-959be1315bbc.png)\n\n\n## Monthly calendar\n\n``` r\ncalendR(year = 2028, month = 1)\n```\n![Calendar_January_2028](https://user-images.githubusercontent.com/67192157/97290793-56085d00-1849-11eb-92f9-78f856772961.png)\n\n``` r\ncalendR(month = 7, year = 2022, \n        special.days = c(1, 5, 12, 28),       # Color days of the month\n        text = \"Visit\\nhttps://r-coder.com/\", # Add some text\n        text.pos = c(1, 5, 12, 28))           # Where to add the text\n```\n\n![calendar_july](https://user-images.githubusercontent.com/67192157/97290979-98ca3500-1849-11eb-9131-b391919a9de8.png)\n\n\n## Custom start and end date\n\n``` r\ncalendR(from = \"2020-09-01\",  # Start date\n        to = \"2021-05-31\",    # End date\n        lty = 0,              # Line type\n        title = \"2020-2021\",  # Title\n        start = \"M\",          # Start on Mondays\n        months.pos = 0)       # Left-align month names\n```\n\n![imagen](https://user-images.githubusercontent.com/67192157/95112213-f2ef4300-0740-11eb-8778-dcdafb5c69ca.png)\n\n\n## Start of the week (Monday or Sunday)\n\n``` r\n# calendR(month = 1, start = \"S\") # Week starts on Sunday (default)\ncalendR(month = 1, start = \"M\")   # Week starts on Monday\n```\n\n![Calendar_January_2020](https://user-images.githubusercontent.com/67192157/97291161-d0d17800-1849-11eb-8e04-318918ea485d.png)\n\n## Orientation (\"landscape\" or \"portrait\")\n\n``` r\n# calendR(year = 2021, orientation = \"landscape\") # Default\ncalendR(year = 2021, orientation = \"portrait\")\n```\n\n\u003cp align=\"center\"\u003e\n \u003cimg src=\"https://user-images.githubusercontent.com/67192157/130369030-3f696caa-8fde-41ed-8dec-5bf6f372017e.png\"\u003e\n\u003c/p\u003e\n\n\n\n### Specify the number of columns\n\nThe following will override the `orientation` argument:\n\n``` r\ncalendR(year = 2021, ncol = 2) \n```\n\n\u003cp align=\"center\"\u003e\n \u003cimg src=\"https://user-images.githubusercontent.com/67192157/130369003-9ea7653e-1c48-4cfc-a92c-eba55b054396.png\"\u003e\n\u003c/p\u003e\n\n\n\n## Calendar heatmap (Gradient)\n\n``` r\ncalendR(year = 2021, special.days = 1:365,\n        gradient = TRUE,        # Needed to create the heat map\n        special.col = rgb(1, 0, 0, alpha = 0.6), # Higher color\n        low.col = \"white\")                       # Lower color\n```\n\n![Calendar_2021_GRADIENT](https://user-images.githubusercontent.com/67192157/95112323-11edd500-0741-11eb-96f1-34ecf137e8e4.png)\n\n\n### Gradient for certain days\n\n``` r\n# Data\nmy_data \u003c- runif(20, 10, 20)\n\n# Create a vector where all the values are\n# a bit lower than the lowest value of your data\n# (This will make the trick)\ndays \u003c- rep(min(my_data) - 0.05, 365)\n\n# Fill the days you want with your data\ndays[20:39] \u003c- my_data\n\ncalendR(year = 2021,\n        special.days = days,\n        gradient = TRUE,   # Needed to create the heat map\n        special.col = rgb(1, 0, 0, alpha = 0.6), # Higher color\n        low.col = \"white\") # In this case, the color of the values out of the gradient\n```\n![imagen](https://user-images.githubusercontent.com/67192157/95112558-5f6a4200-0741-11eb-92de-be90274d9a16.png)\n\n\n### Gradient with two colors (GitHub version only)\n\n```r\n# Data\nteam \u003c- c(\"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\")\nopponent \u003c- c(\"B\", \"C\", \"D\", \"B\", \"D\", \"C\", \"D\", \"B\", \"B\", \"D\")\n\nopponentHA \u003c- c(\"@B\", \"C\", \"@D\", \"@B\", \"@D\", \"C\", \"D\",\"B\", \"@B\", \"D\")\ndayofyear \u003c-  c(16, 69, 69, 88, 103, 121, 154, 176, 182, 202) \n# This is the day of year with October 1, 2021 set as Day 1\nranking \u003c- c(-3, 2, 2, -1, 0, 3, 0, -3, 2, 1)\n\ndf  \u003c- data.frame(dayofyear, team, opponent, opponentHA, ranking)\n\nfrom \u003c- \"2021-10-01\"\nto \u003c- \"2022-04-30\"\n\nas.Date(to)-as.Date(from) # 211 (+ 1)\n\n# Set all as NA (NA values will be colored with white)\ndays \u003c- rep(NA, 212)\n\n# Pass you data to the corresponding days\ndays[df$dayofyear] \u003c- df$ranking\n\ncalendR(from = \"2021-10-01\",\n        to = \"2022-04-30\",\n        start = \"M\",               \n        mbg.col = 1,           \n        months.col = \"white\",      \n        special.days = days, \n        gradient = TRUE,\n        special.col = \"#0A8007\", # Color highest value special day = green\n        low.col = \"red\",\n        lty = 0,               \n        weeknames = c(\"Mo\", \"Tu\",  \"We\", \"Th\", \"Fr\", \"Sa\", \"Su\"),\n        title = \"Oct - May 2021\",\n        subtitle = \"Gradient Based on Ranking\",\n        title.size = 40, \n        subtitle.size = 20,\n        orientation = \"l\")\n```\n\n![imagen](https://user-images.githubusercontent.com/67192157/130355497-0fa6b6b2-91e4-4491-b31a-1b22d8f4d74d.png)\n\n\n\n## Add several events\n\n``` r\n# Vector of NA which length is the number of days of the year or month\nmyfills \u003c- rep(NA, 365) \n# myfills \u003c- rep(NA, 366) # For leap years\n\n# Add the events to the desired days\nmyfills[c(1:4, 50, 300:315)] \u003c- \"Holidays\"\nmyfills[16] \u003c- \"Birthday\"\n\ncalendR(special.days = myfills,\n        special.col = 2:3,     # Add as many colors as events\n        legend.pos = \"right\")  # Add a legend if desired\n```\n\n![imagen](https://user-images.githubusercontent.com/67192157/95112825-be2fbb80-0741-11eb-9a46-61fee509409d.png)\n\n\n### Colors order\n\nThe colors are displayed based on the levels of the factor of the categorical variable.\n\n``` r\n# Current order:\nlevels(factor(myfills)) # \"Birthday\" \"Holidays\"\n\n#------\n# Way 1\n#------\ncalendR(special.days = myfills,\n        special.col = 3:2,     # Change the order to match the desired colors\n        legend.pos = \"right\")\n\n#------\n# Way 2\n#------\n\n# Desired order and colors\ndesired_order \u003c- c(\"Holidays\", # (2: red)\n                   \"Birthday\") # (3: green)\n\n# Order the colors based on the desired order\nordered_colors \u003c- c(2, 3)[order(desired_order)]\n\ncalendR(special.days = myfills,\n        special.col = ordered_colors, # Ordered colors\n        legend.pos = \"right\")  # Add a legend if desired\n```\n![custom_order](https://user-images.githubusercontent.com/67192157/97010808-3241d000-1546-11eb-9df5-c583f40cf530.png)\n\n\n### Several events with custom start and end dates\n\n``` r\nstart_date \u003c- \"2020-04-01\"\nend_date \u003c- \"2020-12-31\"\n\ncustom_dates \u003c- seq(as.Date(start_date), as.Date(end_date), by = \"1 day\")\nevents \u003c- rep(NA, length(custom_dates))\n\n# Time difference\ndif \u003c- 365 - length(custom_dates)\n\nmyfills \u003c- rep(NA, length(custom_dates))\n\n# Specify the dates as in a 365 days calendar and substract the time difference\nmyfills[c(180:210) - dif] \u003c- \"Holidays\"\nmyfills[215 - dif] \u003c- \"Birthday\"\n\ncalendR(from = start_date, to = end_date,\n        special.days = myfills, special.col = 2:3, legend.pos = \"bottom\")\n\n```\n\n![imagen](https://user-images.githubusercontent.com/67192157/97031386-7b068280-1560-11eb-8946-f9decac9b16f.png)\n\n\n\n### Weekends\n\n``` r\n# Calendar with highlighted weekends (Saturday and Sunday)\ncalendR(year = 2023, special.days = \"weekend\")\n```\n\n![image](https://github.com/R-CoderDotCom/calendR/assets/67192157/dd95af99-5f9a-4cf9-b0e1-feddbd981278)\n\n\n### Custom weekends\n\nThis example is useful to get the position of any day or days of a year, e.g., all the Mondays of 2022, all the Fridays and Saturdays of 2023, ...\n\n``` r\n# year: year of the calendar\n# day: 0–6 day OR days of the week, starting on Sunday.\ngetDays\u003c- function(year, day) {\n  start \u003c- as.Date(paste0(year,\"-01-01\"))\n  end \u003c- as.Date(paste0(year,\"-12-31\"))\n  ndays \u003c- length(seq(start, end, by=\"1 day\"))\n  days \u003c- as.POSIXlt(paste(year, 1:ndays, sep=\"-\"), format=\"%Y-%j\")\n  days_position \u003c- which(seq(start, end, by=\"1 day\") %in% days[days$wday %in% day])\n  days_position  \u003c- days_position [!is.na(days_position)]\n\n  return(days_position )\n}\n\n# Get the weekeneds of 2023\narab_weekends \u003c- getDays(2023, day = c(5, 6))\n\n# Plot the calendar\ncalendR(year = 2023, special.days = arab_weekends)\n```\n\n\n![imagen](https://user-images.githubusercontent.com/67192157/268247947-eb811bc1-8ca9-40c6-9e93-2e6fa71d14dc.png)\n\n\n\n## Add week number (only on the GitHub development version)\n\n``` r\ncalendR(year = 2021,\n        week.number = TRUE,          # Adds the week number of the year for each week \n        week.number.col = \"gray30\",  # Color of the week numbers\n        week.number.size = 8)        # Size of the week numbers\n```\n\n![imagen](https://user-images.githubusercontent.com/67192157/95112864-ca1b7d80-0741-11eb-969d-b40476859693.png)\n\n\n``` r\ncalendR(year = 2021,\n        month = 2,\n        week.number = TRUE,      # Adds the week number of the year for each week \n        week.number.col = 2,     # Color of the week numbers\n        week.number.size = 14)   # Size of the week numbers\n```\n\n![imagen](https://user-images.githubusercontent.com/67192157/97290741-42f58d00-1849-11eb-9398-f2e2d32ed541.png)\n\n## Add background image\n\n``` r\ncalendR(mbg.col = 4,               # Background color for the month names\n        months.col = \"white\",      # Text color of the month names\n        special.days = \"weekend\",  # Color the weekends\n        special.col = \"lightblue\", # Color of the special.days\n        lty = 0,                   # Line type\n        weeknames = c(\"Mo\", \"Tu\",  # Week names\n                      \"We\", \"Th\",\n                      \"Fr\", \"Sa\",\n                      \"Su\"),\n        title.size = 30,   # Title size\n        orientation = \"p\", # Portrait orientation\n        start = \"M\",       # Start the week on Mondays\n        bg.img = \"https://i.pinimg.com/originals/10/1e/f6/101ef6a9e146b23de28fa2cd568ad17b.jpg\")  # Image\n```\n\n\u003cp align=\"center\"\u003e\n \u003cimg src=\"https://user-images.githubusercontent.com/67192157/95113464-cb00df00-0742-11eb-933f-f2a5df55b51c.png\"\u003e\n\u003c/p\u003e\n\n\n## Lunar calendar\n\n``` r\ncalendR(month = 1,  \n        lunar = TRUE,         # Add moons to monthly calendar\n        lunar.col = \"gray60\", # Color of the non-visible area of the moon\n        lunar.size = 7)       # Size of the moons\n```\n\n![Lunar_Calendar](https://user-images.githubusercontent.com/67192157/97291525-57865500-184a-11eb-9afc-7e52e6fe3fc4.png)\n\n\n## Save as PDF\n\n``` r\n# Defaults to A4 size\ncalendR(year = 2021, orientation = \"portrait\", pdf = TRUE)\n\n# Set a paper size (from A6 to A0)\ncalendR(year = 2021, orientation = \"portrait\", pdf = TRUE, papersize = \"A6\")\n\n# Specify a custom document name\ncalendR(year = 2021, orientation = \"portrait\", pdf = TRUE, doc_name = \"My_calendar\")\n```\n\n## Further customization\n\n### Example 1\n``` r\ncalendR(year = 2022,                             # Year\n        mbg.col = 2,                             # Background color for the month names\n        months.col = \"white\",                    # Text color of the month names\n        special.days = c(1, 50, 12, 125, 80,     # Color days of the year\n                          99, 102, 205, 266, 359),\n        special.col = \"pink\",                    # Color of the special.days\n        months.pos = 0.5,                        # Center the month names\n        lty = 0,                                 # Line type\n        weeknames = c(\"Mo\", \"Tu\", \"We\", \"Th\",    # Week names\n                      \"Fr\", \"Sa\",\"Su\"), \n        bg.col = \"#f4f4f4\",                      # Background color\n        title.size = 60,                         # Title size\n        orientation = \"p\")                       # Orientation\n```\n\u003cp align=\"center\"\u003e\n \u003cimg src=\"https://user-images.githubusercontent.com/67192157/95113514-da802800-0742-11eb-9d94-be5e0096fee9.png\"\u003e\n\u003c/p\u003e\n\n\n### Example 2\n``` r\ncalendR(year = 2020,                        # Year\n        month = 10,                         # Month\n        title = \"My calendar\",              # Change the title\n        subtitle = \"Have a nice day\",       # Add a subtitle (or motivational phrase)\n        subtitle.col = 3,                   # Color of the subtitle\n        weeknames = c(\"S\", \"M\", \"T\", \"W\",   # Change week day names\n                      \"T\", \"F\", \"S\"), \n        bg.col = \"white\",                   # Background color\n        special.days = \"weekend\",           # Colorize the weekends (you can also set a vector of days)\n        special.col = rgb(0, 0, 1, 0.15),   # Color of the special days\n        text = \"Running\",                   # Add text (only for monthly calendars)\n        text.pos = c(7, 14, 25))            # Days of the month where to put the texts       \n\n\n```\n\n![Custom_colors](https://user-images.githubusercontent.com/67192157/97291394-24dc5c80-184a-11eb-9a41-afa13432bbfe.png)\n\n\n### Example 3\n``` r\ncalendR(from = \"2020-09-01\", # Custom start date\n        to = \"2021-05-31\",   # Custom end date\n        mbg.col = 4,               # Background color for the month names\n        months.col = \"white\",      # Text color of the month names\n        special.days = \"weekend\",  # Color the weekends\n        special.col = \"lightblue\", # Color of the special.days\n        lty = 0,                   # Line type\n        weeknames = c(\"Mo\", \"Tu\",  # Week names\n                      \"We\", \"Th\",\n                      \"Fr\", \"Sa\",\n                      \"Su\"),\n        bg.col = \"#f4f4f4\",         # Background color\n        title = \"Academic calendar 2020-2021\", # Title\n        title.size = 30,                       # Title size\n        orientation = \"p\", # Portrait orientation\n        start = \"M\")       # Start of the week\n# See all the arguments of the function for full customization of the colors, text size and style.\n```\n\u003cp align=\"center\"\u003e\n \u003cimg src=\"https://user-images.githubusercontent.com/67192157/92406650-dc050300-f138-11ea-938b-18f418cb1180.png\"\u003e\n\u003c/p\u003e\n\n### Example 4\n\n``` r\nSys.setlocale(locale = \"English\")\ncalendR(month = 10,  # Month\n        start = \"M\", # Week starts on Monday\n        orientation = \"landscape\", # Horizontal\n        \n        # Size and color of the title\n        title.size = 40,\n        title.col = \"white\",\n        \n        weeknames = c(\"MONDAY\", \"TUESDAY\", \"WEDNESDAY\", \"THURSDAY\", \"FRIDAY\", \"SATURDAY\", \"SUNDAY\"),\n        # Subtitle, color y and size\n        subtitle = \"I WITCH YOU A HAPPY HALLOWEEN\",\n        subtitle.col = \"red\",\n        subtitle.size = 16,\n        \n        # Text, color, size and position\n        text = \"HALLOWEEN\",\n        text.col = \"red\",\n        text.size = 5,\n        text.pos = 31,\n        \n        # Color the weekends with gray\n        special.days = \"weekend\",\n        special.col = \"grey40\",\n        \n        # Color of the lines, of the background\n        # and of the days\n        col = \"white\",\n        bg.col = \"grey20\",\n        low.col = \"transparent\", # The same color as the background\n        \n        # Color and size of the number of the days\n        days.col = \"white\",\n        day.size = 4,\n        \n        # Moon phases and moon sizes\n        lunar = TRUE,\n        lunar.size = 8,\n        lunar.col = \"red\",\n        \n        # Color and size of the week names\n        weeknames.col = \"white\",\n        weeknames.size = 6,\n        \n        # Width and line types\n        lwd = 0.25,\n        lty = 1,\n        \n        # Background image\n        bg.img = \"https://user-images.githubusercontent.com/67192157/94996404-cdc5cd80-05a4-11eb-97cb-84a195d9138c.png\",\n        \n        # Font family and font styles\n        font.family = \"CF Halloween\",   # You will need to download and import the font with the extrafont package\n        font.style = \"plain\",\n        pdf = TRUE,\n        doc_name = \"halloween\")\n```\n\n![halloween](https://user-images.githubusercontent.com/67192157/94996393-bdadee00-05a4-11eb-988d-52eafe72352f.png)\n\n\n### Example 5\n\n```r\ncalendR(month = 12,\n        start = \"M\",\n        subtitle = \"Merry Christmas!\",\n        subtitle.col = \"white\", lwd = 0.4,\n        title.size = 70, \n        subtitle.size = 40,\n        day.size = 9,\n        weeknames.size = 10,\n        special.col = rgb(0.2, 0.2, 0.2, 0.2),\n        days.col = \"white\",\n        title.col = \"white\",\n        bg.col = \"red\",\n        low.col = \"transparent\",\n        col = \"white\",\n        special.days = c(5, 6, 12, 13, 19, 20, 25, 26, 27, 31),\n        bg.img = \"https://user-images.githubusercontent.com/67192157/100520172-b23e0400-319c-11eb-98a8-10fdc95006fe.png\",\n        weeknames.col = \"white\",\n        font.family = \"perfect\",  # https://www.dafont.com/es/the-perfect-christmas.font\n        pdf = TRUE)\n```\n\n![Christmas_calendar](https://user-images.githubusercontent.com/67192157/100520209-efa29180-319c-11eb-8fb1-c7e0c92eb202.png)\n\n\n```r\ncalendR(month = 12,\n        start = \"M\",\n        subtitle = \"Merry Christmas!\",\n        subtitle.col = \"gray40\",\n        lwd = 0.4,\n\ttitle.size = 70,\n        subtitle.size = 40,\n        day.size = 9,\n        weeknames.size = 10,\n\tspecial.days = \"weekend\",\n        special.col = rgb(1, 1, 1, 0.1),\n        days.col = \"gray20\",\n\ttitle.col = \"gray30\",\n        bg.col = \"gray40\",\n        low.col = \"transparent\",\n        col = \"gray50\",\n\tweeknames.col = \"gray20\",\n        bg.img = \"https://user-images.githubusercontent.com/67192157/100520175-b4a05e00-319c-11eb-8733-af9f20b674c8.png\",\n        font.family = \"perfect\", # https://www.dafont.com/es/the-perfect-christmas.font\n        pdf = TRUE)\n```\n![Christmas_calendar_2020](https://user-images.githubusercontent.com/67192157/100520249-1a8ce580-319d-11eb-9ff1-0e20d47e15b7.png)\n\n\n### Example 6\n\n```r\nwindows(210, 297)\n\n# Dancing Script Font\nlibrary(showtext)\nfont_add_google(name = \"Dancing Script\",   \n                family = \"dancing\") \nshowtext_auto()\n\nSys.setlocale(locale = \"English\")\n\n# Landscape background: https://user-images.githubusercontent.com/67192157/103295646-aee4a500-49f4-11eb-8c5f-2857a7ee13f2.png\n\ncalendR(2021,\n        subtitle = NULL,\n\tmbg.col = \"#73b7fb\",      \n        months.col = \"white\",     \n        special.days = \"weekend\",\n\ttitle.col= \"#103a63\",\n\tweeknames.col= \"#103a63\",\n\tdays.col = \"#14487c\",\n\tspecial.col = \"#d7eafd\", \n\tlty = 0,   \n\tmonthnames = c(\"January\", \"February\", \"March\", \"April\", \"May\", \"June\", \"July\", \"August\", \"September\", \"October\", \"November\", \"December\"),\n\tfont.family = \"dancing\",     \n\tweeknames.size = 6,   \n\tweek.number = TRUE,\n\tweek.number.col = \"#73b7fb\",\n\tweeknames = c(\"Mo\", \"Tu\",  \n\t              \"We\", \"Th\",\n\t              \"Fr\", \"Sa\",\n \t              \"Su\"),        \n\ttitle.size = 40,    \n\tmonths.size = 15,              \n\torientation = \"p\", \n\tbg.img = \"https://user-images.githubusercontent.com/67192157/103295110-9031de80-49f3-11eb-88b9-52e9dd0dc4ea.png\",\n\tday.size = 3.25,\n\tpapersize = \"A4\",\n\tstart = \"M\")  \n```\n\n\u003cp align=\"center\"\u003e\n \u003cimg src=\"https://user-images.githubusercontent.com/67192157/103295315-f74f9300-49f3-11eb-9064-e1a8504ab417.png\" alt = \"Calendar 2021\"\u003e\n\u003c/p\u003e\n\n\n### Example 7\n\n```r\n\nlibrary(showtext)\n\n# https://www.dafont.com/es/cat-paw.font\nfont_add(family = \"Cat\", regular = \"Cat paw.ttf\")\n\nwindows(8.27,11.7)\n\nshowtext_auto()\n\ncalendR(2021,\n        font.family = \"Cat\",\n        subtitle=\"\", \n\tbg.img = \"https://user-images.githubusercontent.com/67192157/103364654-a8226480-4abe-11eb-8c2f-9eaa27ed543e.png\",\n\tmbg.col = \"#b29a8e\",\n\tbg.col = \"#faf4ef\",            \n\tmonths.col = \"white\",     \n\ttitle.col=\"#7c6b63\",\n\tdays.col=\"#6a5c55\",\n\tweeknames.col = \"#7c6b63\",\n\tspecial.days = \"weekend\",\n\tspecial.col = \"#f0dbca\", \n\tlty = 0,   \n\tmonthnames = c(\"January\", \"February\", \"March\", \"Aprrrril\", \"May\", \"June\", \n\t               \"July\", \"August\", \"September\", \"October\", \"November\", \"December\"),        \n\tweeknames.size = 7,   \n\tweek.number = TRUE,\n\tweek.number.col = \"#d4bbb4\",\n\tweeknames = c(\"Mo\", \"Tu\",\"We\", \"Th\",\"Fr\", \"Sa\",\"Su\"),        \n\ttitle.size = 50,    \n\tmonths.size = 24,              \n\torientation = \"p\",  \n\tday.size = 4.5,\n\tstart = \"M\")\n```\n\n\u003cp align=\"center\"\u003e\n \u003cimg src=\"https://user-images.githubusercontent.com/67192157/103364817-fdf70c80-4abe-11eb-8736-3bb46579a103.png\" alt = \"Calendar 2021\"\u003e\n\u003c/p\u003e\n\n```r\nlibrary(showtext)\n\n# https://www.dafont.com/es/cat-paw.font\nfont_add(family = \"Cat\", regular = \"Cat paw.ttf\")\n\nwindows(11.7, 8.27)\n\nshowtext_auto()\n\ncalendR(2021,\n        font.family = \"Cat\",\n        subtitle = \"\", \n\tbg.img = \"https://user-images.githubusercontent.com/67192157/103365300-10be1100-4ac0-11eb-81f1-f06232101cba.png\",\n\tmbg.col = \"#b29a8e\",\n\tbg.col = \"#faf4ef\",            \n\tmonths.col = \"white\",     \n\ttitle.col=\"#7c6b63\",\n\tdays.col=\"#6a5c55\",\n\tweeknames.col = \"#7c6b63\",\n\tspecial.days = \"weekend\",\n\tspecial.col = \"#f0dbca\", \n\tlty = 0,   \n\tmonthnames = c(\"January\", \"February\", \"March\", \"Aprrrril\", \"May\", \"June\", \n\t\t\"July\", \"August\", \"September\", \"October\", \"November\", \"December\"),        \n\tweeknames.size = 7,   \n\tweek.number = TRUE,\n\tweek.number.col = \"#d4bbb4\",\n\tweeknames = c(\"Mo\", \"Tu\",\"We\", \"Th\",\"Fr\", \"Sa\",\"Su\"),        \n\ttitle.size = 50,    \n\tmonths.size = 24,              \n\torientation = \"l\",  \n\tday.size = 4.5,\n\tstart = \"M\")\n```\n\n\n\u003cp align=\"center\"\u003e\n \u003cimg src=\"https://user-images.githubusercontent.com/67192157/103365556-9fcb2900-4ac0-11eb-8ffe-882cf4fb600b.png\" alt = \"Calendar 2021\"\u003e\n\u003c/p\u003e\n\n\n\n## Social Media\n- Facebook: [https://www.facebook.com/RCODERweb](https://www.facebook.com/RCODERweb)\n- Twitter: [https://twitter.com/RCoderWeb](https://twitter.com/RCoderWeb)\n","funding_links":["https://www.buymeacoffee.com/RCODER"],"categories":["Plot layers","R"],"sub_categories":[],"project_url":"https://awesome.ecosyste.ms/api/v1/projects/github.com%2FR-CoderDotCom%2FcalendR","html_url":"https://awesome.ecosyste.ms/projects/github.com%2FR-CoderDotCom%2FcalendR","lists_url":"https://awesome.ecosyste.ms/api/v1/projects/github.com%2FR-CoderDotCom%2FcalendR/lists"}