commit 9d8e339ca5800fd6b33b3a4bfc26299d1efd0ab5
author Marc Kupietz <kupietz@ids-mannheim.de> Mon Dec 14 23:43:58 2020 +0100
committer Marc Kupietz <kupietz@ids-mannheim.de> Tue Dec 15 16:02:53 2020 +0100
tree 8cffbdc8c2f6486fc81f18b6ba4b279e0e6e6a2d
parent 7d4149f86c0b138f9cba5a9373f5d46560010aa2

Use IDS themed ggplot2 example

Change-Id: I3390a048ab9bc2aca84d6bebd07a92cfaa5703bf

Readme.md

diff --git a/Readme.md b/Readme.md
index e2a1bdb..a472ef9 100644
--- a/Readme.md
+++ b/Readme.md
@@ -48,14 +48,15 @@
 ```R
 library(matomor)
 library(tidyverse)
+library(idsThemeR)
 
 # persistAccessToken("https://stats.xxx.org/", "ad7609a669179c4ebca7c995342f7e09")
 
-getVisitsSummary("https://stats.xxx.org/", siteId = c(13,14), period="day", date="last60") %>%
-  mutate(service = case_when(site_id == 13 ~ "A", site_id == 14 ~ "B")) %>%
-  ggplot(aes(date, nb_actions, color=service)) + 
-  scale_color_discrete() + 
-  geom_smooth(span=.25, se=FALSE)
+getVisitsSummary("https://stats.xxx.org/", siteId = c(8,14), period="day", date="last60") %>%
+     mutate(service = case_when(site_id == 8 ~ "A", site_id == 14 ~ "B")) %>%
+     ggplot(aes(date, nb_visits, color=service)) + 
+     scale_color_ids() + theme_ids() +
+     geom_smooth(span=.3, se=FALSE)
 ```
 ![](./man/figures/Readme-Example-1.png)<!-- -->
 

man/figures/Readme-Example-1.png

diff --git a/man/figures/Readme-Example-1.png b/man/figures/Readme-Example-1.png
index 20d4bdf..cd99a35 100644
--- a/man/figures/Readme-Example-1.png
+++ b/man/figures/Readme-Example-1.png
Binary files differ