Водопад | R | ggplot2 | Сообщение об ошибке

Question

Я пытаюсь построить водопад, используя пример кода, представленный в Интернете.

Я получаю сообщение об ошибке после подготовки данных и когда пришло время для построения.

# Create Plot
plot <- ggplot(df, aes(desc, fill = type)) + 
                    geom_rect(aes(x = desc,
                    xmin = id - 0.45, xmax = id + 0.45,
                    ymin = end, ymax = start))
# Error here.  "Warning: Ignoring unknown aesthetics: X"

Также есть часть кода, которую я не понимаю, что она делает.

df <- df[,c(3,1,4,2)]

Полный код R доступен здесь:
https://gist.github.com/khaki22/fd33072e21dc3e2290b213c53366d2a2

Помогите! Пожалуйста.:-)