Mca сюжет для мульти данных

Question

Имея такой фрейм данных:

df1 <- data.frame(id = c(1,1,1,2,2,3),
                  snames = c("stockA","stockB","stockC","stockA","stockB","stockC"),
                  var1 = c(0.13,1.2,-1.5,3.45,-0.26,-2.1), 
                  var2 = c(-2.1,2.34,3.56,-1.53,-0.48,-0.29), 
                  var3 = c(0.04,-3.45,-0.22,-0.29,1.34,0.32), 
                  var4 = c(2.14,-1.34,-4.35,-1.56,0.13,-2.35), 
                  var5 = c(1.53,1.24,-0.32,-0.3,-4.25,-2.49))

Как можно создать график mca (многоканальный анализ), такой как этот для распределения имен в отношении 5 Переменные до метки