setFlexTableBackgroundColors
From ReporteRs v0.8.8
by David Gohel
applies background colors to cells of a FlexTable
applies background colors to cells of a FlexTable
Usage
setFlexTableBackgroundColors(object, i, j, colors, to = "body")
Arguments
- object
a
FlexTable
object- i
vector (integer index, row.names values or boolean vector) for rows selection.
- j
vector (integer index, col.names values or boolean vector) for columns selection.
- colors
background colors to apply (e.g. "#000000" or "black"). a character vector of colors with as many elements as defined by the selection.
- to
specify on which part of the FlexTable to apply colors, must be one of the following values "body" (default) or "header" or "footer"
See Also
Examples
# NOT RUN {
# example 1 ----
ft <- vanilla.table(head(iris))
ft <- setFlexTableBackgroundColors( ft,
i = 1:3, j = c("Petal.Length", "Species"), colors = "yellow" )
# example 2 ----
data <- structure(c(1, -0.991, -0.993, -0.956, 0.939, -0.986, 0.708,
0.932, 0.827, 0.768, -0.799, -0.991, 1, 0.992, 0.972, -0.923,
0.966, -0.766, -0.963, -0.783, -0.735, 0.82, -0.993, 0.992, 1,
0.944, -0.955, 0.987, -0.692, -0.93, -0.843, -0.801, 0.757, -0.956,
0.972, 0.944, 1, -0.819, 0.897, -0.88, -0.985, -0.635, -0.565,
0.924, 0.939, -0.923, -0.955, -0.819, 1, -0.975, 0.472, 0.795,
0.944, 0.92, -0.565, -0.986, 0.966, 0.987, 0.897, -0.975, 1,
-0.59, -0.872, -0.903, -0.855, 0.697, 0.708, -0.766, -0.692,
-0.88, 0.472, -0.59, 1, 0.899, 0.204, 0.14, -0.949, 0.932, -0.963,
-0.93, -0.985, 0.795, -0.872, 0.899, 1, 0.594, 0.544, -0.912,
0.827, -0.783, -0.843, -0.635, 0.944, -0.903, 0.204, 0.594, 1,
0.979, -0.34, 0.768, -0.735, -0.801, -0.565, 0.92, -0.855, 0.14,
0.544, 0.979, 1, -0.236, -0.799, 0.82, 0.757, 0.924, -0.565,
0.697, -0.949, -0.912, -0.34, -0.236, 1), .Dim = c(11L, 11L),
.Dimnames = list(c("mpg", "cyl", "disp", "hp", "drat", "wt",
"qsec", "vs", "am", "gear", "carb"), c("mpg", "cyl", "disp",
"hp", "drat", "wt", "qsec", "vs", "am", "gear", "carb")))
mycolors <-
structure(c("#1A9850", "#D73027", "#D73027", "#D73027", "#1A9850",
"#D73027", "#66BD63", "#1A9850", "#1A9850", "#1A9850", "#D73027",
"#D73027", "#1A9850", "#1A9850", "#1A9850", "#D73027", "#1A9850",
"#D73027", "#D73027", "#D73027", "#F46D43", "#1A9850", "#D73027",
"#1A9850", "#1A9850", "#1A9850", "#D73027", "#1A9850", "#F46D43",
"#D73027", "#D73027", "#D73027", "#1A9850", "#D73027", "#1A9850",
"#1A9850", "#1A9850", "#D73027", "#1A9850", "#D73027", "#D73027",
"#F46D43", "#F46D43", "#1A9850", "#1A9850", "#D73027", "#D73027",
"#D73027", "#1A9850", "#D73027", "#A6D96A", "#1A9850", "#1A9850",
"#1A9850", "#F46D43", "#D73027", "#1A9850", "#1A9850", "#1A9850",
"#D73027", "#1A9850", "#F46D43", "#D73027", "#D73027", "#D73027",
"#66BD63", "#66BD63", "#D73027", "#F46D43", "#D73027", "#A6D96A",
"#F46D43", "#1A9850", "#1A9850", "#D9EF8B", "#D9EF8B", "#D73027",
"#1A9850", "#D73027", "#D73027", "#D73027", "#1A9850", "#D73027",
"#1A9850", "#1A9850", "#66BD63", "#66BD63", "#D73027", "#1A9850",
"#D73027", "#D73027", "#F46D43", "#1A9850", "#D73027", "#D9EF8B",
"#66BD63", "#1A9850", "#1A9850", "#FDAE61", "#1A9850", "#F46D43",
"#D73027", "#F46D43", "#1A9850", "#D73027", "#D9EF8B", "#66BD63",
"#1A9850", "#1A9850", "#FEE08B", "#D73027", "#1A9850", "#1A9850",
"#1A9850", "#F46D43", "#66BD63", "#D73027", "#D73027", "#FDAE61",
"#FEE08B", "#1A9850"), .Dim = c(11L, 11L))
MyFTable <- FlexTable( data, add.rownames = TRUE )
# set computed colors
MyFTable <- setFlexTableBackgroundColors( MyFTable,
j = dimnames(data)[[2]], colors = mycolors )
# cosmetics
MyFTable <- setFlexTableBackgroundColors( MyFTable,
i = 1, colors = "gray", to = "header" )
MyFTable[1, , to = "header"] <- textBold(color="white")
MyFTable <- setFlexTableBackgroundColors( MyFTable,
j = 1, colors = "gray" )
MyFTable[,1] <- textBold(color="white")
bp1 <- borderProperties( color = "white" )
bp2 <- chprop( bp1, width = 2 )
MyFTable <- setFlexTableBorders( MyFTable,
inner.vertical = bp1, inner.horizontal = bp1,
outer.vertical = bp2, outer.horizontal = bp2 )
# }
Community examples
Looks like there are no examples yet.