I am using reactablefmtr package in R and apply data_bars() for the plot. I couldn't find any parameter to remove the center line between positive and negative number. I did check css, but I don't know how to apply to the chart. Any help will be great.
library(reactablefmtr)
library(htmltools)
library(tidyverse)
cars <- mtcars %>%
rownames_to_column(var = 'model') %>%
select(c(model,wt,mpg,hp)) %>%
mutate(wt = wt-mean(wt),
mpg = mpg-mean(mpg),
hp = hp-mean(hp))
reactable(cars,
theme = nytimes(centered = TRUE),
compact = TRUE,
defaultSortOrder = 'desc',
defaultSorted = 'mpg',
pagination = FALSE,
columns = list(
wt = colDef(
name = 'WT VS AVG',
minWidth = 150,
align = 'center',
cell = data_bars(
data = cars,
text_position = 'outside-end',
fill_color = viridis::mako(5),
number_fmt = scales::number_format(accuracy = 0.01)
)
),
hp = colDef(
name = 'HP VS AVG',
minWidth = 150,
align = 'center',
cell = data_bars(
data = cars,
text_position = 'outside-end',
fill_color = c('#C40233','#127852'),
number_fmt = scales::comma
)
),
mpg = colDef(
name = 'MPG VS AVG',
minWidth = 150,
align = 'center',
cell = data_bars(
data = cars,
text_position = 'none',
box_shadow = TRUE,
fill_color = MetBrewer::met.brewer('VanGogh3'),
number_fmt = scales::comma
)
)
)
)