library(magrittr)
x <- c("土地1建物2車位3", "土地11建物22車位33")
x %>%
  gsub("土地", "", .) %>%   # 刪除 "土地"
  strsplit("建物|車位") %>% # 在 "建物" 或 "車位" 切開
  sapply(., as.numeric) %>% # 字𧮥轉成數字
  t
#      [,1] [,2] [,3]
# [1,]    1    2    3
# [2,]   11   22   33