scatterpie - Error: Aesthetics must be either length 1 or the same as the data; unrealistic values for variable number

Question

I am trying to produce a plot using \'scatterpie\', and it just won\'t work.
library(scatterpie)
raw <- data.frame(PCA$x[,1:4])