Games

   Nombre =c    ("The Last of Us", "Red Dead Redemption II", "God of War", "Bloodborne",  "Uncharted 4") 
              Millones =c (6, 15, 8.5 ,10.9, 7.6)
              Desarrolladora    =c ("Naughty Dog", "Rockstar Games"                           , "Santa Monica Studios","From Software" ,"Naughty Dog" )
                     Género = c ("Exploración",                                                           "Rol", "Acción", "Exploración",  "Supervivencia")
          Copias =c (4.8, 10, 7.9, 15.5, 5)

Videojuego=data.frame (Nombre, Millones,Copias, Desarrolladora, Género, stringsAsFactors = F )

Videojuego

##                   Nombre Millones Copias       Desarrolladora
## 1         The Last of Us      6.0    4.8          Naughty Dog
## 2 Red Dead Redemption II     15.0   10.0       Rockstar Games
## 3             God of War      8.5    7.9 Santa Monica Studios
## 4             Bloodborne     10.9   15.5        From Software
## 5            Uncharted 4      7.6    5.0          Naughty Dog
##          Género
## 1   Exploración
## 2           Rol
## 3        Acción
## 4   Exploración
## 5 Supervivencia

Videojuego [order(Desarrolladora),]

##                   Nombre Millones Copias       Desarrolladora
## 4             Bloodborne     10.9   15.5        From Software
## 1         The Last of Us      6.0    4.8          Naughty Dog
## 5            Uncharted 4      7.6    5.0          Naughty Dog
## 2 Red Dead Redemption II     15.0   10.0       Rockstar Games
## 3             God of War      8.5    7.9 Santa Monica Studios
##          Género
## 4   Exploración
## 1   Exploración
## 5 Supervivencia
## 2           Rol
## 3        Acción

Videojuego [order(-Millones),]

##                   Nombre Millones Copias       Desarrolladora
## 2 Red Dead Redemption II     15.0   10.0       Rockstar Games
## 4             Bloodborne     10.9   15.5        From Software
## 3             God of War      8.5    7.9 Santa Monica Studios
## 5            Uncharted 4      7.6    5.0          Naughty Dog
## 1         The Last of Us      6.0    4.8          Naughty Dog
##          Género
## 2           Rol
## 4   Exploración
## 3        Acción
## 5 Supervivencia
## 1   Exploración

Videojuegos_2 = Videojuego [order(Género, -Millones ),] 
Videojuegos_2

##                   Nombre Millones Copias       Desarrolladora
## 3             God of War      8.5    7.9 Santa Monica Studios
## 4             Bloodborne     10.9   15.5        From Software
## 1         The Last of Us      6.0    4.8          Naughty Dog
## 2 Red Dead Redemption II     15.0   10.0       Rockstar Games
## 5            Uncharted 4      7.6    5.0          Naughty Dog
##          Género
## 3        Acción
## 4   Exploración
## 1   Exploración
## 2           Rol
## 5 Supervivencia

-¿Qué empresa desarrolló God of War?

          Videojuego[Videojuego$Nombre=='God of War',"Desarrolladora"]

## [1] "Santa Monica Studios"

-¿Qué empresa desarrolló el videojuego con más copias vendidas?

Videojuego[Videojuego$Copias== max(Videojuego$Copias),"Desarrolladora"]

## [1] "From Software"

-¿De qué género es el videojuego que menos ha recaudado?

  Videojuego[Videojuego$Millones== min(Videojuego$Millones),"Género"]

## [1] "Exploración"

¿Qué videojuego ha vendido más copias?

Videojuego[    Videojuego $Copias == max(Videojuego$Copias),"Nombre"]

## [1] "Bloodborne"

-¿Qué juegos, de los dados en la tabla, son considerados de exploración?

    Videojuego [Videojuego$Género ==  "Exploración" , "Nombre"]

## [1] "The Last of Us" "Bloodborne"