r - 将 data.table 语法转换为 dplyr 语法

Question

我想要来自 data.table 的以下代码以 dplyr 方式:

library(tidyverse)
library(data.table)

Iris <- as.data.table(iris)

Iris[, .(m = mean(Sepal.Width[Sepal.Width < 3])), Species]

这是我到目前为止所拥有的:

Iris %>% 
  group_by(Species) %>% 
  summarise(m = mean(Sepal.Width))

但我不知道在哪里可以放置我的条件 Sepal.Width < 3 .

Answer 1

与 data.table 中的方式相同或在 base R ，创建逻辑向量 ( Sepal.Width < 3 )，使用它来对列进行子集化 [并获取mean值的子集

library(dplyr)
Iris %>% 
  group_by(Species) %>%
  summarise(m = mean(Sepal.Width[Sepal.Width <3]))
# A tibble: 3 x 2
#  Species        m
#  <fct>      <dbl>
#1 setosa      2.60
#2 versicolor  2.61
#3 virginica   2.69