我几乎每天都使用tidyverse(及其环境(,有时我不得不回到以前/以前的分析。不幸的是,跟踪对包所做的更改并不容易。
这个脚本非常实用,它可以执行我想要的(它与其他命令一起在函数中使用(
ds <- data.frame(result = rnorm(100,5,2),
time = c("1","2"))
library(tidyverse)
library(broom)
ds %>%
summarise_at(vars("result"),
funs(list(tidy(t.test(. ~ time, paired=TRUE))))) %>% map(1)
我知道这不是最优雅的语法。现在,此消息出现在命令之后:
funs(( 从 dplyr 0.8.0 开始被软弃用 请使用函数或 lambda 的列表:
# Simple named list:
list(mean = mean, median = median)
# Auto named with `tibble::lst()`:
tibble::lst(mean, median)
# Using lambdas
list(~ mean(., trim = .2), ~ median(., na.rm = TRUE))
我所有修复它的尝试都给了我一条消息......
> ds %>%
+ summarise_at(vars("result"),
+ lst(tidy(t.test(. ~ time, paired=TRUE)))) %>% map(1)
Error in model.frame.default(formula = . ~ time) :
invalid type (list) for variable '.'
> ds %>%
+ summarise_at(vars("result"),
+ list(list(tidy(t.test(. ~ time, paired=TRUE))))) %>% map(1)
Error in model.frame.default(formula = . ~ time) :
invalid type (list) for variable '.'
> ds %>%
+ summarise_at(vars("result"),
+ list(list(tidy(~ t.test(. ~ time, paired=TRUE))))) %>% map(1)
Error: No tidy method for objects of class formula
所以。。第一个问题:有什么关于修复它的线索吗?
第二:我在哪里可以关注这些(持续(更新?
三:我使用tidyverse是因为我喜欢它处理命令的方式。这很直观,但我认为这是一个重要的副作用,它会不断变化......我应该尝试将所有例程移动到 R base 吗(可能 R base 不会改变其功能......
谢谢大家。
这个怎么样?
ds <- data.frame(result = rnorm(100,5,2),
time = c("1","2"))
library(tidyverse)
library(broom)
ds %>%
summarise_at(vars("result"),
list(~ list(tidy(t.test(. ~ time, paired=TRUE))))) %>% map(1)
#> $result
#> # A tibble: 1 x 8
#> estimate statistic p.value parameter conf.low conf.high method
#> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <chr>
#> 1 -0.719 -1.77 0.0823 49 -1.53 0.0955 Paire~
#> # ... with 1 more variable: alternative <chr>
创建于 2019-09-04 由 reprex 软件包 (v0.3.0(