给定一个字符序列
shopping_list <- c("apples x4", "bag of flour",
                   "bag of sugar", "milk x2")
1. 提取苹果的数量
2. 提取买的最后一样物品和数量
3. 提取所有买的物品