R usuń ostatnie słowo z łańcucha

Próbuję coś zrobić, ale nie pamiętam / nie znajduję odpowiedzi. Mam listę nazw miast z Biura Spisu Ludności i umieszczają typ miasta na końcu, co psuje mojematch().

Chciałbym to zrobić:

Middletown Township
Sunny Valley Borough
Hillside Village

zaangażowany w to:

Middletown
Sunny Valley
Hillside

Jakieś sugestie? Idealnie chciałbym również wiedzieć, czy istniejelastIndexOf() funkcja w R.

Oto dput:

> dput(df1)
structure(list(id = c(1, 2, 3), city = structure(c(2L, 3L, 1L
), .Label = c("Hillside Village", "Middletown Township", "Sunny Valley Borough"
), class = "factor")), .Names = c("id", "city"), row.names = c(NA, 
-3L), class = "data.frame")

questionAnswers(2)

yourAnswerToTheQuestion