Ordenando Vetores

Parte da seção Lógica e Fluxo do Journey de R da Coddy. Lição 37 de 64.

sort(x) retorna os valores de x em ordem crescente, e decreasing = TRUE a inverte. O vetor original não é alterado:

scores <- c(72, 95, 60, 88)
print(sort(scores))
print(sort(scores, decreasing = TRUE))
print(scores)

Saída:

[1] 60 72 88 95
[1] 95 88 72 60
[1] 72 95 60 88

O texto é ordenado alfabeticamente. A ordem exata depende das configurações de idioma do sistema: no Coddy, assim como em muitos servidores, as letras maiúsculas vêm antes das minúsculas, então "Zed" é ordenado antes de "ada". Converta com tolower() quando o uso de maiúsculas e minúsculas não deve importar:

names <- c("cy", "Zed", "ada")
print(sort(names))
print(sort(tolower(names)))

Saída:

[1] "Zed" "ada" "cy" 
[1] "ada" "cy"  "zed"

rev(x) inverte a ordem atual sem ordenar, e head(x, n) mantém os primeiros n elementos, o que, junto com sort(), produz uma lista dos primeiros colocados:

scores <- c(72, 95, 60, 88)
print(rev(scores))
print(head(sort(scores, decreasing = TRUE), 2))

Saída:

[1] 88 60 95 72
[1] 95 88

Um vetor nomeado ordenado mantém cada nome com seu valor, portanto os nomes aparecem na ordem dos valores:

stock <- c(tea = 12, jam = 3, oil = 7)
low_first <- sort(stock)
print(names(low_first))
print(low_first[["jam"]])

Saída:

[1] "jam" "oil" "tea"
[1] 3

Desafio

Fácil

Complete top_scores(scores, n). Retorne as n maiores pontuações, da maior para a menor, unidas por , . Se houver menos de n pontuações, retorne todas elas.

O código fornecido lê as pontuações como uma linha separada por vírgulas e n, e imprime o valor retornado.

Experimente você mesmo

top_scores <- function(scores, n) {
  # Escreva seu código aqui
  ""
}

# Código de entrada/saída fornecido: mantenha-o como está
input <- suppressWarnings(readLines(file("stdin")))
cat(top_scores(as.numeric(strsplit(input[1], ",")[[1]]), as.numeric(input[2])), sep = "\n")