110 lines
2.9 KiB
Text
110 lines
2.9 KiB
Text
|
---
|
||
|
|
title: "Facebook Key Metrics Analysis"
|
||
|
|
author: "François Pelletier"
|
||
|
|
date: "7 novembre 2015"
|
||
|
|
output:
|
||
|
|
html_document:
|
||
|
|
highlight: tango
|
||
|
|
keep_md: yes
|
||
|
|
theme: cerulean
|
||
|
|
toc: yes
|
||
|
|
pdf_document:
|
||
|
|
toc: yes
|
||
|
|
---
|
||
|
|
|
||
|
|
```{r}
|
||
|
|
library(data.table)
|
||
|
|
library(lubridate)
|
||
|
|
library(magrittr)
|
||
|
|
library(ggplot2)
|
||
|
|
library(dplyr)
|
||
|
|
|
||
|
|
# Setup your own Facebook key metrics here (csv export from XLS file)
|
||
|
|
page_key_metrics_raw <- fread("page_key_metrics.csv",header = TRUE)
|
||
|
|
page_key_metrics_raw$Posted2 <- page_key_metrics_raw$Posted %>%
|
||
|
|
lubridate::parse_date_time("m/d/yR")
|
||
|
|
page_key_metrics_raw$substr_post <- page_key_metrics_raw$`Post Message` %>% substr(0,70)
|
||
|
|
```
|
||
|
|
|
||
|
|
## Reach
|
||
|
|
|
||
|
|
```{r, dev='CairoPNG'}
|
||
|
|
ggplot(data=page_key_metrics_raw,
|
||
|
|
aes(x=Posted2,
|
||
|
|
y=`Lifetime Post organic reach`,
|
||
|
|
color=Type)) +
|
||
|
|
geom_line() +
|
||
|
|
ggtitle("Lifetime Post Organic Reach over time by type") +
|
||
|
|
ggplot2::xlab("Time posted")
|
||
|
|
```
|
||
|
|
|
||
|
|
```{r results='asis'}
|
||
|
|
page_key_metrics_raw[order(page_key_metrics_raw$`Lifetime Post organic reach`,
|
||
|
|
decreasing = TRUE),
|
||
|
|
.(substr_post,Permalink,Posted2,`Lifetime Post organic reach`)] %>%
|
||
|
|
head(10) %>% pander::pander()
|
||
|
|
```
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
## Impressions
|
||
|
|
|
||
|
|
```{r, dev='CairoPNG'}
|
||
|
|
ggplot(data=page_key_metrics_raw,
|
||
|
|
aes(x=Posted2,
|
||
|
|
y=`Lifetime Post Organic Impressions`,
|
||
|
|
color=Type)) +
|
||
|
|
geom_line() +
|
||
|
|
ggtitle("Lifetime Post Organic Impressions over time by type") +
|
||
|
|
ggplot2::xlab("Time posted")
|
||
|
|
```
|
||
|
|
|
||
|
|
```{r results='asis'}
|
||
|
|
page_key_metrics_raw[order(page_key_metrics_raw$`Lifetime Post Organic Impressions`,
|
||
|
|
decreasing = TRUE),
|
||
|
|
.(substr_post,Permalink,Posted2,`Lifetime Post Organic Impressions`)] %>%
|
||
|
|
head(10) %>% pander::pander()
|
||
|
|
```
|
||
|
|
|
||
|
|
## Engaged Users
|
||
|
|
|
||
|
|
```{r, dev='CairoPNG'}
|
||
|
|
# correction
|
||
|
|
page_key_metrics_raw$`Lifetime Engaged Users` <-
|
||
|
|
page_key_metrics_raw$`Lifetime Engaged Users` %>% as.numeric
|
||
|
|
|
||
|
|
ggplot(data=page_key_metrics_raw,
|
||
|
|
aes(x=Posted2,
|
||
|
|
y=`Lifetime Engaged Users`,
|
||
|
|
color=Type)) +
|
||
|
|
geom_line() +
|
||
|
|
ggtitle("Lifetime Engaged Users over time by type") +
|
||
|
|
ggplot2::xlab("Time posted")
|
||
|
|
```
|
||
|
|
|
||
|
|
```{r results='asis'}
|
||
|
|
page_key_metrics_raw[order(page_key_metrics_raw$`Lifetime Engaged Users`,
|
||
|
|
decreasing = TRUE),
|
||
|
|
.(substr_post,Permalink,Posted2,`Lifetime Engaged Users`)] %>%
|
||
|
|
head(10) %>% pander::pander()
|
||
|
|
```
|
||
|
|
|
||
|
|
## Type
|
||
|
|
|
||
|
|
```{r}
|
||
|
|
data_mean_reach <- page_key_metrics_raw[,.(Type,`Lifetime Post organic reach`,Posted2)] %>%
|
||
|
|
mutate(month_posted = lubridate::month(Posted2,label=TRUE)) %>%
|
||
|
|
group_by(Type,month_posted) %>% summarise(mean_reach = mean(`Lifetime Post organic reach`))
|
||
|
|
```
|
||
|
|
|
||
|
|
```{r, dev='CairoPNG'}
|
||
|
|
ggplot(data=data_mean_reach,
|
||
|
|
aes(x=Type,y=mean_reach,fill=Type)) +
|
||
|
|
facet_grid(. ~ month_posted) +
|
||
|
|
geom_bar(stat="identity") +
|
||
|
|
ggtitle("Mean reach by post type by month") +
|
||
|
|
ylab("Mean reach")
|
||
|
|
```
|
||
|
|
|
||
|
|
|