列表列映射的意外输出

以下是我的代码的输出以及我想要的输出。我只希望打印每个字符向量，但是它会同时打印两个字符向量，然后还会打印出整个列表列。为什么会发生这种情况，我该如何更改才能获得所需的输出？

library(tidyverse)

data <- tribble(
  ~x,  ~y,
  "a", rep("yes", 10),
  "b", rep("no", 10)
)

map(data$y, ~ print(.x))
#>  [1] "yes" "yes" "yes" "yes" "yes" "yes" "yes" "yes" "yes" "yes"
#>  [1] "no" "no" "no" "no" "no" "no" "no" "no" "no" "no"
#> [[1]]
#>  [1] "yes" "yes" "yes" "yes" "yes" "yes" "yes" "yes" "yes" "yes"
#> 
#> [[2]]
#>  [1] "no" "no" "no" "no" "no" "no" "no" "no" "no" "no"

所需的输出：

#>  [1] "yes" "yes" "yes" "yes" "yes" "yes" "yes" "yes" "yes" "yes"
#>  [1] "no" "no" "no" "no" "no" "no" "no" "no" "no" "no"

^{由reprex软件包（v1.0.0）创建于2021-02-14}