r - map と purrr を使用して listcolumn 内で NA を割り当てます

Question

library(tidyverse)    
k<-data_frame(u=c("A","B"),l=c(list(c(1,5,4)),list(c(7,5,1))))

listcolumn l の 2 未満のすべての値を NA に設定したいと思います。map を使用して purrr-world 内でこれを行うにはどうすればよいですか?

map(k$l,~.x[.x<2]<-NA)

エラーをスローします。

アップデート：

k %>% mutate(o=map(l, ~(.x[.x<2]<-NA)))

追加の列が表示されますが、listcolumn の各要素に 2 つの数値と 1 つの NA が含まれているわけではありません

更新 II: Replace は私の友人であり、トリックを実行します。

k %>% mutate(o=map(l, ~replace(.x,.x<2,NA)))

Answer 1

k %>% mutate(o=map(l, ~replace(.x,.x<2,NA)))

最後の編集で述べたように、上記のコマンドは私の問題を解決します。上記のコメントによる提案の後に投稿されました。