Estoy obteniendo undplyr::bind_rows error. Es un problema muy trivial, porque puedo solucionarlo fácilmente, pero me gustaría entender el significado del mensaje de error.

Tengo los siguientes datos de algunos grupos de población para los estados de Nueva Inglaterra, y me gustaría vincular una copia de estos mismos valores con el nombre cambiado a "Nueva Inglaterra", para poder agruparlos por nombre y agregarlos. , dándome valores para los estados individuales, más un valor general para la región.

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))

Estoy haciendo esto como parte de un flujo mucho mayor de pasos entubados, así que no puedo simplemente hacerbind_rows(df, df %>% mutate(name = "New England")). dplyr da el conveniente. taquigrafía para un marco de datos que se canaliza de una función a la siguiente, pero no puedo usar eso para vincular el marco de datos a sí mismo de la manera que me gustaría.

Quéhac trabajo y me da la salida que quiero:

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

Pero cuando trato de hacer lo mismo con la. taquigrafía, me sale este error:

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

Como dije, hacerlo de la primera manera está bien, pero me gustaría entender el error porque escribo mucho código entubado de varios pasos.