library(ggborderline)
library(ggplot2)
library(dplyr, warn.conflicts = FALSE)
p <- txhousing |>
filter(
city %in% c("Houston", "Midland", "Beaumont", "Laredo"),
!is.na(median)
) |>
ggplot(aes(date, median, colour = city)) +
scale_y_continuous(labels = scales::label_dollar()) +
scale_colour_brewer(palette = "Paired") +
theme(legend.position = "bottom")
p + geom_borderline(linewidth = 1) + ggtitle("Using `geom_borderline()`")
#> Warning in geom_borderline(linewidth = 1): Ignoring unknown parameters:
#> `linewidth`
#> Warning: Using the `size` aesthetic in this geom was deprecated in ggplot2 3.4.0.
#> i Please use `linewidth` in the `default_aes` field and elsewhere instead.
#> Error in `geom_borderline()`:
#> ! Problem while converting geom to grob.
#> i Error occurred in the 1st layer.
#> Caused by error in `fun()`:
#> ! objeto 'new_data_frame' não encontrado
#> 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("bared-pika_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_gtable(data)
#> 44. | \-ggplot2:::ggplot_gtable.ggplot_built(data)
#> 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$draw_geom(d, layout)
#> 54. | \-ggplot2 (local) draw_geom(..., self = self)
#> 55. | \-self$geom$draw_layer(...)
#> 56. | \-ggplot2 (local) draw_layer(..., self = self)
#> 57. | \-base::lapply(...)
#> 58. | \-ggplot2 (local) FUN(X[[i]], ...)
#> 59. | +-rlang::inject(self$draw_panel(data, panel_params, coord, !!!params))
#> 60. | \-self$draw_panel(...)
#> 61. | \-ggborderline (local) draw_panel(...)
#> 62. | \-ggplot2:::dapply(...)
#> 63. | \-base::lapply(...)
#> 64. | \-ggplot2 (local) FUN(X[[i]], ...)
#> 65. | \-ggplot2 (local) apply_fun(cur_data)
#> 66. | \-ggborderline (local) fun(x, ...)
#> 67. \-base::.handleSimpleError(...)
#> 68. \-rlang (local) h(simpleError(msg, call))
#> 69. \-handlers[[1L]](cnd)
#> 70. \-cli::cli_abort(...)
#> 71. \-rlang::abort(...)
p + geom_line(linewidth = 1) + ggtitle("Using `geom_line()`")
Created on 2022-12-21 with reprex v2.0.2