This changes the point and text color
in the xp_theme
of an xpose_data
object.
shark_colors(
xpdb,
upcolor = xp_xtra_theme(base_on = xpdb$xp_theme)$sharkup_color,
dncolor = xp_xtra_theme(base_on = xpdb$xp_theme)$sharkdn_color
)
<xpose_data
> object
<xpose_data
> object
Color for increasing dOFV
Color for decreasing dOFV
shark_plot()
# \donttest{
# Where this would fit in a particular workflow
xpose_set(pheno_base, pheno_final) %>%
# forward functions affecting xpdb objects
focus_xpdb(everything()) %>%
# Add iOFVs
focus_function(backfill_iofv) %>%
# Change color of all xpdb xp_themes (though only the first one needs to change)
focus_function(
function(x) shark_colors(
x,
upcolor = "purple",
dncolor = "green"
)) %>%
# See new plot
shark_plot()
# }
Run the code above in your browser using DataLab