user18894435's questions

以下玩具数据有 5 个变量，X1至X5。

set.seed(123)
df <- data.frame(matrix(rnorm(500), 100, 5))

我想使用purrr样式 lambda 公式的命名列表对特定变量执行特定操作

fun_list <- list(
  X2 = ~ quantile(.x, c(0.1, 0.9), na.rm = TRUE),
  X4 = ~ fivenum(.x, na.rm = TRUE)
)

我怎样才能根据其变量名称应用于fun_list我的？df

我知道rlang::as_function()可以将purrr样式的公式转换为 R 函数。但我猜有些函数能够从本质上处理purrr样式的公式。它的用法可能是

execute(fun_list, environment = df)

预期输出为

$X2
      10%       90% 
-1.289408  1.058432 

$X4
[1] -2.465898194 -0.737146704 -0.003508661  0.693634712  2.571458146

从?options描述中warn可以看出

如果发出了 10 个或更少的警告，则会打印这些警告，否则会显示一条消息，说明发出了多少个警告。

因此，如果有超过 10 条警告，它们将被压缩为 1 条消息。例如：

f <- function() {
  warning("warn 1")
  warning("warn 2")
  warning("warn 3")
  warning("warn 4")
  warning("warn 5")
  warning("warn 6")
  warning("warn 7")
  warning("warn 8")
  warning("warn 9")
  warning("warn 10")
  warning("warn 11")
  return(1)
}

f()

[1] 1
共有 11 条警告（使用 warnings() 查看）

我怎样才能将 10 的限制减少到 1？即即使我只有一个警告，我也希望它显示

有 1 条警告（使用 warnings() 查看）

我正在使用 进行一些数据操作tapply()，它返回一个list类似对象。例如：

x <- 1:10
y <- rep(c('A', 'B'), each = 5)
lst.1 <- tapply(x, y, function(vec) return(vec), simplify = FALSE)
lst.1

# $A
# [1] 1 2 3 4 5
# 
# $B
# [1]  6  7  8  9 10

我想把它改造成data.frame. 直觉正在使用as.data.frame()，但失败了。

as.data.frame(lst.1)

#             lst1
# A  1, 2, 3, 4, 5
# B 6, 7, 8, 9, 10

我手动创建另一个列表来模仿lst.1，并按as.data.frame()加速方式工作。

lst.2 <- list(A = 1:5, B = 6:10)
lst.2

# $A
# [1] 1 2 3 4 5
# 
# $B
# [1]  6  7  8  9 10

as.data.frame(lst.2)

#   A  B
# 1 1  6
# 2 2  7
# 3 3  8
# 4 4  9
# 5 5 10

lst.1和 和有什么区别lst.2？tapply以及如何正确地将(ie )返回的列表转换lst.1为data.frame？