---
title: "MDN Dashboard"
output: 
  flexdashboard::flex_dashboard:
      source_code: embed
---

```{r setup, include=FALSE}
library(flexdashboard)
library(knitr)
library(DT)
library(rpivotTable)
library(ggplot2)
library(plotly)
library(dplyr)
library(openintro)
library(highcharter)
library(ggvis)
library(tidyverse)
library(rsconnect)
```

```{r}
load("mdn13test.Rdata")
```

MDN 13 kampanjer - samlet
=====================================


Row
-------------------------------

### Kampanje recall

```{r echo=FALSE}
k1 <- mdn13test %>% group_by(Kino=factor(kino3u),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(Kino=="1" & recall=="1") %>% mutate(navn = paste("Kino"))
k2 <- mdn13test %>% group_by(TV=factor(TVuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(TV=="1" & recall=="1") %>% mutate(navn = paste("TV"))
k3 <- mdn13test %>% group_by(OLV=factor(OLVuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(OLV=="1" & recall=="1") %>% mutate(navn = paste("OLV"))
k4 <- mdn13test %>% group_by(OOH=factor(OOHuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(OOH=="1" & recall=="1") %>% mutate(navn = paste("OOH"))
k5 <- mdn13test %>% group_by(SoMe=factor(SoMeuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(SoMe=="1" & recall=="1") %>% mutate(navn = paste("SoMe"))
k6 <- mdn13test %>% group_by(Avis=factor(AVISuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(Avis=="1" & recall=="1") %>% mutate(navn = paste("Avis"))
k7 <- mdn13test %>% group_by(Display=factor(DISPLAYuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(Display=="1" & recall=="1") %>% mutate(navn = paste("Display"))
k8 <- mdn13test %>% group_by(Magasin=factor(Magasinuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(Magasin=="1" & recall=="1") %>% mutate(navn = paste("Magasin"))
k9 <- mdn13test %>% group_by(Radio=factor(Radiouke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(Radio=="1" & recall=="1") %>% mutate(navn = paste("Radio"))

kanaltab <- rbind(k1,k2,k3,k4,k5,k6,k7,k8,k9)


```

```{r echo=FALSE}
plotkanal <- ggplot(data = kanaltab, mapping = aes(x = navn, y = pct, fill = pct))

plotkanal <- plotkanal + geom_bar(stat = "identity", colour = "#FF6666", fill = "#FF6666" , position = "dodge") + theme_dark() + ggtitle("Recall kampanjer etter kanaler brukt siste uke") + xlab("kampanjer") + ylab("Recall %")+ geom_hline(yintercept=mean(kanaltab$pct), linetype="dotted", color = "yellow") + geom_text(aes(label = round(pct, 1)))+theme(axis.text.x=element_text(angle=45,hjust=1))

ggplotly(plotkanal)
```

Row {.tabset .tabset-fade}
-------------------------------------

### Alder 15-34

```{r echo=FALSE}
k11534 <- mdn13test %>% filter(aldgrp=="15-34") %>%group_by(Kino=factor(kino3u),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(Kino=="1" & recall=="1") %>% mutate(navn = paste("Kino"))
k21534 <- mdn13test %>% filter(aldgrp=="15-34") %>%group_by(TV=factor(TVuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(TV=="1" & recall=="1") %>% mutate(navn = paste("TV"))
k31534 <- mdn13test %>% filter(aldgrp=="15-34") %>%group_by(OLV=factor(OLVuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(OLV=="1" & recall=="1") %>% mutate(navn = paste("OLV"))
k41534 <- mdn13test %>% filter(aldgrp=="15-34") %>%group_by(OOH=factor(OOHuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(OOH=="1" & recall=="1") %>% mutate(navn = paste("OOH"))
k51534 <- mdn13test %>% filter(aldgrp=="15-34") %>%group_by(SoMe=factor(SoMeuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(SoMe=="1" & recall=="1") %>% mutate(navn = paste("SoMe"))
k61534 <- mdn13test %>% filter(aldgrp=="15-34") %>%group_by(Avis=factor(AVISuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(Avis=="1" & recall=="1") %>% mutate(navn = paste("Avis"))
k71534 <- mdn13test %>% filter(aldgrp=="15-34") %>%group_by(Display=factor(DISPLAYuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(Display=="1" & recall=="1") %>% mutate(navn = paste("Display"))
k81534 <- mdn13test %>% filter(aldgrp=="15-34") %>%group_by(Magasin=factor(Magasinuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(Magasin=="1" & recall=="1") %>% mutate(navn = paste("Magasin"))
k91534 <- mdn13test %>% filter(aldgrp=="15-34") %>%group_by(Radio=factor(Radiouke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(Radio=="1" & recall=="1") %>% mutate(navn = paste("Radio"))

kanaltab1534 <-
  rbind(
    k11534,
    k21534,
    k31534,
    k41534,
    k51534,
    k61534,
    k71534,
    k81534,
    k91534
  )


```

```{r echo=FALSE}
plotkanal1534 <- ggplot(data = kanaltab1534, mapping = aes(x = navn, y = pct, fill = pct))

plotkanal1534 <- plotkanal1534 + geom_bar(stat = "identity", colour = "#FF6666", fill = "#FF6666" , position = "dodge") + theme_dark() + ggtitle("Recall 15-34 kanaler brukt siste uke") + xlab("kampanjer") + ylab("Recall %") + geom_hline(yintercept=mean(kanaltab$pct), linetype="dotted", color = "yellow") + geom_text(aes(label = round(pct, 1)))+theme(axis.text.x=element_text(angle=45,hjust=1))

ggplotly(plotkanal1534)
```

### Alder 35-48

```{r echo=FALSE}
k13548 <- mdn13test %>% filter(aldgrp=="35-48") %>%group_by(Kino=factor(kino3u),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(Kino=="1" & recall=="1") %>% mutate(navn = paste("Kino"))
k23548 <- mdn13test %>% filter(aldgrp=="35-48") %>%group_by(TV=factor(TVuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(TV=="1" & recall=="1") %>% mutate(navn = paste("TV"))
k33548 <- mdn13test %>% filter(aldgrp=="35-48") %>%group_by(OLV=factor(OLVuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(OLV=="1" & recall=="1") %>% mutate(navn = paste("OLV"))
k43548 <- mdn13test %>% filter(aldgrp=="35-48") %>%group_by(OOH=factor(OOHuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(OOH=="1" & recall=="1") %>% mutate(navn = paste("OOH"))
k53548 <- mdn13test %>% filter(aldgrp=="35-48") %>%group_by(SoMe=factor(SoMeuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(SoMe=="1" & recall=="1") %>% mutate(navn = paste("SoMe"))
k63548 <- mdn13test %>% filter(aldgrp=="35-48") %>%group_by(Avis=factor(AVISuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(Avis=="1" & recall=="1") %>% mutate(navn = paste("Avis"))
k73548 <- mdn13test %>% filter(aldgrp=="35-48") %>%group_by(Display=factor(DISPLAYuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(Display=="1" & recall=="1") %>% mutate(navn = paste("Display"))
k83548 <- mdn13test %>% filter(aldgrp=="35-48") %>%group_by(Magasin=factor(Magasinuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(Magasin=="1" & recall=="1") %>% mutate(navn = paste("Magasin"))
k93548 <- mdn13test %>% filter(aldgrp=="35-48") %>%group_by(Radio=factor(Radiouke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(Radio=="1" & recall=="1") %>% mutate(navn = paste("Radio"))

kanaltab3548 <-
  rbind(
    k13548,
    k23548,
    k33548,
    k43548,
    k53548,
    k63548,
    k73548,
    k83548,
    k93548
  )

```

```{r echo=FALSE}
plotkanal3548 <- ggplot(data = kanaltab3548, mapping = aes(x = navn, y = pct, fill = pct))

plotkanal3548 <- plotkanal3548 + geom_bar(stat = "identity", colour = "#FF6666", fill = "#FF6666" , position = "dodge") + theme_dark() + ggtitle("Recall 35-48 kanaler brukt siste uke") + xlab("kampanjer") + ylab("Recall %") + geom_hline(yintercept=mean(kanaltab$pct), linetype="dotted", color = "yellow") + geom_text(aes(label = round(pct, 1)))+theme(axis.text.x=element_text(angle=45,hjust=1))

ggplotly(plotkanal3548)

```

### Alder 49+

```{r echo=FALSE}
k149pluss <- mdn13test %>% filter(aldgrp=="49+") %>%group_by(Kino=factor(kino3u),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(Kino=="1" & recall=="1") %>% mutate(navn = paste("Kino"))
k249pluss <- mdn13test %>% filter(aldgrp=="49+") %>%group_by(TV=factor(TVuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(TV=="1" & recall=="1") %>% mutate(navn = paste("TV"))
k349pluss <- mdn13test %>% filter(aldgrp=="49+") %>%group_by(OLV=factor(OLVuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(OLV=="1" & recall=="1") %>% mutate(navn = paste("OLV"))
k449pluss <- mdn13test %>% filter(aldgrp=="49+") %>%group_by(OOH=factor(OOHuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(OOH=="1" & recall=="1") %>% mutate(navn = paste("OOH"))
k549pluss <- mdn13test %>% filter(aldgrp=="49+") %>%group_by(SoMe=factor(SoMeuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(SoMe=="1" & recall=="1") %>% mutate(navn = paste("SoMe"))
k649pluss <- mdn13test %>% filter(aldgrp=="49+") %>%group_by(Avis=factor(AVISuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(Avis=="1" & recall=="1") %>% mutate(navn = paste("Avis"))
k749pluss <- mdn13test %>% filter(aldgrp=="49+") %>%group_by(Display=factor(DISPLAYuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(Display=="1" & recall=="1") %>% mutate(navn = paste("Display"))
k849pluss <- mdn13test %>% filter(aldgrp=="49+") %>%group_by(Magasin=factor(Magasinuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(Magasin=="1" & recall=="1") %>% mutate(navn = paste("Magasin"))
k949pluss <- mdn13test %>% filter(aldgrp=="49+") %>%group_by(Radio=factor(Radiouke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(Radio=="1" & recall=="1") %>% mutate(navn = paste("Radio"))

kanaltab49pluss <-
  rbind(
    k149pluss,
    k249pluss,
    k349pluss,
    k449pluss,
    k549pluss,
    k649pluss,
    k749pluss,
    k849pluss,
    k949pluss
  )


```

```{r echo=FALSE}
plotkanal49pluss <- ggplot(data = kanaltab49pluss, mapping = aes(x = navn, y = pct, fill = pct))

plotkanal49pluss <- plotkanal49pluss + geom_bar(stat = "identity", colour = "#FF6666", fill = "#FF6666" , position = "dodge") + theme_dark() + ggtitle("Recall 49+ kanaler brukt siste uke") + xlab("kampanjer") + ylab("Recall %") + geom_hline(yintercept=mean(kanaltab$pct), linetype="dotted", color = "yellow") + geom_text(aes(label = round(pct, 1)))+theme(axis.text.x=element_text(angle=45,hjust=1))

ggplotly(plotkanal49pluss)

```


McDonalds rapporteksempel
=====================================


Row
-------------------------------

### McDonalds recall

```{r echo=FALSE}
k1mcd <- filter(mdn13test,utvalg=="MacDonalds") %>% group_by(Kino=factor(kino3u),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(Kino=="1" & recall=="1") %>% mutate(navn = paste("Kino"))
k2mcd <- filter(mdn13test,utvalg=="MacDonalds") %>% group_by(TV=factor(TVuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(TV=="1" & recall=="1") %>% mutate(navn = paste("TV"))
k3mcd <- filter(mdn13test,utvalg=="MacDonalds") %>% group_by(OLV=factor(OLVuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(OLV=="1" & recall=="1") %>% mutate(navn = paste("OLV"))
k4mcd <- filter(mdn13test,utvalg=="MacDonalds") %>% group_by(OOH=factor(OOHuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(OOH=="1" & recall=="1") %>% mutate(navn = paste("OOH"))
k5mcd <- filter(mdn13test,utvalg=="MacDonalds") %>% group_by(SoMe=factor(SoMeuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(SoMe=="1" & recall=="1") %>% mutate(navn = paste("SoMe"))
k6mcd <- filter(mdn13test,utvalg=="MacDonalds") %>% group_by(Avis=factor(AVISuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(Avis=="1" & recall=="1") %>% mutate(navn = paste("Avis"))
k7mcd <- filter(mdn13test,utvalg=="MacDonalds") %>% group_by(Display=factor(DISPLAYuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(Display=="1" & recall=="1") %>% mutate(navn = paste("Display"))
k8mcd <- filter(mdn13test,utvalg=="MacDonalds") %>% group_by(Magasin=factor(Magasinuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(Magasin=="1" & recall=="1") %>% mutate(navn = paste("Magasin"))
k9mcd <- filter(mdn13test,utvalg=="MacDonalds") %>% group_by(Radio=factor(Radiouke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(Radio=="1" & recall=="1") %>% mutate(navn = paste("Radio"))

kanaltabmcd <- rbind(k1mcd,k2mcd,k3mcd,k4mcd,k5mcd,k6mcd,k7mcd,k8mcd,k9mcd)


```

```{r echo=FALSE}
plotkanalmcd <- ggplot(data = kanaltabmcd, mapping = aes(x = navn, y = pct, fill = pct))

plotkanalmcd <- plotkanalmcd + geom_bar(stat = "identity", colour = "#FF6666", fill = "#FF6666" , position = "dodge") + theme_dark() + ggtitle("Recall MCD etter kanaler brukt siste uke") + xlab("kampanjer") + ylab("Recall %") + geom_hline(yintercept=mean(kanaltabmcd$pct), linetype="dotted", color = "yellow") + geom_text(aes(label = round(pct, 1)))+theme(axis.text.x=element_text(angle=45,hjust=1))

ggplotly(plotkanalmcd)
```

Row {.tabset .tabset-fade}
-------------------------------------

### Alder 15-34

```{r echo=FALSE}
k11534mcd <- mdn13test %>% filter(utvalg=="MacDonalds",aldgrp=="15-34") %>%group_by(Kino=factor(kino3u),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(Kino=="1" & recall=="1") %>% mutate(navn = paste("Kino"))
k21534mcd <- mdn13test %>% filter(utvalg=="MacDonalds",aldgrp=="15-34") %>%group_by(TV=factor(TVuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(TV=="1" & recall=="1") %>% mutate(navn = paste("TV"))
k31534mcd <- mdn13test %>% filter(utvalg=="MacDonalds",aldgrp=="15-34") %>%group_by(OLV=factor(OLVuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(OLV=="1" & recall=="1") %>% mutate(navn = paste("OLV"))
k41534mcd <- mdn13test %>% filter(utvalg=="MacDonalds",aldgrp=="15-34") %>%group_by(OOH=factor(OOHuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(OOH=="1" & recall=="1") %>% mutate(navn = paste("OOH"))
k51534mcd <- mdn13test %>% filter(utvalg=="MacDonalds",aldgrp=="15-34") %>%group_by(SoMe=factor(SoMeuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(SoMe=="1" & recall=="1") %>% mutate(navn = paste("SoMe"))
k61534mcd <- mdn13test %>% filter(utvalg=="MacDonalds",aldgrp=="15-34") %>%group_by(Avis=factor(AVISuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(Avis=="1" & recall=="1") %>% mutate(navn = paste("Avis"))
k71534mcd <- mdn13test %>% filter(utvalg=="MacDonalds",aldgrp=="15-34") %>%group_by(Display=factor(DISPLAYuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(Display=="1" & recall=="1") %>% mutate(navn = paste("Display"))
k81534mcd <- mdn13test %>% filter(utvalg=="MacDonalds",aldgrp=="15-34") %>%group_by(Magasin=factor(Magasinuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(Magasin=="1" & recall=="1") %>% mutate(navn = paste("Magasin"))
k91534mcd <- mdn13test %>% filter(utvalg=="MacDonalds",aldgrp=="15-34") %>%group_by(Radio=factor(Radiouke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(Radio=="1" & recall=="1") %>% mutate(navn = paste("Radio"))

kanaltab1534mcd <- rbind(k11534mcd,k21534mcd,k31534mcd,k41534mcd,k51534mcd,k61534mcd,k71534mcd,k81534mcd,k91534mcd)


```

```{r echo=FALSE}
plotkanal1534mcd <- ggplot(data = kanaltab1534mcd, mapping = aes(x = navn, y = pct, fill = pct))

plotkanal1534mcd <- plotkanal1534mcd + geom_bar(stat = "identity", colour = "#FF6666", fill = "#FF6666" , position = "dodge") + theme_dark() + ggtitle("Recall 15-34 kanaler brukt siste uke") + xlab("kampanjer") + ylab("Recall %") + geom_hline(yintercept=mean(kanaltab$pct), linetype="dotted", color = "yellow") + geom_text(aes(label = round(pct, 1)))+theme(axis.text.x=element_text(angle=45,hjust=1))

ggplotly(plotkanal1534mcd)
```

### Alder 35-48

```{r echo=FALSE}
k13548mcd <- mdn13test %>% filter(utvalg=="MacDonalds",aldgrp=="35-48") %>%group_by(Kino=factor(kino3u),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(Kino=="1" & recall=="1") %>% mutate(navn = paste("Kino"))
k23548mcd <- mdn13test %>% filter(utvalg=="MacDonalds",aldgrp=="35-48") %>%group_by(TV=factor(TVuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(TV=="1" & recall=="1") %>% mutate(navn = paste("TV"))
k33548mcd <- mdn13test %>% filter(utvalg=="MacDonalds",aldgrp=="35-48") %>%group_by(OLV=factor(OLVuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(OLV=="1" & recall=="1") %>% mutate(navn = paste("OLV"))
k43548mcd <- mdn13test %>% filter(utvalg=="MacDonalds",aldgrp=="35-48") %>%group_by(OOH=factor(OOHuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(OOH=="1" & recall=="1") %>% mutate(navn = paste("OOH"))
k53548mcd <- mdn13test %>% filter(utvalg=="MacDonalds",aldgrp=="35-48") %>%group_by(SoMe=factor(SoMeuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(SoMe=="1" & recall=="1") %>% mutate(navn = paste("SoMe"))
k63548mcd <- mdn13test %>% filter(utvalg=="MacDonalds",aldgrp=="35-48") %>%group_by(Avis=factor(AVISuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(Avis=="1" & recall=="1") %>% mutate(navn = paste("Avis"))
k73548mcd <- mdn13test %>% filter(utvalg=="MacDonalds",aldgrp=="35-48") %>%group_by(Display=factor(DISPLAYuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(Display=="1" & recall=="1") %>% mutate(navn = paste("Display"))
k83548mcd <- mdn13test %>% filter(utvalg=="MacDonalds",aldgrp=="35-48") %>%group_by(Magasin=factor(Magasinuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(Magasin=="1" & recall=="1") %>% mutate(navn = paste("Magasin"))
k93548mcd <- mdn13test %>% filter(utvalg=="MacDonalds",aldgrp=="35-48") %>%group_by(Radio=factor(Radiouke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(Radio=="1" & recall=="1") %>% mutate(navn = paste("Radio"))

kanaltab3548mcd <-
  rbind(
    k13548mcd,
    k23548mcd,
    k33548mcd,
    k43548mcd,
    k53548mcd,
    k63548mcd,
    k73548mcd,
    k83548mcd,
    k93548mcd
  )


```

```{r echo=FALSE}
plotkanal3548mcd <- ggplot(data = kanaltab3548mcd, mapping = aes(x = navn, y = pct, fill = pct))

plotkanal3548mcd <- plotkanal3548mcd + geom_bar(stat = "identity", colour = "#FF6666", fill = "#FF6666" , position = "dodge") + theme_dark() + ggtitle("Recall 35-48 kanaler brukt siste uke") + xlab("kampanjer") + ylab("Recall %") + geom_hline(yintercept=mean(kanaltab$pct), linetype="dotted", color = "yellow") + geom_text(aes(label = round(pct, 1)))+theme(axis.text.x=element_text(angle=45,hjust=1))

ggplotly(plotkanal3548mcd)

```

### Alder 49+

```{r echo=FALSE}
k149plussmcd <- mdn13test %>% filter(utvalg=="MacDonalds",aldgrp=="49+") %>%group_by(Kino=factor(kino3u),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(Kino=="1" & recall=="1") %>% mutate(navn = paste("Kino"))
k249plussmcd <- mdn13test %>% filter(utvalg=="MacDonalds",aldgrp=="49+") %>%group_by(TV=factor(TVuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(TV=="1" & recall=="1") %>% mutate(navn = paste("TV"))
k349plussmcd <- mdn13test %>% filter(utvalg=="MacDonalds",aldgrp=="49+") %>%group_by(OLV=factor(OLVuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(OLV=="1" & recall=="1") %>% mutate(navn = paste("OLV"))
k449plussmcd <- mdn13test %>% filter(utvalg=="MacDonalds",aldgrp=="49+") %>%group_by(OOH=factor(OOHuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(OOH=="1" & recall=="1") %>% mutate(navn = paste("OOH"))
k549plussmcd <- mdn13test %>% filter(utvalg=="MacDonalds",aldgrp=="49+") %>%group_by(SoMe=factor(SoMeuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(SoMe=="1" & recall=="1") %>% mutate(navn = paste("SoMe"))
k649plussmcd <- mdn13test %>% filter(utvalg=="MacDonalds",aldgrp=="49+") %>%group_by(Avis=factor(AVISuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(Avis=="1" & recall=="1") %>% mutate(navn = paste("Avis"))
k749plussmcd <- mdn13test %>% filter(utvalg=="MacDonalds",aldgrp=="49+") %>%group_by(Display=factor(DISPLAYuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(Display=="1" & recall=="1") %>% mutate(navn = paste("Display"))
k849plussmcd <- mdn13test %>% filter(utvalg=="MacDonalds",aldgrp=="49+") %>%group_by(Magasin=factor(Magasinuke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(Magasin=="1" & recall=="1") %>% mutate(navn = paste("Magasin"))
k949plussmcd <- mdn13test %>% filter(utvalg=="MacDonalds",aldgrp=="49+") %>%group_by(Radio=factor(Radiouke),recall=factor(recall)) %>% tally %>% complete(recall) %>% mutate(pct=n/sum(n)*100) %>% filter(Radio=="1" & recall=="1") %>% mutate(navn = paste("Radio"))

kanaltab49plussmcd <-
  rbind(
    k149plussmcd,
    k249plussmcd,
    k349plussmcd,
    k449plussmcd,
    k549plussmcd,
    k649plussmcd,
    k749plussmcd,
    k849plussmcd,
    k949plussmcd
  )


```

```{r echo=FALSE}
plotkanal49plussmcd <- ggplot(data = kanaltab49plussmcd, mapping = aes(x = navn, y = pct, fill = pct))

plotkanal49plussmcd <- plotkanal49plussmcd + geom_bar(stat = "identity", colour = "#FF6666", fill = "#FF6666" , position = "dodge") + theme_dark() + ggtitle("Recall 49+ kanaler brukt siste uke") + xlab("kampanjer") + ylab("Recall %") + geom_hline(yintercept=mean(kanaltab$pct), linetype="dotted", color = "yellow") + geom_text(aes(label = round(pct, 1)))+theme(axis.text.x=element_text(angle=45,hjust=1))

ggplotly(plotkanal49plussmcd)

```



Om rapporten
========================================

Laget av: Robert Ruud for PointOut AS

Oslo, desember 2019

Arbeidet er gjort i Rstudio og programmer benyttet er:

RStudio Team (2015). RStudio: Integrated Development for R. RStudio, Inc., Boston, MA URL http://www.rstudio.com/.

```{r echo=FALSE}
citation()
citation("dplyr")
citation("ggplot2")
citation("plotly")
```