address <- c("890 layton drive, wilmington de 19805",
"227 weehawken place suite 145, comstock ny 78956",
"13 airport highway, new castle de 19720",
"3640 New Hampshire Ave NW Apt 207, Washington DC 20011").

sweet <- function(x) mapvalues(x, c("plaza", "street", "suite", "drive", "boulevard", "place",
                               "south", "north", "west", "east", "square", "avenue", "road",
                               "floor", "parkway", "circle", "highway"),
                          c("plz", "st", "ste", "dr", "blvd", "pl",
                            "s", "n", "w", "e", "sq", "ave", "rd",
                            "flr", "pkwy", "cir", "hwy"))

address <- sapply(address, sweet)