data(sbGeneal)
varieties <- c("Bedford", "Calland", "Narow", "Pella", "Tokyo", "Young", "Zane")
p <- plotYearMatrix(varieties, sbGeneal, "Variety", "Variety", "Degree")
p + ggplot2::scale_fill_continuous(low = "white", high = "darkgreen")
Run the code above in your browser using DataLab