applies background colors to cells of a FlexTable
setFlexTableBackgroundColors(object, i, j, colors, to = "body")a FlexTable object
vector (integer index, row.names values or boolean vector) for rows selection.
vector (integer index, col.names values or boolean vector) for columns selection.
background colors to apply (e.g. "#000000" or "black"). a character vector of colors with as many elements as defined by the selection.
specify on which part of the FlexTable to apply colors, must be one of the following values "body" (default) or "header" or "footer"
# 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 )
# }