Color the cells of a data frame according to 4 threshold levels

Share:

Description

Return a colored display of a data frame according to 4 threshold levels.

Usage

1
2
3
4
5
6
7
coltable(matrice, col.mat = matrice,
    nbrow = nrow(matrice), nbcol = ncol(matrice), 
    level.lower = 0.05, col.lower = "mistyrose", 
    level.upper = 1.96, col.upper = "lightblue",
    cex = 0,nbdec = 4, main.title = NULL, level.lower2 = -1e10,
    col.lower2 = "red", level.upper2 = 1e10, 
    col.upper2 = "blue", novalue = FALSE)

Arguments

matrice

a data frame (or a matrix) with only quantitative variables

col.mat

a data frame (or a matrix) from which the cells of the matrice data frame are colored; by default, col.mat=matrice

nbrow

the number of rows to be displayed (by default, nrow(matrice))

nbcol

the number of columns to be displayed (by default, ncol(matrice))

level.lower

the threshold below which cells are colored in col.lower

col.lower

the color used for level.lower

level.upper

the threshold above which cells are colored in col.upper

col.upper

the color used for level.upper

cex

cf. function par in the graphics package

nbdec

the number of decimal places displayed

main.title

title of the graph(s)

level.lower2

the threshold below which cells are colored in col.lower2; this level should be less than level.lower

col.lower2

the color used for level.lower2

level.upper2

the threshold above which cells are colored in col.upper2; this level should be greater than level.upper

col.upper2

the color used for level.upper2

novalue

boolean, if TRUE the values are not written

Details

This function is very useful especially when there are a lot of values to check.

Author(s)

Fran<e7>ois Husson, S<e9>bastien L<ea>

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
## Example 1
data(chocolates)
resdecat<-decat(sensochoc, formul = "~Product+Panelist", firstvar = 5,
    graph = FALSE)
resaverage<-averagetable(sensochoc, formul = "~Product+Panelist", 
    firstvar = 5)
resaverage.sort = resaverage[rownames(magicsort(resdecat$tabT)),
    colnames(magicsort(resdecat$tabT))]
coltable(resaverage.sort, magicsort(resdecat$tabT), 
    level.lower = -1.96, level.upper = 1.96,
    main.title = "Average by chocolate")

## Example 3
## Not run: 
data(chocolates)
resperf<-paneliperf(sensochoc, 
    formul = "~Product+Panelist+Product:Panelist", 
    formul.j = "~Product", col.j = 1, firstvar = 5, lastvar = 12, 
    synthesis = FALSE, graph = FALSE)
resperfprob<-magicsort(resperf$prob.ind, method = "median")
coltable(resperfprob, level.lower = 0.05, level.upper = 1, 
    main.title = "P-value of the F-test (by panelist)")

resperfr2<-magicsort(resperf$r2.ind, method = "median", 
    ascending = FALSE)
coltable(resperfr2, level.lower = 0.00, level.upper = 0.85, 
    main.title = "Adjusted R-square (by panelist)")

## End(Not run)

Want to suggest features or report bugs for rdrr.io? Use the GitHub issue tracker.