Я создаю коробочные диаграммы с использованием ggplot и хотел бы представить размер выборки, вносящий вклад в каждую коробку. В базеplot функция естьvarwidth вариант. У него есть эквивалент в ggplot?

Например, в базовом сюжете

data <- data.frame(rbind(cbind(rnorm(700, 0,10), rep("1",700)),
                         cbind(rnorm(50, 0,10), rep("2",50))))
data[ ,1] <- as.numeric(as.character(data[,1]))
plot(data[,1] ~ as.factor(data[,2]), varwidth = TRUE)