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