Energy In Music

and how it Effects Streams

Author

Perry Lampertius

Intoroduction

I’m going to perform an analyis on spotify data and determine if Songs with a higher energy percentage will have a higher number of streams.

Method

I’m going to perform an analyis on spotify data and determine if Songs with a higher energy percentage will have a higher number of streams

spotify_data <- spotify_data %>%
  mutate(streams = as.numeric(streams))

spotify_data %>%
  mutate(streams = as.numeric(streams)) %>%  
  ggplot(aes(y = `energy_%`, x = streams)) +
  geom_point(color = "blue", alpha = 0.6) +  
  scale_x_log10(labels = scales::comma) +  
  labs(title = "Energy Percentage vs. Number of Streams",
       y = "Energy Percentage", 
       x = "Number of Streams")

Interpretation

Based on the available data, there is no clear evidence of a correlation between the number of streams and the energy percentage of a song. This suggests that a song’s energy level does not significantly impact its streaming performance, or if there is an effect, it may be influenced by other factors

---
title: "Energy In Music "    # Name of your HTML output
subtitle: "and how it Effects Streams"
author: "Perry Lampertius"    # Author name
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.
---

## Intoroduction

I'm going to perform an analyis on spotify data and determine if Songs with a higher energy percentage will have a higher number of streams.


```{r}
#| echo: FALSE            # Hide the code in this chunk in the output
library(tidyverse)
spotify_data <- read_csv("https://myxavier-my.sharepoint.com/:x:/g/personal/farmerj5_xavier_edu/Ee5fUBDiG7ZDg7DOyp1lhWMBwAKYi8Vat0P4eioOhsCmeg?download=1")
```

## Method

I'm going to perform an analyis on spotify data and determine if Songs with a higher energy percentage will have a higher number of streams


```{r}
spotify_data <- spotify_data %>%
  mutate(streams = as.numeric(streams))

spotify_data %>%
  mutate(streams = as.numeric(streams)) %>%  
  ggplot(aes(y = `energy_%`, x = streams)) +
  geom_point(color = "blue", alpha = 0.6) +  
  scale_x_log10(labels = scales::comma) +  
  labs(title = "Energy Percentage vs. Number of Streams",
       y = "Energy Percentage", 
       x = "Number of Streams")

```

## Interpretation

Based on the available data, there is no clear evidence of a correlation between the number of streams and the energy percentage of a song. This suggests that a song's energy level does not significantly impact its streaming performance, or if there is an effect, it may be influenced by other factors