主页 / coding / 问题 / 79494597
Accepted
Claudio
Asked: 2025-03-08 23:33:50 +0800 CST

更改 `purrr::map` 函数的输出

  • 772

我有这个小函数，想使用 将它应用到数据集purrr::map()。它按我的预期执行，但在输出后它还会打印一个 列表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，使用reprex v2.1.0

3 个回答

  1. 在 describe() 中，最后一个表达式是 cat("\n------------------------------\n")，它返回 NULL，因为 cat() 不可见地返回 NULL

    你可以 1）使用 walk() 代替 map()

    1. 添加invisible()​cat("\n------------------------------\n")

    2. 添加return(s)describe()

    • 4
  2. Best Answer

    您可以使用walk()，其map()返回值被抑制invisible()。

    purrr::walk(names(toy), describe)

Describing variable Var 1 

   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
-1.5025 -0.1849  0.4309  0.2586  0.8135  1.3003 

------------------------------
Describing variable Var 2 

    Min.  1st Qu.   Median     Mean  3rd Qu.     Max. 
-0.51539  0.05476  0.19852  0.37863  0.78792  1.28135 

------------------------------
    • 4

  3. 这种情况并不常见。不过，我建议使用 vanilla R。

    describe = \(v) {
  m = varlabs$label[varlabs$variable==v]
  cat("Describing variable", m, "\n\n")
  print(summary(toy[v]))
  cat("\n------------------------------\n")
}
# > and how to suppress the additional output.
lapply(names(toy), describe) |> invisible() 

    Describing variable Var 1 

       V1          
 Min.   :-1.59126  
 1st Qu.:-0.82428  
 Median :-0.08884  
 Mean   :-0.07803  
 3rd Qu.: 0.67716  
 Max.   : 1.38914  

------------------------------
Describing variable Var 2 

       V2         
 Min.   :-1.4352  
 1st Qu.:-0.6911  
 Median : 0.2112  
 Mean   : 0.1723  
 3rd Qu.: 0.8825  
 Max.   : 1.7645  

------------------------------
    • 0

相关问题