Converting reactable to ggplot, is this possible?-CodePudding

The

However, this is really just a wrapped image, which will not behave like a normal ggplot when it comes to resizing, editing, changing theme elements, etc.

It's really not difficult to just write the ggplot code that draws the table you are looking for. Even if you have lost the original data, you can recover it from the reactable object like this:

library(rvest) library(jsonlite) df <- read_html(as.character(react_df$x$tag)) %>% html_element("reactable") %>% html_attr("data") %>% parse_json() %>% lapply(unlist) %>% as.data.frame()

We can generate a recreation of your table with the following ggplot code directly:

library(ggplot2) ggplot(df, aes(y = rev(seq(nrow(df))))) geom_text(aes(x = 1, label = Date), hjust = 0) geom_text(aes(x = 2, label = Type), hjust = 0) geom_segment(aes(x = 3, xend = 3 Value / max(Value), yend = stat(y)), size = 2, color = "deepskyblue4") geom_text(aes(x = 3, label = paste0(Value, " (", scales::percent(Value / sum(Value), 0.1), ")")), hjust = 0, vjust = -0.8) geom_hline(yintercept = seq(nrow(df)) - 0.5, size = 0.05) geom_hline(yintercept = nrow(df) 0.5) annotate("text", label = colnames(df), x = 1:3, y = nrow(df) 1, hjust = 0, fontface = 2) theme_void()

This is a proper ggplot which looks like the original reactable, is fully customizable and will behave as expected under resizing, etc.