rdataframeformattable
How to change color gradient in formattable?
I am creating the following formattable:
I have set the gradient on Var1 so that it gets increasingly red the higher the value is. I was wondering if it would be possible to change it so that it gets increasingly green the higher the value is. I love everything about it as it is, I just want the gradient to go from black to green rather than black to red. I have tried tweaking the numbers in the background-color command, but cannot seem to get it right. Is it possible to fix this? Is there a guide on numeric color gradients that perhaps I'm missing?
library(formattable)
ex <- structure(list(Group = 1:3, Var1 = c(0, 0.4, 0.8)), class = "data.frame", row.names = c(NA,
-3L))
ex <- formattable(ex,
align = c("l","l", "c", "c", "c", "c"),
list(Var1 = formatter("span",
style = x ~ style(display = "block",
"border-radius" = "4px",
"padding-right" = "4px",
color = "white",
"background-color" = rgb(ex$Var1/max(ex$Var1), 0, 0, 1)))))
Solution
You can define the gradient color with csscolor(gradient()). - That's also the functions used in the color_tile function of formattable.
ex <- formattable(ex,
align = c("l","l", "c", "c", "c", "c"),
list(Var1 = formatter("span",
style = x ~ style(display = "block",
"border-radius" = "4px",
"padding-right" = "4px",
color = "white",
"background-color" = csscolor(gradient(as.numeric(x), "black", "green"))))))
ex
- How to place legends at different sides of plot (bottom and right side) with ggplot2?
- Opening Shiny App directly in the default browser
- How to set a breakpoint in function body in R-studio?
- Is there a way to pass a list of filter parameters to `dplyr::filter`?
- Width of flextable in pdf do not show in full the column names
- R testthat: How to ignore classes in expected result (error "Classes differ")
- Quantlib R integration using different versions of g++
- I need to update a package
- Grading multiple choice and cloze questions created with exams2moodle()
- Delete empty folders inside working directory
- Replacing NA cells in specific layers of a raster based on several conditions
- Change Legend Order for calendR Plot with Dynamic Number of Categories
- Using a labelling function to rename some but not all variables in ggplot2
- R: attach within function
- Is it possible to get the index status (Index Coverage report in new version) from Google Search Console via the API
- How do you remove "padded" dates in ggplot without "cutting" the boxplot?
- Grouping string together and sum it together
- Association Rules in R - Trying to understand two similar datasets but one has rules but not the other
- How to draw vertical curly braces in a ggplot
- how to convert utf-8 to ascii for a list of data frames
- Insert appropriate number of rows into data frame based on date differences
- Remove an element of a list by name
- Querying API for every unique resource in a package using R
- Create a column in a dataframe based on comparisons of multiple columns in the original and a second dataframe
- calendR - "Error in if (special.days != "weekend" { : the condition has length > 1" for some datasets but not others
- Trying to create continent map for South America but geom_polygon produces zigzag fill
- Extrapolating sequence of numbers in R
- How do I install a package that has been archived from CRAN?
- Calculating percent growth in time series data
- R Analysing data with different time stamps