График составной области с несколькими входами для оси Y

Question

Я пытаюсь использовать ggplot2 для построения диаграммы с областями с накоплением.

Мой фрейм данных имеет следующую форму:

id <- "1lDyf1H-rrW4qPchXfRFnTt8kFMzmuDrp"

Weights <- read.csv(sprintf("https://docs.google.com/uc?id=%s&export=download", id))

Weights <- Filter(function(x)!all(is.na(x)), Weights) 
Weights <- Weights[1:nrow(Weights) - 1,]

Мой код на данный момент выглядит следующим образом:

X_Axis <- Weights[1]
Y_Axis <- Weights[,2:12]
Group <- colnames(Weights)[2:12]

ggplot(Weights, aes(x=X_Axis, y=Y_Axis, fill=Group)) + 
    geom_area()

Но я получаю следующую ошибку

Error: Aesthetics must be either length 1 or the same as the data (101): y, fill

Как мне построить их на диаграмме с областями с накоплением?