名前の反復処理

CoddyのRジャーニー「ロジックとフロー」セクションの一部。レッスン 10/64。

for ループで names(x) を反復するとすべてのキーを訪問し、x[[key]] でそのキーに対応する値を取得できます：

scores <- c(ada = 91, bo = 78, cy = 85)
for (name in names(scores)) {
  cat(name, "scored", scores[[name]], "\n")
}

出力：

ada scored 91 
bo scored 78 
cy scored 85

エントリは追加された順序を維持します。アルファベット順にするには、sort(names(x)) をループします：

scores <- c(cy = 85, ada = 91, bo = 78)
for (name in sort(names(scores))) {
  cat(name, scores[[name]], "\n")
}

出力：

ada 91 
bo 78 
cy 85

入力をループ処理し、ルックアップテーブルを更新すると、各値が何回現れるかを数えられます。単語が初めて出現したときは 1 になり、その後は 1 ずつ増えていきます。

words <- c("red", "blue", "red", "green", "red")
counts <- c()
for (w in words) {
  if (w %in% names(counts)) {
    counts[w] <- counts[w] + 1
  } else {
    counts[w] <- 1
  }
}
print(counts[["red"]])
print(names(counts))

出力:

[1] 3
[1] "red"   "blue"  "green"

出力行を作成するには、ループ内でそれらをベクトルに集め、最後に返すか出力します。

scores <- c(ada = 91, bo = 78)
lines <- c()
for (name in names(scores)) {
  lines <- c(lines, paste0(name, ": ", scores[[name]]))
}
cat(lines, sep = "\n")

出力：

ada: 91
bo: 78

チャレンジ

簡単

word_counts(words)を完成させてください。異なる単語ごとに1行を返し、アルファベット順に並べ、word: countの形式にしてください。

提供されたコードは、単語をスペースで区切られた1行として読み取り、返された各行を出力します。

自分で試してみよう

word_counts <- function(words) {
  # ここにコードを書いてください
  character(0)
}

# 提供された入出力コード：そのままにしておいてください
input <- suppressWarnings(readLines(file("stdin")))
cat(word_counts(strsplit(input[1], " ")[[1]]), sep = "\n")