---
title: "Saturno"
output: 
  flexdashboard::flex_dashboard:
    source: embed
    orientation: rows 
    vertical_layout: fill
    theme: cosmo
    logo: descarga.jpg
    social: [ "twitter", "facebook", "menu"]
---

# Pablo Alborán {data-icon="fa-glass"}

## 

### Biografia

Pablo Moreno de Alborán Ferrándiz (Málaga, 31 de mayo de 1989) es un cantautor y músico español. Desde su debut obtuvo veinticuatro candidaturas a Premios Grammy Latinos, tres en 2011. El cantante ha lanzado seis álbumes de estudio, dos álbumes en vivo, treinta y cuatro sencillos, veintinueve videos musicales y varias colaboraciones musicales. Sus materiales discográficos son distribuidos por Warner Music Group. Debutó en 2010 con el lanzamiento de su primer sencillo «Solamente tú», el cual fue incluido en su álbum debut homónimo, dicho álbum fue lanzado en febrero de 2011 y alcanzó el primer puesto en su primera semana en ventas, siendo el primer artista solista en debutar en lo más alto en España desde 1998.

Nueve meses después de lanzar su primer álbum publicó En acústico, primer concierto grabado en vivo por el cantante que debutó en el primer puesto en España. Varias semanas después se lanzó en Portugal consiguiendo ser número uno durante varias semanas. De sus sencillos destacan dos:«Solamente tú» y «Perdóname» junto a la cantante Carminho, pertenecientes a los discos, Pablo Alborán y En acústico respectivamente siendo números uno en ventas tanto en España como en Portugal.

Según la compañía Parlophone, Pablo Alborán ha vendido más de un millón de ejemplares de sus tres primeros discos en el mundo y en dos años y medio de trayectoria siendo el artista más vendido en Portugal en 2012 y España por dos años consecutivos(2011 y 2012)sumando 30 discos de platino en Europa(23 conseguidos en 24 meses),dos discos de oro en América y uno en Portugal. Ha permanecido número uno en ventas durante 36 semanas en Portugal(con sus discos Tanto y En acústico)y 60 semanas en España(con sus tres discos)96 semanas como número uno en ventas de discos en esos dos países. Pablo Alborán también ha sido ganador de Premio Goya en 2016 por su canción Palmeras en la nieve, banda sonora de la película con mismo título junto al compositor Lucas Vidal. El 2 de diciembre de 2022 sacó a la venta su sexto álbum de estudio, "La Cuarta Hoja".

® Manolo Meza Rodriguez [20221406\@lamolina.edu.pe](mailto:jsalinas@lamolina.edu.pe){.email}

## 

### Historia de la canción

«Saturno» es una balada grabada e interpretada por el cantautor español Pablo Alborán. Es uno de los dos primeros sencillos de su nuevo álbum, ambos lanzados el 8 de septiembre de 2017. Está incluido en su cuarto álbum de estudio Prometo (2017).

También es el tema central de la telenovela mexicana Caer en tentación (2017), en México se convirtió en el sencillo de mayor venta en el país para Pablo Alborán y el segundo más radiado desde Solamente tu (2011).

### 

![](images/Captura%20de%20pantalla%202023-06-29%20152412-02.png)

![]()



> Fuente: Wikipedia

# Nube de palabras {data-icon="fa-music"}

```{r paquetes, include= FALSE}
library(pacman)
p_load(tidyverse, tidytext, tm, wordcloud,
       wordcloud2, pdftools, patchwork,
       widyr,dplyr,magrittr,flexdashboard,plotly)

discurso1 <- scan("saturno1.txt",
                   encoding = "latin1", what = "char",
                   sep = "\n")  # UTF-8 # ASCII #@~

library(tidytext)
library(tm)
discurso1 <- tibble(discurso1) %>% 
             unnest_tokens(Token, discurso1) %>% 
             mutate(Token= removeNumbers(Token)) # Del paquete tm

library(readxl)
stopwords_es_1 <- read_excel("CustomStopWords.xlsx")
names(stopwords_es_1) <- c("Token","Fuente")

stopwords_es_2 <- tibble(Token= c("tarda"),Fuente="Mis StopWords")
stopwords_es   <- rbind(stopwords_es_1, stopwords_es_2)
stopwords_es   <- stopwords_es[!duplicated(stopwords_es$Token),]

# Removiendo los stopwords
discurso1 <- discurso1 %>% anti_join(stopwords_es)

#discurso1$Token = str_replace(discurso1$Token, "peru", "país")

#str_replac(donde, remplazado, reemplazante)
#discurso1$Token = str_replace(discurso1$Token, "peruanos", "peruanas")


# Paso 4. Contar cuántas veces aparece cada palabra.

#####Obteniendo frecuencias por palabra#####
discurso1_frecuencias <- discurso1 %>%
                         dplyr::count(Token, sort = TRUE)
#dplyr::count()
#la funcion count del paquete dplyr sirve para sacar las 
#frecuencias y su argumento sort= de mayor a menor frecuención


```

## 

### 

```{r}
valueBox("Saturno", 
         icon = "fa-music",
         caption = "letras.com",
         color = "danger")
```

## 

### 

```{r}
grafico1A <- discurso1_frecuencias %>% 
             top_n(10) %>% 
             ggplot() + aes(x = fct_reorder(Token, n), 
                            y = n,fill=Token) +
             geom_col() +
             labs(x = NULL, y = "Frecuencia", 
                  title = "Saturno") +
             theme_minimal() +
             theme(legend.position = "none") + 
             coord_flip() +
   theme(legend.position = "none")
grafico1A
ggplotly()

```

### 

```{r}
library(wordcloud)
set.seed(123)
wordcloud(words= discurso1_frecuencias$Token,
          freq = discurso1_frecuencias$n,
          max.words = 100,
          random.order = FALSE,
          min.freq = 1,
          colors=brewer.pal(5,"Dark2"))

```

# Analisis de sentimientos {data-icon="fa-pen"}

## 

### 

```{r}
sentimientos <- read.delim("sentimientos_2.txt")
                    

sentimientos <- as.tibble(sentimientos)

sentimientos <- distinct(sentimientos)



sentimientos %>% ggplot() + 
  aes(sentimiento,fill=sentimiento) + 
  geom_bar(show.legend = F) + theme_bw() + coord_flip() +
  labs(title= "Frecuencia de sentimientos del diccionario NRC",
       x = "Sentimiento",
       y= "Frecuencia") +
   theme(legend.position = "none")
  
ggplotly()

```

### 

```{r}
set.seed(2021)
wordcloud2(discurso1_frecuencias, 
           size = 0.7,
           shape = 'circule')
```