从每个列表的特定列中减去一个值'；R中的s数据帧

我有一个包含12个元素（数据帧）的大列表。每个数据帧具有相同数量的行和列。 我想从列AMOUNT的每一行中减去value=150。必须对列表中的所有数据帧执行此操作。 下面是数据帧的一个示例

df1
NAME   TIME  AMOUNT
1       20     456
2       30     345
3       15     122
4       12     267

---

我们可以使用

lappy

在

列表上循环，并从“金额”列中减去150

lapply(lst1, transform, AMOUNT = AMOUNT -150)


或者使用
tidyverse

library(tidyerse)
map(lst1, ~ 
           .x %>%
               mutate(AMOUNT = AMOUNT - 150))