%useLatestDescriptors
%use lets-plot
%use dataframe

LetsPlot.getInfo()

val mpg = DataFrame.readCSV("https://raw.githubusercontent.com/JetBrains/lets-plot-docs/master/data/mpg2.csv")
mpg.head(3)

import org.jetbrains.letsPlot.intern.Plot

fun pair(p0:Plot, p1:Plot):Figure {
    return gggrid(
            listOf(p0, p1),
            ncol = 2,
            cellWidth = 500,
            cellHeight = 300,
            vGap = 0,
            fit = true
        )
}

val pC = letsPlot(mpg.toMap()) + 
 geomPoint(size = 7) {x = "vehicle weight (lbs.)"; y = "miles per gallon"; color = "miles per gallon"} + 
 ggtitle("Continuous data") + labs(color = "MPG")

val pD = letsPlot(mpg.toMap()) + geomBar{x = "origin of car"; fill = "origin of car"} +
 ggtitle("Discrete data") + labs(fill = "")

pair(pC + scaleColorViridis(),
     pC + scaleColorViridis(end = 0.5))

pair(pD + scaleFillViridis(),
     pD + scaleFillViridis(begin = 0.3, end = 0.8))

pair(pD + scaleFillViridis(alpha = 0.4),
     pD + scaleFillViridis(begin = 0.3, end = 0.8, direction = -1))

pair(pC + scaleColorViridis(option = "A"),
     pD + scaleFillViridis(option = "magma"))

pair(pC + scaleColorViridis(option = "B"),
     pD + scaleFillViridis(option = "inferno"))

pair(pC + scaleColorViridis(option = "C"),
     pD + scaleFillViridis(option = "plasma"))

pair(pC + scaleColorViridis(option = "D"),
     pD + scaleFillViridis(option = "viridis"))

pair(pC + scaleColorViridis(option = "E"),
     pD + scaleFillViridis(option = "cividis"))

pair(pC + scaleColorViridis(option = "turbo", direction = -1),
     pD + scaleFillViridis(option = "turbo"))

pair(pC + scaleColorViridis(option = "twilight"),
     pD + scaleFillViridis(option = "twilight"))