LSHTM_analysis/scripts/rgb_hex.R

33 lines
No EOL
1 KiB
R

x= c(c(100,100,059),
c(063,016,037),
c(094,049,067),
c(098,078,086),
c(098,092,096),
c(100,100,100),
c(084,094,094),
c(065,086,090),
c(029,069,075),
c(004,049,051)
)
rescale(c(1,2,3),0:255)
v = round(scales::rescale_mid(x
, to = c(0,255)
#, from = c(lig_min,lig_max)
, mid = 50)
)
rgb(1.00,1.00,0.59)
rgb(0.63,0.16,0.37)
rgb(0.94,0.49,0.67)
rgb(0.98,0.78,0.86)
rgb(0.98,0.92,0.96)
rgb(1.00,1.00,1.00)
rgb(0.84,0.94,0.94)
rgb(0.65,0.86,0.90)
rgb(0.29,0.69,0.75)
rgb(0.04,0.49,0.51)