Analýza průběhu návštěvnosti

Situace v roce 2023:

Graf ukazuje přístupy z:

organického vyhledávání (organic)
Přímé přístupy zadáním adresy (direct)
Přístupy z newsletterů (email)
Přístupy z reklamních kampaní (paid)

Code

# Convert the dataframe to a long format
muj_df_long <- pivot_longer(muj_df, cols = -přístup, names_to = "Měsíc", values_to = "Přístupy")

my_colors <- c("#cc2900", "#008000", "#0052cc", "#ffbf00", "#4DB6AC")

# Plot the bar graph
ggplot(muj_df_long, aes(x = Měsíc, y = Přístupy, fill = přístup)) +
  geom_bar(stat = "identity", position = "dodge") +
  scale_fill_manual(values = my_colors) +  # Set custom colors
  labs(x = "Měsíc", y = "Přístupy", fill = "Access Channel") +
  ggtitle("Přístupy v roce 2023 podle kanálů") +
  theme_dark()

Vývoj organického vyhledávání v roce 2022:

Načteme data, zdroj: Redační systém

Code

#|

organic_df <- tribble(
  ~měsíc,  ~"01_22",    ~"02_22",   ~"03_22",   ~"04_22",   ~"05_22",   ~"06_22",   ~"07_22",   ~"08_22",   ~"09_22",   ~"10_22",   ~"11_22",   ~"12_22",
  "přístupy",   60215,     42122,      60914,      56736,     48168,       41680,       43403,       59412,    59048,   45820,     45747,       26921
     )

Code

# Convert the dataframe to a long format
organic_df_long <- pivot_longer(organic_df, cols = -měsíc, names_to = "Month", values_to = "Value")

# Define the pastel blue/green color
pastel_color <- "#0052cc"

# Plot the bar chart with the pastel blue/green color
ggplot(organic_df_long, aes(x = Month, y = Value)) +
  geom_bar(stat = "identity", position = "dodge", fill = pastel_color) +
  labs(x = "Měsíc", y = "Počet", title = "Vývoj přístupů z organicu během 2022") +
  theme_dark()

Rozsegmentování přístupů v roce 2023:

Kód s načtením dat:

Code

kanaly2022_df <- tribble(
  ~přístup,       ~"04", ~"05", ~"06", ~"07", ~"08",~"09",~"10",~"11",~"12",  
  "organic",       55018,   47230,  40856,  47276,  57656,  57108,  44043,  43311,  28790,
  "direct",         1718,   1343,      1135,     1302,   1756,   1940,   3184,   2436,   1070,
  "email",          2366,   1985,      2215,    901,     484,       489,    31573,   3051,  4144,
  "paid",           1553,    462,       357,     1999,   533,       1803,   40109,  37492,  250,
  )

Graf ukazuje přístupy z:

organického vyhledávání (organic)
Přímé přístupy zadáním adresy (direct)
Přístupy z newsletterů (email)
Přístupy z reklamních kampaní (paid)

Data jsou omezena duben-prosinec 2022 - před tím jsme neměli nakonfigurované Google Analytics.

Code

# Convert the dataframe to a long format
kanaly2022_df_long <- pivot_longer(kanaly2022_df, cols = -přístup, names_to = "Měsíc", values_to = "Přístupy")

my_colors <- c("#cc2900", "#008000", "#0052cc", "#ffbf00", "#4DB6AC")

# Plot the bar graph
ggplot(kanaly2022_df_long, aes(x = Měsíc, y = Přístupy, fill = přístup)) +
  geom_bar(stat = "identity", position = "dodge") +
  scale_fill_manual(values = my_colors) +  # Set custom colors
  labs(x = "Měsíc", y = "Přístupy", fill = "Access Channel") +
  ggtitle("Přístupy v roce 2022 podle kanálů") +
  theme_dark()

Co tam vidíme:

Klesá počet přístupů z organického vyhledávání od podzimu 2022
Relativně slabší červen a červenec, ale skvělý srpen a září - energetická krize, téma hodně rezonovalo v médiích
Vidíme také úspěšnou podzimní kampaň - žlutě

Vývoj organické návštěvnosti v roce 2021

Code

organic2021_df <- tribble(
  ~měsíc, ~"01", ~"02", ~"03", ~"04",~"05", ~"06", ~"07", ~"08",~"09",~"10",~"11",~"12",   "celkem",   41447,   36173,  34405,  30752,  28069,  21115,  18473,  24990,  31432,  146214, 92267,  97040,
  "organic",         40566, 29776,  28994,  26691,  25389,  18310,  15739,  20256,  24222,  96470,  57545,  41758,
    )

Code

# Convert the dataframe to a long format
organic2021_df_long <- pivot_longer(organic2021_df, cols = -měsíc, names_to = "Měsíc", values_to = "Přístupy")

my_colors <- c("#cc2900", "#008000", "#0052cc", "#ffbf00", "#4DB6AC")

# Plot the bar graph
ggplot(organic2021_df_long, aes(x = Měsíc, y = Přístupy, fill = měsíc)) +
  geom_bar(stat = "identity", position = "dodge") +
  scale_fill_manual(values = my_colors) +  # Set custom colors
  labs(x = "Měsíc", y = "Přístupy", fill = "Access Channel") +
  ggtitle("Přístupy v roce 2021 podle kanálů") +
  theme_dark()

Přístupy z organického vyhledávání v letech 2021-2023

Cílem je zachytit vývoj přístupů z organicu během energetické krize, což je z grafu jasně patrné. Za úvahu by stál také důvod velkého meziměsíčního nárůstu v říjnu 2021 - to byl nejpíš začátek energetické krize (reakce na krach Bohemia Energy v srpnu 2021).

Code

organic_celk_df <- tribble(
  ~měsíc, ~"01/21", ~"02/21", ~"03/21", ~"04/21",~"05/21", ~"06/21", ~"07/21", ~"08/21", ~"09/21", ~"10/21", ~"11/21", ~"12/21", ~"01/22",~"02/22", ~"03/22",~"04/22",~"05/22",~"06/22",~"07/22",~"08/22",~"09/22",~"10/22",~"11/22",~"12/22",~"01/23",~"02/23",~"03/23",~"04/23",~"05/23",   
  "organic", 40566, 29776, 28994, 26691, 25389, 18310, 15739, 20256, 24222, 96470, 57545, 41758, 60215, 42122, 60914, 56736,  47230,  40856,  47276,  57656,  57108,  44043,  43311,  28790, 30622, 24212,  23491,  19558,  16240,
    )
# Create a data frame from the tribble
df <- as.data.frame(organic_celk_df)

# Convert the data frame from wide to long format
df_long <- tidyr::pivot_longer(df, cols = -měsíc, names_to = "Month", values_to = "Value")

# Convert the "Month" column to a Date format
df_long$Month <- as.Date(paste0("01/", df_long$Month), format = "%d/%m/%y")

# Create the bar graph using ggplot2
ggplot(df_long, aes(x = Month, y = Value, fill = měsíc)) +
  geom_bar(stat = "identity") +
  labs(title = "Průběh přístupů z organického vyhledávání 2021-2023",
       x = "Měsíc",
       y = "Počet přístupů") +
  scale_fill_manual(values = "#0052cc") +
  theme_dark()

Hypotézy:

Podkles zájmu o tematiku úspor

Překvapivě vidíme pokles zájmu o tematiku solárů
Klesá také zájem o tepelná čerpadla
Roste zájem do téma dotací
Jde ale jen o jedno klíčové slovo z tématu - nemůžeme jistotou říci, že zájem o tato témata klesá (na druhou stranu je to možné) - tohle by možná stálo za hlubší analýzu

Návrat na předkrizové hodnoty

Pravděpodobná varianta
Ukazují to grafy vývoje organické návštěvnosti výše

Pokles pozic na některá KW

Drobné poklesy pozic jsme zaznamenali, ve srovnání s poklesem organické návštěvnosti, jsou ale disproporční. Jinými slovy, poklesy pozic nejsou tak velké, jako celkové snížení organické návštěvnosti. Příčin nejpíš bude více…

Segment klíčových slov	Pohyb
Solární technika	Mírný pokles
Tepelná technika	Bez pohybů
Úspory energií	Bez pohybů
Alternativní doprava	Bez pohybů
Chytré technologie	Pokles
Dotace	Velmi mírný pokles (duben, květen)
Ekologie	Mírný pokles
Elektřina	Velmi mírný pokles (březen, duben)
Plyn	Bez pohybů
Obnovitelné zdroje energie	Bez pohybů

Pohyby klíčových slov s tematikou solárních technologií. Zdroj: Collabim

--- title: "Analýza průběhu návštěvnosti" format: html: code-fold: true code-tools: true editor: visual --- ## Situace v roce 2023: ```{r} #| label: kanaly2023 #| include: false library(tidyverse) library(ggplot2) muj_df <- tribble( ~přístup, ~"1", ~"2", ~"3", ~"4", ~"5", "organic", 30622, 24212, 23491, 19558, 12014, "direct", 1087, 985, 876, 574, 562, "email", 621, 14810, 7562, 180, 10344, "paid", 238, 1621, 1823, 2056, 2136 ) muj_df ``` ### Graf ukazuje přístupy z: 1. organického vyhledávání (organic) 2. Přímé přístupy zadáním adresy (direct) 3. Přístupy z newsletterů (email) 4. Přístupy z reklamních kampaní (paid) ```{r} #| label: graph #| warning: false # Convert the dataframe to a long format muj_df_long <- pivot_longer(muj_df, cols = -přístup, names_to = "Měsíc", values_to = "Přístupy") my_colors <- c("#cc2900", "#008000", "#0052cc", "#ffbf00", "#4DB6AC") # Plot the bar graph ggplot(muj_df_long, aes(x = Měsíc, y = Přístupy, fill = přístup)) + geom_bar(stat = "identity", position = "dodge") + scale_fill_manual(values = my_colors) + # Set custom colors labs(x = "Měsíc", y = "Přístupy", fill = "Access Channel") + ggtitle("Přístupy v roce 2023 podle kanálů") + theme_dark() ``` ## Vývoj organického vyhledávání v roce 2022: Načteme data, zdroj: Redační systém ```{r} #| label: organic2023 #| organic_df <- tribble( ~měsíc, ~"01_22", ~"02_22", ~"03_22", ~"04_22", ~"05_22", ~"06_22", ~"07_22", ~"08_22", ~"09_22", ~"10_22", ~"11_22", ~"12_22", "přístupy", 60215, 42122, 60914, 56736, 48168, 41680, 43403, 59412, 59048, 45820, 45747, 26921 ) ``` ```{r} #| label: graph2 #| warning: false # Convert the dataframe to a long format organic_df_long <- pivot_longer(organic_df, cols = -měsíc, names_to = "Month", values_to = "Value") # Define the pastel blue/green color pastel_color <- "#0052cc" # Plot the bar chart with the pastel blue/green color ggplot(organic_df_long, aes(x = Month, y = Value)) + geom_bar(stat = "identity", position = "dodge", fill = pastel_color) + labs(x = "Měsíc", y = "Počet", title = "Vývoj přístupů z organicu během 2022") + theme_dark() ``` ## Rozsegmentování přístupů v roce 2023: Kód s načtením dat: ```{r} #| label: kanaly2022 #| warning: false kanaly2022_df <- tribble( ~přístup, ~"04", ~"05", ~"06", ~"07", ~"08",~"09",~"10",~"11",~"12", "organic", 55018, 47230, 40856, 47276, 57656, 57108, 44043, 43311, 28790, "direct", 1718, 1343, 1135, 1302, 1756, 1940, 3184, 2436, 1070, "email", 2366, 1985, 2215, 901, 484, 489, 31573, 3051, 4144, "paid", 1553, 462, 357, 1999, 533, 1803, 40109, 37492, 250, ) ``` ### Graf ukazuje přístupy z: 1. organického vyhledávání (organic) 2. Přímé přístupy zadáním adresy (direct) 3. Přístupy z newsletterů (email) 4. Přístupy z reklamních kampaní (paid) Data jsou omezena duben-prosinec 2022 - před tím jsme neměli nakonfigurované Google Analytics. ```{r} #| label: graph-kanaly2022 #| warning: false # Convert the dataframe to a long format kanaly2022_df_long <- pivot_longer(kanaly2022_df, cols = -přístup, names_to = "Měsíc", values_to = "Přístupy") my_colors <- c("#cc2900", "#008000", "#0052cc", "#ffbf00", "#4DB6AC") # Plot the bar graph ggplot(kanaly2022_df_long, aes(x = Měsíc, y = Přístupy, fill = přístup)) + geom_bar(stat = "identity", position = "dodge") + scale_fill_manual(values = my_colors) + # Set custom colors labs(x = "Měsíc", y = "Přístupy", fill = "Access Channel") + ggtitle("Přístupy v roce 2022 podle kanálů") + theme_dark() ``` ### Co tam vidíme: - Klesá počet přístupů z organického vyhledávání od podzimu 2022 - Relativně slabší červen a červenec, ale skvělý srpen a září - energetická krize, téma hodně rezonovalo v médiích - Vidíme také úspěšnou podzimní kampaň - žlutě ## Vývoj organické návštěvnosti v roce 2021 ```{r} #| label: organic2021 #| warning: false organic2021_df <- tribble( ~měsíc, ~"01", ~"02", ~"03", ~"04",~"05", ~"06", ~"07", ~"08",~"09",~"10",~"11",~"12", "celkem", 41447, 36173, 34405, 30752, 28069, 21115, 18473, 24990, 31432, 146214, 92267, 97040, "organic", 40566, 29776, 28994, 26691, 25389, 18310, 15739, 20256, 24222, 96470, 57545, 41758, ) ``` ```{r} #| label: organic 2021-graph #| warning: false # Convert the dataframe to a long format organic2021_df_long <- pivot_longer(organic2021_df, cols = -měsíc, names_to = "Měsíc", values_to = "Přístupy") my_colors <- c("#cc2900", "#008000", "#0052cc", "#ffbf00", "#4DB6AC") # Plot the bar graph ggplot(organic2021_df_long, aes(x = Měsíc, y = Přístupy, fill = měsíc)) + geom_bar(stat = "identity", position = "dodge") + scale_fill_manual(values = my_colors) + # Set custom colors labs(x = "Měsíc", y = "Přístupy", fill = "Access Channel") + ggtitle("Přístupy v roce 2021 podle kanálů") + theme_dark() ``` ## Přístupy z organického vyhledávání v letech 2021-2023 Cílem je zachytit vývoj přístupů z organicu během energetické krize, což je z grafu jasně patrné. Za úvahu by stál také důvod velkého meziměsíčního nárůstu v říjnu 2021 - to byl nejpíš začátek energetické krize (reakce na krach Bohemia Energy v srpnu 2021). ```{r} #| label: organic-celkem-graph #| warning: false organic_celk_df <- tribble( ~měsíc, ~"01/21", ~"02/21", ~"03/21", ~"04/21",~"05/21", ~"06/21", ~"07/21", ~"08/21", ~"09/21", ~"10/21", ~"11/21", ~"12/21", ~"01/22",~"02/22", ~"03/22",~"04/22",~"05/22",~"06/22",~"07/22",~"08/22",~"09/22",~"10/22",~"11/22",~"12/22",~"01/23",~"02/23",~"03/23",~"04/23",~"05/23", "organic", 40566, 29776, 28994, 26691, 25389, 18310, 15739, 20256, 24222, 96470, 57545, 41758, 60215, 42122, 60914, 56736, 47230, 40856, 47276, 57656, 57108, 44043, 43311, 28790, 30622, 24212, 23491, 19558, 16240, ) # Create a data frame from the tribble df <- as.data.frame(organic_celk_df) # Convert the data frame from wide to long format df_long <- tidyr::pivot_longer(df, cols = -měsíc, names_to = "Month", values_to = "Value") # Convert the "Month" column to a Date format df_long$Month <- as.Date(paste0("01/", df_long$Month), format = "%d/%m/%y") # Create the bar graph using ggplot2 ggplot(df_long, aes(x = Month, y = Value, fill = měsíc)) + geom_bar(stat = "identity") + labs(title = "Průběh přístupů z organického vyhledávání 2021-2023", x = "Měsíc", y = "Počet přístupů") + scale_fill_manual(values = "#0052cc") + theme_dark() ``` ## Hypotézy: ### Podkles zájmu o tematiku úspor ![](assets/trendy.png) - Překvapivě vidíme pokles zájmu o tematiku **solárů** - Klesá také zájem o **tepelná čerpadla** - Roste zájem do téma dotací - Jde ale jen o jedno klíčové slovo z tématu - nemůžeme jistotou říci, že zájem o tato témata klesá (na druhou stranu je to možné) - tohle by možná stálo za hlubší analýzu ## Návrat na předkrizové hodnoty - Pravděpodobná varianta - Ukazují to grafy vývoje organické návštěvnosti výše ### Pokles pozic na některá KW Drobné poklesy pozic jsme zaznamenali, ve srovnání s poklesem organické návštěvnosti, jsou ale *disproporční*. Jinými slovy, **poklesy pozic nejsou tak velké, jako celkové snížení organické návštěvnosti**. Příčin nejpíš bude více... +-----------------------------+----------------------------------------+ | #### Segment klíčových slov | #### Pohyb | +-----------------------------+----------------------------------------+ | Solární technika | **Mírný pokles** | +-----------------------------+----------------------------------------+ | Tepelná technika | Bez pohybů | +-----------------------------+----------------------------------------+ | Úspory energií | Bez pohybů | +-----------------------------+----------------------------------------+ | Alternativní doprava | Bez pohybů | +-----------------------------+----------------------------------------+ | Chytré technologie | **Pokles** | +-----------------------------+----------------------------------------+ | Dotace | **Velmi mírný pokles (duben, květen)** | +-----------------------------+----------------------------------------+ | Ekologie | Mírný pokles | +-----------------------------+----------------------------------------+ | Elektřina | **Velmi mírný pokles (březen, duben)** | +-----------------------------+----------------------------------------+ | Plyn | Bez pohybů | +-----------------------------+----------------------------------------+ | Obnovitelné zdroje energie | Bez pohybů | +-----------------------------+----------------------------------------+ ![Pohyby klíčových slov s tematikou solárních technologií. Zdroj: Collabim](assets/Sol%C3%A1ry-graf.png)