Есть ли более простой способ перевода чисел в строки?

Question

a вектор в R

> a <- c(1, 2, 3, 3, 2, 3, 1, 2, 1) 

, что я хочу, чтобы «перевести» в (временный) вектор строк так, что 1 становится "foo", 2 становится "bar" и 3 становится "baz".

я могу добиться этого с sapply:

> sapply(a, function(x) {if (x==1) return ('foo'); if (x==2) return ('bar'); return ('baz')}) 

[1] "foo" "bar" "baz" "baz" "bar" "baz" "foo" "bar" "foo" 

Однако, я думаю, что должен быть альтернативный способ сделать это без (то, что я воспринимаю как злоупотребляя) sapply. Это так?

Answer 1

Просто попробуйте:

c("foo","bar","baz")[a] 
#[1] "foo" "bar" "baz" "baz" "bar" "baz" "foo" "bar" "foo" 

Answer 2

Другим очевидным решением является считать данные факторы:

factor(a, c(1, 2, 3), c("foo", "bar", "baz")) 
# [1] foo bar baz baz bar baz foo bar foo 
# Levels: foo bar baz 

Wrap с as.character для представления символов:

as.character(factor(a, c(1, 2, 3), c("foo", "bar", "baz"))) 
# [1] "foo" "bar" "baz" "baz" "bar" "baz" "foo" "bar" "foo"