---
title: "Ejercicio práctico Rmarkdown"
author:
    - names: "María Hurtado de Mendoza"
date: "`r Sys.Date()`" 
output: 
    distill::distill_article:
        highlight: kate
        code_folding: false  
        toc: true     
        toc_depth: 3
        css: styles.css         
editor_options: 
  chunk_output_type: console
---

```{r setup, include = FALSE}

knitr::opts_chunk$set(echo = FALSE)

# Cargar los paquetes necesarios
library(tidyr)
library(dplyr)

# Cargar los datos
data <- read.csv("data/top10s.csv")

```

# Informe hits de Spotify 2010-2019

## Datos

Top Spotify Songs 2010-2019

<https://www.kaggle.com/datasets/leonardopena/top-spotify-songs-from-20102019-by-year/>

## Artistas con más éxitos

```{r top_artists}

data %>% dplyr::count(artist) %>% arrange(desc(n)) %>% head()

```

## Estilos con más éxitos

```{r top_genres}

data %>% dplyr::count(top.genre) %>% arrange(desc(n)) %>% head()

```

## Tendencia de la duración de los hits

```{r duration_trend, fig.width=8, fig.height=6}

plot(dur ~ year, data = data)
abline(lm(dur ~ year, data = data))

```


El grafico sigue una tendencia descendente. Muchas gracias