Add actions plot example with save as png to Readme.md
Change-Id: I6f4c8d09597d19611a5024f1f1ac31b7e11a574d
diff --git a/Readme.md b/Readme.md
index 723c8f3..d570348 100644
--- a/Readme.md
+++ b/Readme.md
@@ -152,6 +152,34 @@
```
<!-- -->
+### Actions per month from Jan 2019 until the end of last month saved as PNG
+```R
+library(matomor)
+library(idsThemeR)
+library(lubridate)
+library(tidyverse)
+end_of_last_month <- floor_date(Sys.Date(), "month") - 1
+
+getVisitsSummary("https://stats.xxx.de/", siteId = c(13,14), period="month",
+ date=paste0("2019-01-01,", end_of_last_month)) %>%
+ mutate(Service = case_when(site_id == 13 ~ "Angebot A", site_id == 14 ~ "Angebot B")) %>%
+ ggplot(aes(date, nb_actions, col = Service, group = Service)) +
+ scale_x_date(date_labels = "%b %y") +
+ theme_ids() +
+ scale_color_ids() +
+ xlab("") +
+ ylab("Abfragen") +
+ labs(color = NULL) +
+ scale_y_continuous(labels = scales::label_number_si()) +
+ geom_point() +
+ geom_line()
+
+ggsave("./man/figures/AB-actions.png", width = 70 * .pt, height = 30 * .pt, units = "mm", dpi = 600)
+
+```
+
+<!-- -->
+
## Development and License
**Authors**: [Marc Kupietz](http://www1.ids-mannheim.de/zfo/personal/kupietz/)
diff --git a/man/figures/AB-actions.png b/man/figures/AB-actions.png
new file mode 100644
index 0000000..a74f275
--- /dev/null
+++ b/man/figures/AB-actions.png
Binary files differ
