Skip to content
GitLab
Select Git revision
  • master default
Find file BlameHistoryPermalink
tools.R 9.20 KiB
1 
# \\\
2 
# Copyright 2021-2022 Louis Héraut*1
3 
#
4 
# *1   INRAE, France
5 
#      louis.heraut@inrae.fr
6 
#
7 
# This file is part of ash R toolbox.
8 
#
9 
# ash R toolbox is free software: you can redistribute it and/or modify
10 
# it under the terms of the GNU General Public License as published by
11 
# the Free Software Foundation, either version 3 of the License, or (at
12 
# your option) any later version.
13 
#
14 
# ash R toolbox is distributed in the hope that it will be useful, but
15 
# WITHOUT ANY WARRANTY; without even the implied warranty of
16 
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
17 
# General Public License for more details.
18 
#
19 
# You should have received a copy of the GNU General Public License
20 
# along with ash R toolbox.  If not, see <https://www.gnu.org/licenses/>.
21 
# ///
22 
#
23 
#
24 
# tools.R
25
26
27 
## 1. COLOR MANAGEMENT
28 
### 1.1. Color on colorbar ___________________________________________
29 
# Returns a color of a palette corresponding to a value included
30 
# between the min and the max of the variable
31 
get_color = function (value, min, max, ncolor=256, palette_name='perso', reverse=FALSE) {
32
33
34 
    # If the value is a NA return NA color
35 
    if (is.na(value)) {
36 
        return (NA)
37 
    }
38
39 
    # If the palette chosen is the personal ones
40 
    if (palette_name == 'perso') {
41 
        colorList = palette_perso
42 
    # Else takes the palette corresponding to the name given
43 
    } else {
44 
        colorList = brewer.pal(11, palette_name)
45 
    }
46
47 
    # Gets the number of discrete colors in the palette
48 
    nSample = length(colorList)
49 
    # Recreates a continuous color palette
50 
    palette = colorRampPalette(colorList)(ncolor)
51 
    # Separates it in the middle to have a cold and a hot palette
52 
    Sample_hot = 1:(as.integer(nSample/2)+1)
53 
    Sample_cold = (as.integer(nSample/2)+1):nSample
54 
    palette_hot = colorRampPalette(colorList[Sample_hot])(ncolor)
55 
    palette_cold = colorRampPalette(colorList[Sample_cold])(ncolor)
56
57 
    # Reverses the palette if it needs to be
58 
    if (reverse) {
59 
        palette = rev(palette)
60 
        palette_hot = rev(palette_hot)
61 
        palette_cold = rev(palette_cold)
62 
    }
63
64 
    # Computes the absolute max
65 
    maxAbs = max(abs(max), abs(min))
66
67 
    # If the value is negative
68 
    if (value < 0) {
69 
        if (maxAbs == 0) {
70 
            idNorm = 0
7172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140
} else { # Gets the relative position of the value in respect # to its span idNorm = (value + maxAbs) / maxAbs } # The index corresponding id = round(idNorm*(ncolor - 1) + 1, 0) # The associated color color = palette_cold[id] # Same if it is a positive value } else { if (maxAbs == 0) { idNorm = 0 } else { idNorm = value / maxAbs } id = round(idNorm*(ncolor - 1) + 1, 0) color = palette_hot[id] } return(color) } ### 1.2. Colorbar ____________________________________________________ # Returns the colorbar but also positions, labels and colors of some # ticks along it get_palette = function (min, max, ncolor=256, palette_name='perso', reverse=FALSE, nbTick=10) { # If the value is a NA return NA color if (is.null(min) | is.null(max)) { return (NA) } # If the palette chosen is the personal ones if (palette_name == 'perso') { colorList = palette_perso # Else takes the palette corresponding to the name given } else { colorList = brewer.pal(11, palette_name) } # Gets the number of discrete colors in the palette nSample = length(colorList) # Recreates a continuous color palette palette = colorRampPalette(colorList)(ncolor) # Separates it in the middle to have a cold and a hot palette Sample_hot = 1:(as.integer(nSample/2)+1) Sample_cold = (as.integer(nSample/2)+1):nSample palette_hot = colorRampPalette(colorList[Sample_hot])(ncolor) palette_cold = colorRampPalette(colorList[Sample_cold])(ncolor) # Reverses the palette if it needs to be if (reverse) { palette = rev(palette) palette_hot = rev(palette_hot) palette_cold = rev(palette_cold) } # If the min and the max are below zero if (min < 0 & max < 0) { # The palette show is only the cold one paletteShow = palette_cold # If the min and the max are above zero } else if (min > 0 & max > 0) { # The palette show is only the hot one paletteShow = palette_hot # Else it is the entire palette that is shown } else { paletteShow = palette }