Contact Information

3413 Marion Drive
Tampa, FL 33637

I am making a levelplot in which one variable of my data frame is used to color the cells (fold.change) and another (map.signif) is written on top. set.seed(150) pv.df <- data.frame(compound=rep(LETTERS[1:8], each=3), comparison=rep(c("a/b","b/c","a/c"), 8), p.value=runif(24, 0, 0.2), fold.change=runif(24, -0.3, 0.9)) pv.df$map.signif <- ifelse(pv.df$p.value > 0.05, "", ifelse(pv.df$p.value > 0.01,"*", "**")) pv.df myPanel <- function(x, y, z, ...) { panel.levelplot(x, y, z, ...) panel.text(x, y, pv.df$map.signif, cex=3) } #install.packages("latticeExtra") library(latticeExtra) library(RColorBrewer) cols <- colorRampPalette(brewer.pal(11, "RdBu"))(11) png(filename="test.png", height=800, width=400) print( levelplot(fold.change ~ comparison*compound, #p.value instead of p.adjust depending on map.signif pv.df, panel = myPanel, col.regions = cols, at = do.breaks(range(pv.df$fold.change), 11), colorkey = list(col = cols, at = do.breaks(range(pv.df$fold.change), 11)), xlab = "", ylab = "", # remove axis titles scales = list(x = list(rot = 45), # change rotation for x-axis text cex = 0.8), # change font size for x- & y-axis text main = list(label = "Test

test
test

Palm Beach properties: Updated historic house listed at $12.5 million

Happy Rewards!