＆＃39; $＆＃39;是什么？运算符在这个R代码片段中做什么？

Question

考虑以下R dplyr代码：

lahmanNames %>% 
  bind_rows(.id = "dataframe") %>%   # Bind the data frames
  filter(var == "playerID") %>%   # Filter the results
  `$`(dataframe)   #  <---- WHAT DOES $ MEAN?

在这种情况下$运算符引用了什么？

Answer 1

就像做mtcars$dataframe一样。有很多方法可以做到这一点。在dplyr 0.7.0中添加了函数pull，它以与管道（%>%）一起使用的方式执行此操作。

library(dplyr)

mtcars %>% `$`(mpg)

#>  [1] 21.0 21.0 22.8 21.4 18.7 18.1 14.3 24.4 22.8 19.2 17.8 16.4 17.3 15.2
#> [15] 10.4 10.4 14.7 32.4 30.4 33.9 21.5 15.5 15.2 13.3 19.2 27.3 26.0 30.4
#> [29] 15.8 19.7 15.0 21.4

mtcars$mpg

#>  [1] 21.0 21.0 22.8 21.4 18.7 18.1 14.3 24.4 22.8 19.2 17.8 16.4 17.3 15.2
#> [15] 10.4 10.4 14.7 32.4 30.4 33.9 21.5 15.5 15.2 13.3 19.2 27.3 26.0 30.4
#> [29] 15.8 19.7 15.0 21.4

mtcars[["mpg"]]

#>  [1] 21.0 21.0 22.8 21.4 18.7 18.1 14.3 24.4 22.8 19.2 17.8 16.4 17.3 15.2
#> [15] 10.4 10.4 14.7 32.4 30.4 33.9 21.5 15.5 15.2 13.3 19.2 27.3 26.0 30.4
#> [29] 15.8 19.7 15.0 21.4

mtcars %>% pull(mpg)

#>  [1] 21.0 21.0 22.8 21.4 18.7 18.1 14.3 24.4 22.8 19.2 17.8 16.4 17.3 15.2
#> [15] 10.4 10.4 14.7 32.4 30.4 33.9 21.5 15.5 15.2 13.3 19.2 27.3 26.0 30.4
#> [29] 15.8 19.7 15.0 21.4

Answer 2

`$`(x, y)

是一种不同的写作方式

x[[y, exact = FALSE]]

也就是说，如果是y = "foo"，那么

`$`(x, y)

与

相同

x$foo