如何得到？

aaa<-data.frame(x=c(1,2,3),y=c(0.8,1.8,2.8),z=c(1.2,2.2,3.2))
希望得到的结果为
x     y    z     z1
1   0.8  1.2  1(0.8,1.2)
2   1.8  2.2  2(1.8,2.2)
3   2.8  3.2  3(2.8,3.2)
谢谢！

z1 <- paste(aaa$x, "(", aaa$y, ",", aaa$z, ")", sep = "")
aaa$z1 <- z1