подмножество и переименование векторных элементов

Question

Я, должно быть, делаю какую-то наивную ошибку, но не могу понять, почему мой код не работает должным образом:

testVector<- c('a', 'a', 'a', 'b', 'b', 'b')

names(testVector)<- replicate(n = 6, expr = 'temp')

##The following does not work, but does not give any error:
names(testVector[testVector=='a'])<- replicate(n = 3, expr = 'tempA')
#
names(testVector[testVector=='a'])
# [1] "temp" "temp" "temp"

Кажется, что часть поднабора правильна, я не понимаю, почему это не такхотя меняю имена.Чего мне не хватает?

Answer 1

Вам нужно установить подмножество names

names(testVector)[testVector=='a'] <- replicate(n = 3, expr = 'tempA')

testVector
#tempA tempA tempA  temp  temp  temp 
#  "a"   "a"   "a"   "b"   "b"   "b"