Usage
ggally_nostic_hat(data, mapping, ..., linePosition = 2 *
sum(data[[deparse(mapping$y)]])/nrow(data), lineColor = brew_colors("grey"),
lineSize = 0.5, lineAlpha = 1, lineType = 2,
avgLinePosition = sum(data[[deparse(mapping$y)]])/nrow(data),
avgLineColor = brew_colors("grey"), avgLineSize = lineSize,
avgLineAlpha = lineAlpha, avgLineType = 1)