andrea_oposicion.R

library(tibble)
library(dplyr)

nombre <- c("barbastro", "teruel", "fuerteventura", "la palma", "talavera", "cuenca", "placencia", "la rioja", "burgos", "soria", "avila")
puntuacion <- c(6.61, 6.22, 6.65, 7.14, 6.72, 7.01, 7.04, 7.17, 7.21, 7.06, 7.35)
plazas <- c(16, 13, 5, 3, 14, 7, 8, 19, 5, 4, 4)

dt <- data.frame(
  nombre = nombre,
  puntuacion = puntuacion,
  plazas = plazas
)

dt %>%
  arrange(puntuacion, plazas)