R中的tidyverse代码等价于exp(mean(log(murders$population)

Question

我正在阅读Rafael Irizarry的“数据科学入门”这本书，我被其中的一个练习卡住了。我需要使用点运算符编写exp(mean(log(murders$population)))的tidyverse等效项。我从murders %>% log(population)开始，但它显示未找到对象群。我认为我遇到的问题是我没有正确地从数据框中拉出，但可以使用一些方向。我认为这就是使用圆点的意义所在，但尝试murders %>% log(.$population)也不起作用。

> exp(mean(log(murders$population)))
[1] 3675209
> murders %>% log(population)
Error in function_list[[k]](value) : object 'population' not found
> murders %>% log(.$population)
Error in Math.data.frame(., .$population) : 
non-numeric variable(s) in data frame: state, abb, region

Answer 1

如果我们需要使用链中的函数，可以使用pull变量并应用链中的函数

library(dslabs)
library(dplyr)
data(murders)
murders %>% 
     pull(population) %>% 
     log %>%
     mean %>% 
     exp
#[1] 3675209

Answer 2

library(dslabs)
library(dplyr)

data(murders)

murders  %>% .$population %>% log %>% mean  %>% exp