An analysis of Video Game Sales

Author

TG

Introduction

I’m going to be performing an analysis of a dataset that contains video game sales by various different variables. These include the name, platform, year, genre, publisher, NA_sales, EU_sales, JP_sales and global sales.

#|label: load data
#|message: False

vd_gms <-
  read_csv("https://myxavier-my.sharepoint.com/:x:/g/personal/granziert_xavier_edu/ESdDz1ERuhtHs918l3pmscsB-DFdN4TnWY8ukRLwHnlN6w?download=1")

Research Question

Which genre of video game has the greatest amount of total global sales? Are sports games more popular than action games? Personally I think that it will be action games with the higher amount of sales as I get the feeling that they are the most popular.

vd_gms %>% 
  filter(!is.na(Genre)) %>%
  group_by(Genre)%>%
  summarize(Total_Globe_Sales = sum(Global_Sales, na.rm = TRUE)) %>%
  ggplot(aes(x = Genre, y = Total_Globe_Sales)) +
  geom_bar(stat = "identity", fill = "blue3", color = "black", alpha = 0.7) +
  labs(title = "Total Global Sales Of Video Games by Genre",
       x = "Genre",
       y = "Total Global Sales (in Millions)")

Looking at the graph you can see that Action games have a much greater amount of global sales than any genre of game including sports games, proving that my hypothesis was right.

---
title: "An analysis of Video Game Sales"
author: "TG"
editor: visual
toc: true                 # Generates an automatic table of contents.
format:                   # Options related to formatting.
  html:                   # Options related to HTML output.
    code-tools: TRUE      # Allow the code tools option showing in the output.
    embed-resources: TRUE # Embeds all components into a single HTML file. 
execute:                  # Options related to the execution of code chunks.
  warning: FALSE          # FALSE: Code chunk sarnings are hidden by default.
  message: FALSE          # FALSE: Code chunk messages are hidden by default.
  echo:    TRUE           # TRUE:  Show all code in the output.
---

## Introduction

I'm going to be performing an analysis of a dataset that contains video game sales by various different variables. These include the name, platform, year, genre, publisher, NA_sales, EU_sales, JP_sales and global sales.

```{r}
#| include: FALSE
#| label: setup

library(tidyverse) # For the normal stuff
library(skimr) #For better summary statistics
```

```{r}
#|label: load data
#|message: False

vd_gms <-
  read_csv("https://myxavier-my.sharepoint.com/:x:/g/personal/granziert_xavier_edu/ESdDz1ERuhtHs918l3pmscsB-DFdN4TnWY8ukRLwHnlN6w?download=1")

```

## Research Question

Which genre of video game has the greatest amount of total global sales? Are sports games more popular than action games? Personally I think that it will be action games with the higher amount of sales as I get the feeling that they are the most popular.

```{r}
vd_gms %>% 
  filter(!is.na(Genre)) %>%
  group_by(Genre)%>%
  summarize(Total_Globe_Sales = sum(Global_Sales, na.rm = TRUE)) %>%
  ggplot(aes(x = Genre, y = Total_Globe_Sales)) +
  geom_bar(stat = "identity", fill = "blue3", color = "black", alpha = 0.7) +
  labs(title = "Total Global Sales Of Video Games by Genre",
       x = "Genre",
       y = "Total Global Sales (in Millions)")
```

Looking at the graph you can see that Action games have a much greater amount of global sales than any genre of game including sports games, proving that my hypothesis was right.