Actividad Imagina que estás haciendo un pequeño análisis sobre algunas de las canciones más escuchadas en 2025. Tienes información de cinco canciones populares, incluyendo el nombre del artista, la canción, las reproducciones en millones.Ten en mente que se paga 0.003 dólares por cada millón de reproducciones.

Datos Alejandro Sanz “Contigo” 7.67 millones de reproducciones Duran Duran “Comeundone” 250.8 millones de reproducciones Luis Miguel “Suave” 267.2 millones de reproducciones Auténticos decadentes “No me importa el dinero” 120 millones de reproducciones Maluma “Hawai” 1,585 millones de reproducciones

Instrucciones Crea un vector con los nombres de los artistas, otro vector con los títulos de las canciones y un tercer vector con el número de reproducciones (en millones) y otro vector de ingresos_dls. No olvide unir los vectores con Cbind/rbind y asigne un nuevo nombre.

nombre_artistas<-c("Alejandro Sanz","Duran Duran","Luis Miguel","Auténticos decadentes","Maluma")
nombre_artistas
## [1] "Alejandro Sanz"        "Duran Duran"           "Luis Miguel"          
## [4] "Auténticos decadentes" "Maluma"
titulos_canciones<-c("Contigo","Comeundone","Suave","No me importa el dinero","Hawai")
titulos_canciones
## [1] "Contigo"                 "Comeundone"             
## [3] "Suave"                   "No me importa el dinero"
## [5] "Hawai"
numero_reproducciones_millones<-c(7.67,250.8,267.2,120,1585)
numero_reproducciones_millones
## [1]    7.67  250.80  267.20  120.00 1585.00
pago_por_millon<-0.003
pago_por_millon
## [1] 0.003
ingresos_dls<-pago_por_millon*numero_reproducciones_millones
ingresos_dls
## [1] 0.02301 0.75240 0.80160 0.36000 4.75500
arreglo_tarea<-cbind(nombre_artistas,titulos_canciones,numero_reproducciones_millones,ingresos_dls)
arreglo_tarea
##      nombre_artistas         titulos_canciones        
## [1,] "Alejandro Sanz"        "Contigo"                
## [2,] "Duran Duran"           "Comeundone"             
## [3,] "Luis Miguel"           "Suave"                  
## [4,] "Auténticos decadentes" "No me importa el dinero"
## [5,] "Maluma"                "Hawai"                  
##      numero_reproducciones_millones ingresos_dls
## [1,] "7.67"                         "0.02301"   
## [2,] "250.8"                        "0.7524"    
## [3,] "267.2"                        "0.8016"    
## [4,] "120"                          "0.36"      
## [5,] "1585"                         "4.755"