grigory93

library(ggplot2)
library(ggthemes)

fontTable = fonttable()

fontTable$Face = with(fontTable, ifelse(Bold & Italic, "bold.italic", 
                            ifelse(Bold, "bold",
                                   ifelse(Italic, "italic", "plain"))))
fontTable$Face = factor(fontTable$Face, levels = c("plain","bold","italic","bold.italic"), ordered = TRUE)
fontTable$FamilyName = factor(fontTable$FamilyName, levels = rev(sort(unique(fontTable$FamilyName))), ordered = TRUE)

grigory93

data = data.frame(Aster_experience=c(-0.7, 0.3), 
                  R_experience=c(0.9, 0.3), 
                  coverage=c(60,30),
                  product=c("TeradataAsterR", "toaster"))