purrr :: map`函数的变更输出 我有这个小功能，并希望使用purrr :: map（）将其应用于数据集。它可以做我希望它能做的事情，但是在输出后，它也打印出一个我不想要的null列表。我想要...

Question

NULL

列表。我想了解为什么会发生这种情况以及如何抑制额外的输出。

toy <- data.frame(V1 = rnorm(10), V2 = rnorm(10))
varlabs <- data.frame(variable = c("V1", "V2"), label = c("Var 1", "Var 2"))

describe <- function(x) {
   require(dplyr)
   require(ggplot2)
   lab <- filter(varlabs, variable == x) |> pull(label)
   s <- summary(toy[, x])
   cat("Describing variable", lab, "\n\n")
   print(s)
   cat("\n------------------------------\n")
}

purrr::map(names(toy), describe)
#> Loading required package: dplyr
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union
#> Loading required package: ggplot2
#> Describing variable Var 1 
#> 
#>    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
#> -0.9447 -0.3762  0.3521  0.2463  0.9040  1.3298 
#> 
#> ------------------------------
#> Describing variable Var 2 
#> 
#>    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
#> -1.5429 -1.0039 -0.6099 -0.5736 -0.2366  0.4436 
#> 
#> ------------------------------
#> [[1]]
#> NULL
#> 
#> [[2]]
#> NULL

在2025-03-08创建

reprexv2.1.0

^{在描述（），最后一个表达式是cat（“” ------------------------------------------ ”），返回null为cat（）返回无形的null} 您可以1）使用walk（）而不是map（）

Answer 1

add

invisible()

dricesd（）

2. 您可以使用

   cat("\n------------------------------\n")
   ，这是
return(s)
3. the the the the Report falue。

   walk()