我有一些字符串观察值需要重新排序，以便它们遵循下面的模型（nbexp1）
nbexp1 <- c('no 1b', 'xyz Str', 'close to xyz', 'Abeokuta','Ogun state')
即，包含数字的字符串排在最前面，然后包含“ Street”或“ Str”，“ Road”或“ Rd”的字符串排在第二，然后是包含“ close”或“ near”的字符串，然后是位置（Abeokuta，伊拉拉（Sango），然后是国家（Ogun）。 我如何创建一个函数来转换R中的以下观察结果
nbexp2 <- c('cbd Street near', 'ogd', 'Ilara', 'Ogun State')
nbexp3 <- c('18 xyz road','near to ogd busstop', 'Sango otta', 'ogun state')
nbexp4 <- c("Uche compd", "no 2 along laderin", "Abeokuta ogun state")