Data Analysis Activity

library(tidyverse)

## Warning: package 'tidyverse' was built under R version 4.2.3

## Warning: package 'ggplot2' was built under R version 4.2.3

## Warning: package 'tibble' was built under R version 4.2.3

## Warning: package 'tidyr' was built under R version 4.2.3

## Warning: package 'readr' was built under R version 4.2.3

## Warning: package 'dplyr' was built under R version 4.2.3

## Warning: package 'lubridate' was built under R version 4.2.3

## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.1     ✔ readr     2.1.4
## ✔ forcats   1.0.0     ✔ stringr   1.5.0
## ✔ ggplot2   3.4.2     ✔ tibble    3.2.1
## ✔ lubridate 1.9.2     ✔ tidyr     1.3.0
## ✔ purrr     1.0.1     
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the ]8;;http://conflicted.r-lib.org/conflicted package]8;; to force all conflicts to become errors

data <- read.csv("C:\\Users\\RAJ\\Downloads\\a.csv")


#Amount of spoken Words Visualization
data%>%
  ggplot(aes(spch,pop))+geom_bar(stat='identity')+xlab('Amount of spoken words')+ylab('Popularity')

#Loudness
data%>%
  ggplot(aes(dnce,dB))+geom_bar(stat='identity')+xlab('Danceability')+ylab('Loudness')

#Song Duration
data%>%
  ggplot(aes(dur,top.genre))+geom_bar(stat='identity')+xlab('Duration')+ylab('Top Genre')

#Energy of the Song
data%>%
  ggplot(aes(nrgy,top.genre))+geom_bar(stat='identity',size=2, col='red')+xlab('Energy of Every Song')+ylab('Top Genre')

## Warning: Using `size` aesthetic for lines was deprecated in ggplot2 3.4.0.
## ℹ Please use `linewidth` instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.

# Which artist are most popular
data1=data[order(data$pop, decreasing=TRUE),]