可以按英尺分割字符串（'6 foot 10'〉〉c(6, 10)），然后Map所有项，将它们解析为数字，如果它们的长度为2（即字符串分割的结果），则将它们乘以转换率。

library(tidyverse)
df$v1 %>%
  strsplit(" foot ") %>%
  map_dbl(function(num){
    num = parse_number(num)
    if(length(num) == 2) {sum(num * c(30.48, 2.54))} else {num}})

[1] 100.00 208.28 200.00 180.34

另一个选择，但在我看来不太优雅，是使用stringr::str_replace_all将'6 foot 10'更改为'6*30.48 + 2.54*10'（将#英尺和#英寸乘以它们的转换率），然后使用eval + parse（使用sapply或purrr::map之类的Map函数，因为这些函数没有矢量化）将这些字符串作为表达式进行计算。

df$v1 %>%
  str_replace_all(c(" cm" = "", " foot " = "*30.48 + 2.54*")) %>%
  map_dbl(~ parse(text = .x) %>% eval())

[1] 100.00 208.28 200.00 180.34

也许是这样的（与tidyverse）：

df %>%  mutate(
  units = case_when(
    str_detect(v1, ".cm") ~ "cm",
    str_detect(v1, ".foot") ~ "foot"
  )
)

然后，您将得到一个单位列，并基于该列应用转换因子。