R GgHighlight找不到它创建的列：`Highlight..1`>；`Highlight.....`

我有一个像这样的data.frame.

library(tidyverse)
library(gghighlight)

# this works
df <- 
  tibble::tribble(
             ~year, ~sales_rep, ~sale_count,
              2021,        "1",         615,
              2021,        "2",         246,
              2021,        "3",         245,
              2022,        "1",         736,
              2022,        "2",          56,
              2022,        "3",         868,
              2023,        "1",         452,
              2023,        "2",         185,
              2023,        "3",         915
  )

我想画出每个销售代表的销售额，并用gghighlight来提醒大家注意销售代表1.

df %>% 
  ggplot(
    aes(
      x = year,
      y = sale_count,
      fill = sales_rep
    )
  ) +
  geom_col() +
  facet_wrap(
    vars(sales_rep)
  ) +
  gghighlight(sales_rep == 1, calculate_per_facet = TRUE)
#> Warning: Tried to calculate with group_by(), but the calculation failed.
#> Falling back to ungrouped filter operation...

然而，当我试图添加一个geom_hline来显示每个销售代表的平均年销售额时，gghighlight抛出了一个错误.

# but this doesn't
avg_by_rep <- 
  df %>% 
  summarize(
    avg_sales = mean(sale_count),
    .by = sales_rep
  )

df %>% 
  ggplot(
    aes(
      x = year,
      y = sale_count,
      fill = sales_rep
    )
  ) +
  geom_col() +
  geom_hline(
    data = avg_by_rep,
    aes(
      yintercept = avg_sales
    )
  ) +
  facet_wrap(
    vars(sales_rep)
  ) +
  gghighlight(sales_rep == 1, calculate_per_facet = TRUE)
#> New names:
#> * `highlight..........1` -> `highlight.......`
#> Warning: Tried to calculate with group_by(), but the calculation failed.
#> Falling back to ungrouped filter operation...
#> Error in `geom_hline()`:
#> ! Problem while computing aesthetics.
#> i Error occurred in the 2nd layer.
#> Caused by error in `FUN()`:
#> ! object 'highlight..........1' not found
#> Backtrace:
#>      x
#>   1. +-base::tryCatch(...)
#>   2. | \-base (local) tryCatchList(expr, classes, parentenv, handlers)
#>   3. |   +-base (local) tryCatchOne(...)
#>   4. |   | \-base (local) doTryCatch(return(expr), name, parentenv, handler)
#>   5. |   \-base (local) tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
#>   6. |     \-base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
#>   7. |       \-base (local) doTryCatch(return(expr), name, parentenv, handler)
#>   8. +-base::withCallingHandlers(...)
#>   9. +-base::saveRDS(...)
#>  10. +-base::do.call(...)
#>  11. +-base (local) `<fn>`(...)
#>  12. +-global `<fn>`(input = base::quote("large-unau_reprex.R"))
#>  13. | \-rmarkdown::render(input, quiet = TRUE, envir = globalenv(), encoding = "UTF-8")
#>  14. |   \-knitr::knit(knit_input, knit_output, envir = envir, quiet = quiet)
#>  15. |     \-knitr:::process_file(text, output)
#>  16. |       +-base::withCallingHandlers(...)
#>  17. |       +-knitr:::process_group(group)
#>  18. |       \-knitr:::process_group.block(group)
#>  19. |         \-knitr:::call_block(x)
#>  20. |           \-knitr:::block_exec(params)
#>  21. |             \-knitr:::eng_r(options)
#>  22. |               +-knitr:::in_input_dir(...)
#>  23. |               | \-knitr:::in_dir(input_dir(), expr)
#>  24. |               \-knitr (local) evaluate(...)
#>  25. |                 \-evaluate::evaluate(...)
#>  26. |                   \-evaluate:::evaluate_call(...)
#>  27. |                     +-evaluate (local) handle(...)
#>  28. |                     | \-base::try(f, silent = TRUE)
#>  29. |                     |   \-base::tryCatch(...)
#>  30. |                     |     \-base (local) tryCatchList(expr, classes, parentenv, handlers)
#>  31. |                     |       \-base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
#>  32. |                     |         \-base (local) doTryCatch(return(expr), name, parentenv, handler)
#>  33. |                     +-base::withCallingHandlers(...)
#>  34. |                     +-base::withVisible(value_fun(ev$value, ev$visible))
#>  35. |                     \-knitr (local) value_fun(ev$value, ev$visible)
#>  36. |                       \-knitr (local) fun(x, options = options)
#>  37. |                         +-base::withVisible(knit_print(x, ...))
#>  38. |                         +-knitr::knit_print(x, ...)
#>  39. |                         \-knitr:::knit_print.default(x, ...)
#>  40. |                           \-evaluate (local) normal_print(x)
#>  41. |                             +-base::print(x)
#>  42. |                             \-ggplot2:::print.ggplot(x)
#>  43. |                               +-ggplot2::ggplot_build(x)
#>  44. |                               \-ggplot2:::ggplot_build.ggplot(x)
#>  45. |                                 \-ggplot2:::by_layer(...)
#>  46. |                                   +-rlang::try_fetch(...)
#>  47. |                                   | +-base::tryCatch(...)
#>  48. |                                   | | \-base (local) tryCatchList(expr, classes, parentenv, handlers)
#>  49. |                                   | |   \-base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
#>  50. |                                   | |     \-base (local) doTryCatch(return(expr), name, parentenv, handler)
#>  51. |                                   | \-base::withCallingHandlers(...)
#>  52. |                                   \-ggplot2 (local) f(l = layers[[i]], d = data[[i]])
#>  53. |                                     \-l$compute_aesthetics(d, plot)
#>  54. |                                       \-ggplot2 (local) compute_aesthetics(..., self = self)
#>  55. |                                         \-base::lapply(aesthetics, eval_tidy, data = data, env = env)
#>  56. |                                           \-rlang (local) FUN(X[[i]], ...)
#>  57. \-base::.handleSimpleError(...)
#>  58.   \-rlang (local) h(simpleError(msg, call))
#>  59.     \-handlers[[1L]](cnd)
#>  60.       \-cli::cli_abort(...)
#>  61.         \-rlang::abort(...)

^{创建于2024-01-15年第reprex v2.0.2页}