Récapitulatifs des lignes et des colonnes

Fait partie de la section Logique et flux d’exécution du Journey R de Coddy. Leçon 19 sur 64.

rowSums() et rowMeans() renvoient un résultat par ligne ; colSums() et colMeans(), un par colonne. Ici, chaque ligne représente un étudiant et chaque colonne un test :

scores <- matrix(c(80, 90, 70, 60, 75, 85), nrow = 2, byrow = TRUE)
print(rowMeans(scores))
print(colSums(scores))

Résultat :

[1] 80.00000 73.33333
[1] 140 165 155

Pour tout autre résumé, apply(m, 1, f) appelle f sur chaque ligne et apply(m, 2, f) sur chaque colonne :

scores <- matrix(c(80, 90, 70, 60, 75, 85), nrow = 2, byrow = TRUE)
print(apply(scores, 1, max))
print(apply(scores, 2, min))

Résultat :

[1] 90 85
[1] 60 75 70

Combinez un résumé avec which.max() pour trouver quelle ligne ou colonne l’emporte :

scores <- matrix(c(80, 90, 70, 60, 75, 85), nrow = 2, byrow = TRUE)
best_test <- which.max(colMeans(scores))
print(best_test)
print(round(rowMeans(scores), 1))

Résultat :

[1] 2
[1] 80.0 73.3

apply() accepte également une fonction que vous écrivez directement avec function(r). Ici, elle compte les valeurs supérieures à 5 dans chaque ligne :

m <- matrix(c(3, 8, 1, 9, 2, 7), nrow = 2, byrow = TRUE)
print(apply(m, 1, function(r) sum(r > 5)))

Sortie :

[1] 1 2

Défi

Facile

Complétez class_report(scores). Chaque ligne de scores correspond à un étudiant et chaque colonne à un test. Renvoyez une ligne par étudiant, Student 1: 81.7, avec la moyenne de l’étudiant arrondie à une décimale. Ajoutez une dernière ligne Best test: suivie du numéro de la colonne ayant la moyenne la plus élevée.

Le code fourni lit une matrice sur une ligne : les lignes sont séparées par ; et les valeurs d’une ligne par , ; ainsi, 1,2;3,4 est une matrice dont les lignes sont 1 2 et 3 4. Le code affiche chaque ligne renvoyée.

Essayez vous-même

class_report <- function(scores) {
  # Écrivez votre code ici
  character(0)
}

# Code d'entrée/sortie fourni : gardez-le tel quel
input <- suppressWarnings(readLines(file("stdin")))
parse_matrix <- function(line) {
  rows <- strsplit(line, ";")[[1]]
  matrix(as.numeric(unlist(strsplit(rows, ","))), nrow = length(rows), byrow = TRUE)
}
cat(class_report(parse_matrix(input[1])), sep = "\n")