r - 使用错误的含义。dplyr 函数中的简写
问题描述
我收到一个dplyr::bind_rows
错误。这是一个非常微不足道的问题,因为我可以轻松解决它,但我想了解错误消息的含义。
我有新英格兰州的一些人口组的以下数据,我想绑定这些相同值的副本,并将名称更改为“新英格兰”,以便我可以按名称分组并将它们相加,给我各个州的价值,以及该地区的整体价值。
df <- structure(list(name = c("CT", "MA", "ME", "NH", "RI", "VT"),
estimate = c(501074, 1057316, 47369, 76630, 141206, 27464)),
class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, -6L))
我这样做是作为更大的管道步骤流程的一部分,所以我不能只做bind_rows(df, df %>% mutate(name = "New England"))
. dplyr
为从一个函数传送到下一个函数的数据帧提供了方便的.
简写,但我不能使用它以我想要的方式将数据帧绑定到自身。
什么起作用并得到我想要的输出:
library(tidyverse)
df %>%
# arbitrary piped operation
mutate(name = str_to_lower(name)) %>%
bind_rows(mutate(., name = "New England")) %>%
group_by(name) %>%
summarise(estimate = sum(estimate))
#> # A tibble: 7 x 2
#> name estimate
#> <chr> <dbl>
#> 1 ct 501074
#> 2 ma 1057316
#> 3 me 47369
#> 4 New England 1851059
#> 5 nh 76630
#> 6 ri 141206
#> 7 vt 27464
但是当我尝试用.
速记做同样的事情时,我得到了这个错误:
df %>%
mutate(name = str_to_lower(name)) %>%
bind_rows(. %>% mutate(name = "New England"))
#> Error in bind_rows_(x, .id): Argument 2 must be a data frame or a named atomic vector, not a fseq/function
就像我说的那样,第一种方法很好,但我想了解错误,因为我编写了很多多步管道代码。
解决方案
正如@aosmith 在评论中指出的那样,这是由于magrittr
在这种情况下解析点的方式:
来自?'%>%'
:
使用点占位符作为 lhs
当点用作 lhs 时,结果将是一个函数序列,即一个将整个右侧链依次应用于其输入的函数。
为避免触发此问题,对 lhs 上的表达式进行任何修改都会:
df %>%
mutate(name = str_to_lower(name)) %>%
bind_rows((.) %>% mutate(name = "New England"))
df %>%
mutate(name = str_to_lower(name)) %>%
bind_rows({.} %>% mutate(name = "New England"))
df %>%
mutate(name = str_to_lower(name)) %>%
bind_rows(identity(.) %>% mutate(name = "New England"))
这是一个完全避免该问题的建议:
df %>%
# arbitrary piped operation
mutate(name = str_to_lower(name)) %>%
replicate(2,.,simplify = FALSE) %>%
map_at(2,mutate_at,"name",~"New England") %>%
bind_rows
# # A tibble: 12 x 2
# name estimate
# <chr> <dbl>
# 1 ct 501074
# 2 ma 1057316
# 3 me 47369
# 4 nh 76630
# 5 ri 141206
# 6 vt 27464
# 7 New England 501074
# 8 New England 1057316
# 9 New England 47369
# 10 New England 76630
# 11 New England 141206
# 12 New England 27464
推荐阅读
- flutter - TextOverFlow 颤振
- git - 疑难解答:如何让 Git 在提交时使用 VS Code?
- python - 用于排除特定文本的正则表达式
- npm - 有没有办法在 webpack 浏览器扩展应用程序中打开文件
- android - Android Room.databaseBuilder().createFromFile() 静默失败
- java - 在 intellij 中生成 WSDL 时出错:ClassNotFoundException: org.apache.woden.WSDLException
- sql - 在存储过程中使用嵌套的 case、when 和 else 条件
- python - 如何检查命令 cv2.line 是否更改了 python opencv 中的图像
- scala - 无法重写递归调用:它不在尾部位置
- django - 部署到 Google App Engine / Cloud SDK 的 Django 应用上的静态文件位置