Alterar elementos selecionados do vetor de caracteres

Existe uma versão mais curta para o princípio folowing renomear certas colunas de um quadro de dados?

data1<-data.frame("a"=1:3,"b"=1:3,"c"=1:3)

data1Names<-names(data1)
data1Names[data1Names=="a"]<-"hello"
data1Names[data1Names=="c"]<-"world"
names(data1)<-data1Names