In this case, sort() works :

> vec <- c("x", "y", "z")
> vec <- sort(c(vec, paste0(vec, ".1")))
> vec
[1] "x"   "x.1" "y"   "y.1" "z"   "z.1"