exemplo <- c("Rua Pajé, 30, apto 44", "Av. Brasil,55, blocoB") gsub("^([^,]+,[^,]+),.*$", "\\1", exemplo)