dashboard.Rmd

---
title: "Facebook Ad Manager Data for June 2020"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: fill
---

```{r setup, include=FALSE}
library(flexdashboard)
library(tidyverse)
library(plotly)
library(leaflet)
library(maps)

#FB Data Locations for initial import
region_import <- "data/fb_region.csv"
age_import <- "data/fb_age.csv"
gender_import <- "data/fb_gender.csv"

source("src/data_import.R")

#Running data_import function to create tibbles
fb_region <- data_import(region_import)
fb_age <- data_import(age_import)
fb_gender<- data_import(gender_import)

#Preparing Map Data & function
source("src/plots.R")
```

Row
-----------------------------
### Gender Audiences

```{r}
plot_ly(fb_gender, 
        x = ~Gender, 
        y = ~Reach, 
        type = "bar", 
        mode = "markers",
        visible = T) %>%
  add_trace(fb_age, y = ~Impressions, visible = F) %>%
  add_trace(fb_age, y = ~`CPC (All)`, visible = F) %>%
  add_trace(fb_age, y = ~`CTR (All)`, visible = F) %>% 
  layout(
    showlegend=FALSE,
    yaxis = list(title = "Metric"),
    updatemenus = list(
      list(
        y = 1,
        x = 1,
        buttons = list(
          list(method = "restyle",
               label = "Reach",
               args = list("visible", list(TRUE, FALSE, FALSE, FALSE))),
          list(method = "restyle",
               label = "Impressions",
               args = list("visible", list(FALSE, TRUE, FALSE, FALSE))),
          list(method = "rstyle",
               label = "CPC",
               args = list("visible", list(FALSE, FALSE, TRUE, FALSE))),
          list(method = "restyle",
               label = "CTR",
               args = list("visible", list(FALSE, FALSE, FALSE, TRUE)))
        ))))
```

### Age Audiences

```{r}
plot_ly(fb_age, 
        x = ~Age, 
        y = ~Reach, 
        type = "bar", 
        mode = "markers",
        visible = T) %>%
  add_trace(fb_age, y = ~Impressions, visible = F) %>%
  add_trace(fb_age, y = ~`CPC (All)`, visible = F) %>%
  add_trace(fb_age, y = ~`CTR (All)`, visible = F) %>% 
  layout(
    showlegend=FALSE,
    yaxis = list(title = "Metric"),
    updatemenus = list(
      list(
        y = 1,
        x = 1,
        buttons = list(
          list(method = "restyle",
               label = "Reach",
               args = list("visible", list(TRUE, FALSE, FALSE, FALSE))),
          list(method = "restyle",
               label = "Impressions",
               args = list("visible", list(FALSE, TRUE, FALSE, FALSE))),
          list(method = "rstyle",
               label = "CPC",
               args = list("visible", list(FALSE, FALSE, TRUE, FALSE))),
          list(method = "restyle",
               label = "CTR",
               args = list("visible", list(FALSE, FALSE, FALSE, TRUE)))
        ))))
```

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

### Audiences Based on Location
```{r}
fb_map()
```