multiple bar plot grid of social media platforms based on variable segment type

## TableGrob (2 x 2) "arrange": 4 grobs
##   z     cells    name           grob
## 1 1 (1-1,1-1) arrange gtable[layout]
## 2 2 (1-1,2-2) arrange gtable[layout]
## 3 3 (2-2,1-1) arrange gtable[layout]
## 4 4 (2-2,2-2) arrange gtable[layout]

*** This panel illustrates the contribution of various media platforms to e-commerce, showing the relationship between social platforms and counts. Role of Social Media Platforms

Data of social media active usage penetration in selected countries and territories

## Joining with `by = join_by(Country)`
## Joining with `by = join_by(Country)`

This panel explores the impact of social media usage on e-commerce in different countries, visualizing social media usage penetration and e-commerce revenue. ***

Bar Chart showing the different kinds of businesses and how much they play into the total amount of money spent on e-commerce over time

## Rows: 42
## Columns: 4
## $ Name    <chr> "Beauty & Personal Care", "Beauty & Personal Care", "Beauty & …
## $ year    <chr> "2017", "2018", "2019", "2020", "2021", "2022", "2023", "2017"…
## $ revenue <dbl> 50.38, 59.91, 69.11, 87.41, 106.60, 108.70, 116.10, 63.22, 77.…
## $ date    <date> 2017-12-31, 2018-12-31, 2019-12-31, 2020-12-31, 2021-12-31, 2…

## To cite R in publications use:
## 
##   R Core Team (2023). _R: A Language and Environment for Statistical
##   Computing_. R Foundation for Statistical Computing, Vienna, Austria.
##   <https://www.R-project.org/>.
## 
## A BibTeX entry for LaTeX users is
## 
##   @Manual{,
##     title = {R: A Language and Environment for Statistical Computing},
##     author = {{R Core Team}},
##     organization = {R Foundation for Statistical Computing},
##     address = {Vienna, Austria},
##     year = {2023},
##     url = {https://www.R-project.org/},
##   }
## 
## We have invested a lot of time and effort in creating R, please cite it
## when using it for data analysis. See also 'citation("pkgname")' for
## citing R packages.

This panel showcases the relationship between the year and total e-commerce shopping, highlighting the various businesses and how much they contributed to this revenue. Ecommerce Revenue Throughout The Years This panel visualizes the relationship between the date and consumer spending over time, presenting the growing number of consumer spending in billions of US dollars from 1970 to 2023. 

## Rows: 52
## Columns: 4
## $ Date              <date> 1970-12-31, 1971-12-31, 1972-12-31, 1973-12-31, 197…
## $ Spending.Billions <dbl> 646.724, 699.937, 768.153, 849.575, 930.161, 1030.54…
## $ Per.Capita        <dbl> 15553.43, 15944.52, 16740.92, 17402.50, 17099.77, 17…
## $ Annual.Change     <dbl> NA, 3.8189, 6.1248, 4.9488, -0.8377, 2.2674, 5.5734,…


As of December 08, 2023, the year to date spending is 0.

So far this year, spending is -8% more than last year’s total consumer spending.

This panel examines the changes in spending trends pre-COVID and the impact of COVID-19 on people’s spending from 2019 to 2021. ***

## New names:
## • `` -> `...1`
## • `Total` -> `Total...3`
## • `E-commerce` -> `E-commerce...4`
## • `Total` -> `Total...5`
## • `E-commerce` -> `E-commerce...6`
## • `Total` -> `Total...7`
## • `E-commerce` -> `E-commerce...8`
## • `Total` -> `Total...9`
## • `E-commerce` -> `E-commerce...10`
## • `Total` -> `Total...11`
## • `E-commerce` -> `E-commerce...12`
## • `Total` -> `Total...13`
## • `E-commerce` -> `E-commerce...14`
## • `Total` -> `Total...15`
## • `E-commerce` -> `E-commerce...16`
## Rows: 182
## Columns: 5
## $ category <chr> "Total", "Total", "Total", "Total", "Total", "Total", "Total"…
## $ type     <chr> "total", "ecommerce", "total", "ecommerce", "total", "ecommer…
## $ year     <dbl> 2021, 2021, 2020, 2020, 2019, 2019, 2018, 2018, 2017, 2017, 2…
## $ revenue  <dbl> 1027971, 820843, 891109, 707590, 659235, 491788, 584814, 4383…
## $ date     <date> 2021-12-31, 2021-12-31, 2020-12-31, 2020-12-31, 2019-12-31, …
## Rows: 91
## Columns: 4
## $ date     <date> 2021-12-31, 2020-12-31, 2019-12-31, 2018-12-31, 2017-12-31, …
## $ year     <dbl> 2021, 2020, 2019, 2018, 2017, 2016, 2015, 2021, 2020, 2019, 2…
## $ category <chr> "Total", "Total", "Total", "Total", "Total", "Total", "Total"…
## $ revenue  <dbl> 1027971, 891109, 659235, 584814, 524639, 467557, 419011, NA, …
## Rows: 91
## Columns: 4
## $ date     <date> 2021-12-31, 2020-12-31, 2019-12-31, 2018-12-31, 2017-12-31, …
## $ year     <dbl> 2021, 2020, 2019, 2018, 2017, 2016, 2015, 2021, 2020, 2019, 2…
## $ category <chr> "Total", "Total", "Total", "Total", "Total", "Total", "Total"…
## $ revenue  <dbl> 820843, 707590, 491788, 438399, 383709, 330074, 287534, NA, N…
Total Furniture Electronics Home Equiptment Food Clothing Hobby
287534 6560 20316 6682 1144 22737 5236
330074 6800 23827 7938 1304 24048 5398
383709 7554 28210 10753 1330 25913 5144
438399 8430 32815 11358 1374 30379 5073
491788 9374 28668 13419 1370 33539 4886
707590 13203 48354 27437 2409 44470 7742
820843 15096 52963 30718 2867 48441 7744

R Core Team (2023). R:Language and Environment for Statistical Computing. R Foundation for Statistical Computing, Vienna, Austria. https://www.R-project.org/

Posit team (2023). Rstudio: Integrated Development Environment for R. Posit Software, PBC, Boston, MA. URL https://www.posit.co/.

Link to additional information on geom_area plots

Link to additional information on the R Color Brewer options