R：根据字段值向数据帧添加列

Question

我有一个包含几个因子字段的数据框：

data<-read.csv(text="ware,continent,val
snake,Europe,10
snake,America,15
snail,Europe,7
snail,America,12
mosquito,Europe,13
mosquito,America,5")

我需要在数据中添加一个列，名为max.val，对于共享相同＆＃34; ware＆＃34;的所有条目都是相同的。领域。也就是说，我需要分别为ware值c("snake","snail","mosquito")分配值c(25,22,18)的条目。最终的数据框是

ware, continent, val, max.val
snake,Europe,10,25
snake,America,15,25
snail,Europe,7,22
...

我知道这可以通过构造来解决：

library(dplyr)
data.2<-data %>% group_by(ware) %>% mutate(max.val=...) %>% ungroup()

如何根据字段c(25,22,18)的因子值从列表ware安排此分配？