如何将数值赋给R中列内的新单词

Question

我在R中将值分配给这样的水果列表。

#input csv of fruits

fruits
 apple
 pineapple
 orange
 pear

fruits <- data.frame(fruits = c("apple", "pineapple", "orange", "pear"))

mapping <- c("apple" = 1, "orange"= 10, "pear" = 5,"pineapple" = 11)

fruits$value <- mapping[fruits[,1]]

#output

fruits     value
 apple     1
 pineapple 11
 orange    10
 pear      5

当水果列表更新时，例如通过添加芒果和猕猴桃，我希望任何可能的意外水果单词/文本被分配数值1而不必将该特定单词添加到映射。

使用新的水果运行代码会输出这个。

fruits     value
 apple     1
 pineapple NA
 orange    11
 pear      NA
 mango     5
 kiwi      10

fruits2 = data.frame(fruits = 
  c("apple", "pineapple", "orange", "pear", "mango", "kiwi"))

我希望NA与芒果和猕猴桃一样，但它们不是。

怎么办我将值1分配给原始映射中未包含的新水果？

谢谢