【R】switch文における文字列の扱い

Question

R言語において、動的な文字列を作成し、switchによる条件分岐処理を行いたいと考えています。
以下のように実装したのですが、

  for (model in models) {
    foo <- paste0(c("LSQI", "LSQU", "LS", "ME"), r-1)
    bar <- switch(names(analysResults[model]),
      foo[1] = "QI",
      foo[2] = "QU",
      foo[3] = "QS",
      foo[4] = "MH"
    )
  }

 エラー:  予想外の '=' です  in:
"    bar <- switch(names(analysResults[model]),
                  foo[1] ="
>                   foo[2] = "QU",
 エラー:  予想外の ',' です  in "                  foo[2] = "QU","
>                   foo[3] = "QS",
 エラー:  予想外の ',' です  in "                  foo[3] = "QS","
>                   foo[4] = "MH"
>     )
 エラー:  予想外の ')' です  in "    )"
> }
 エラー:  予想外の '}' です  in "}"

上記のエラーが発生します。foo[i]が任意の文字列だと問題なく動作するようで、配列を参照する形だとうまくいかないようです。（switchのドキュメントもこの辺りの記載はありませんでした）

冗長な書き方は避けたいのですが、何か解決策があればお教えいただけると幸いです。
何卒よろしくお願いします。

Answer 1

インデックスを使う方法はどうでしょうか。

r <- 0
models <- c("LS-1", "ME-1", "LSQI-1", "LSQU-1", "X-1")
for (model in models) {
    foo <- paste0(c("LSQI", "LSQU", "LS", "ME", NA), r-1)
    bar <- which(foo %in% model)
    bar <- if (length(bar) > 0) switch(bar, "QI", "QU", "QS", "MH") else NA
    print(bar)
}

#
[1] "QS"
[1] "MH"
[1] "QI"
[1] "QU"
[1] NA

Answer 2

names(analysResults[model]の値に応じて特定の値を得たい。ただしnames(...)の返す値はアルファベット数文字＋何か数字という形式で、返すべき値はアルファベット部分に対応しているということでしょうか。

私ならnames(...)の返り値のアルファベット部分を取り出して表引きで処理しますかね。
ちゃんとチェックしてませんが、こんな感じで。

foo <- read.table(text="
LSQI QI
LSQU QU
LS QS
ME MH", stringsAsFactors=F)

for (model in models) {
  bar0 <- gsub("\d+", "", names(analysResults[model]))
  bar <- foo[foo[1]==bar0, 2]
}

Comments

[velonica74]

まさしく仰る状況でした。ご回答ありがとうございました！