Resumos de Grupos

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

tapply(values, groups, f) agrupa os valores e aplica f a cada grupo em uma única chamada. Ele produz o mesmo resultado que sapply(split(values, groups), f):

amounts <- c(10, 20, 30, 40)
category <- c("food", "rent", "food", "fun")
print(tapply(amounts, category, sum))
print(tapply(amounts, category, max))

Saída:

food  fun rent 
  40   40   20 
food  fun rent 
  30   40   20

O resultado é nomeado por grupo em ordem classificada, então [[ ]] acessa um grupo e names() lista os grupos:

amounts <- c(10, 20, 30, 40)
category <- c("food", "rent", "food", "fun")
avg <- tapply(amounts, category, mean)
print(avg[["food"]])
print(names(avg))

Saída:

[1] 20
[1] "food" "fun"  "rent"

A função de resumo pode ser definida por você. Aqui, ela conta os pedidos acima de 25 em cada grupo:

amounts <- c(10, 20, 30, 40)
category <- c("food", "rent", "food", "fun")
print(tapply(amounts, category, function(v) sum(v > 25)))

Saída:

food  fun rent 
   1    1    0

O resultado é um vetor nomeado, portanto sort() e which.max() encontram o maior grupo. which.max() fornece o primeiro valor entre os valores iguais:

amounts <- c(10, 20, 30, 40, 5)
category <- c("food", "rent", "food", "fun", "rent")
totals <- tapply(amounts, category, sum)
print(names(totals)[which.max(totals)])
print(names(sort(totals, decreasing = TRUE)))

Saída:

[1] "food"
[1] "food" "fun"  "rent"

Desafio

Fácil

Complete city_report(cities, temps). Retorne uma linha por cidade em ordem alfabética, oslo: avg 4.5, max 9, com a temperatura média arredondada para uma casa decimal e a temperatura mais alta. Em seguida, adicione Warmest: seguido pela cidade com a maior média (a primeira em ordem alfabética quando as médias empatarem).

O código fornecido lê as cidades e as temperaturas como duas linhas separadas por vírgulas, de mesmo comprimento, e imprime cada linha retornada.

Experimente você mesmo

city_report <- function(cities, temps) {
  # Escreva seu código aqui
  character(0)
}

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