x <- c("aa-bbb-cccc", "aa-vvv-vv", "aa-ddd")
 sub("^([^-]*-[^-]*).*", "\\1", x)