user18894435's questions

Os dados do brinquedo a seguir têm 5 variáveis, X1para X5.

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

Quero executar operações específicas em variáveis ​​específicas, usando uma lista nomeada de fórmulas lambda no estilo purrr

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

Como posso aplicar fun_listmeu dfde acordo com seus nomes de variáveis?

Eu sei rlang::as_function()que pode converter uma fórmula estilo purrr em uma função R. Mas acho que há alguma função que é capaz de lidar com fórmulas estilo purrr intrinsecamente. Seu uso pode ser

execute(fun_list, environment = df)

A saída esperada é

$X2
      10%       90% 
-1.289408  1.058432 

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

De ?options, a descrição do warnreferido

Se foram sinalizados 10 ou menos avisos, eles serão impressos, caso contrário será exibida uma mensagem informando quantos foram sinalizados.

Portanto, se houver mais de 10 avisos, eles serão compactados em uma mensagem. Por exemplo:

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
Houve 11 avisos (use warnings() para vê-los)

Como posso reduzir o limite de 10 para 1? Ou seja, mesmo que eu tenha apenas um aviso, espero que ele apareça

Houve 1 aviso (use warnings() para vê-los)

Estou fazendo algumas operações de dados com tapply()e ele retorna um listobjeto semelhante a -. Por exemplo:

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

Quero transformá-lo em um arquivo data.frame. Uma intuição está usando as.data.frame(), mas falhou.

as.data.frame(lst.1)

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

Eu crio outra lista manualmente para imitar lst.1e as.data.frame()funciona conforme esperado.

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

Qual é a diferença entre lst.1e lst.2? E como converter corretamente uma lista retornada por tapply(ie lst.1) em a data.frame?