Легенда имеет длину "0" ошибка - scatterplot3d R
Я новичок в R, поэтому ценю любую помощь. В настоящее время я создаю трехмерную диаграмму рассеяния, используя несколько переменных. В частности, мои точки рассеивания также различаются по форме и цвету. Сюжет рассматривает более 170 стран с точки зрения продолжительности жизни, численности населения и ВВП на душу населения.
Я хочу, чтобы все точки разброса были разного цвета, полагаясь на столбец $ x страны, который имеет число от 1 до 170+, упорядочивая все страны. Однако цвета все равно повторяются ( вот скриншот). Я делаю что-то неправильно?
См. Код, который я использую для построения графика ниже.
countries3d<-scatterplot3d(countries[,4:6], angle = 10, grid = TRUE, box = TRUE, mar = c(3, 3, 0.5, 3), main = "Countries information", xlab = "Life Expectancy", ylab = "Population", zlab = "GDP per Capita", pch = shapes, color = countries$X, type = "h")
Вот код, который я использую для создания легенды:
legend("topright",legend=levels(countries$Country), pch=shapes)
Однако это приводит к следующей ошибке:
Error in legend("topright", legend = levels(countries$Country), pch = shapes) :
'legend' is of length 0
Что я делаю неправильно? Большое спасибо за любую помощь.