Base R解决方案:这适用于您提供的示例字符串。您需要测试这是否适用于您的其他情况。包含多个样本字符串会很不错。
ss <- "Valero 1810 N Foster Rd & IH-10 E"; station_id <- trimws(gsub("(\\w+\\s+){1,3}(\\d+.+)$", "\\1", ss)); address <- gsub("(\\w+\\s+){1,3}(\\d+.+)$", "\\2", ss); station_id; #[1] "Valero" address; #[1] "1810 N Foster Rd & IH-10 E"