purrr相当于lapply返回多元素列表?

ind <- vector(mode="list", 10)
  for(i in seq(ind)){
    ind[[i]]$alive <- 1 
    ind[[i]]$sex <- sample(c("female","male"),1) 
    ind[[i]]$age <- round(runif(1, min=1, max=10))
  }
ind

使用lapply,我可以增加每个人的年龄,并获得个人列表及其所有属性:

lapply(ind,function(x){x$age <- x$age+1; x})

purrr中是否有一个映射函数可以做同样的事情(提供与Lappy相同的输出)?当我使用map()时,我只返回一个年龄列表,而不是每个人的所有属性:

map(ind, ~.$age+1)