Weight parameter for stat_ellipse()

[jammainen]

Geom_density, geom_barplot, geom_histogram and geom_barplot all support aes weight. Stat_ellipse() doesnt support.

I figured out that data[rep(data$rownumber,data$weight),] is a workaround, but that doesnt work too well(or at all) when weights are large. Scaling the weights could work, but then it would lose the accuracy of original data.

Would it be possible to add stat_ellipse() to suppport weight aesthetics?

[teunbrand]

I'm not familiar with the theory behind these data ellipses, but would this be as simple as passing weights to the stats::cov.wt()/MASS::cov.trob() functions in the lines below?

ggplot2/R/stat-ellipse.R

Lines 98 to 105 in e3b7822

	if (type == "t") {
	v <- MASS::cov.trob(data[,vars])
	} else if (type == "norm") {
	v <- stats::cov.wt(data[,vars])
	} else if (type == "euclid") {
	v <- stats::cov.wt(data[,vars])
	v$cov <- diag(rep(min(diag(v$cov)), 2))
	}