3D лента для одного столбца - PullRequest
Новая
       31

3D лента для одного столбца

0 голосов
/ 28 июня 2019

Я могу создать ленточный график 3D для матрицы, размеры которой больше 1 для строк и столбцов. Я застреваю с проблемой, когда одно из измерений равно 1. То есть, если у меня 12 строк и один столбец, мой код выдает ошибку. Нужна помощь в решении этой ситуации.

Пример данных таблицы приведен ниже: 

    structure(c(3, 4, 2, 2, 9, 6, 6, 7, 8, 10, 11), .Dim = c(1L, 
11L), .Dimnames = list("Fruits and nuts (excluding oil nuts), fresh or dried", 
    c("2005", "2006", "2007", "2008", "2009", "2010", "2011", 
    "2012", "2013", "2014", "2015")))

Код, используемый для графиков, выглядит следующим образом: 

library(plot3D)

ribbon3D(x = 1:nrow(rs12), y = 1:ncol(rs12), z = rs12, scale = T, expand = .2, bty = "b", along = "y",  
         colvar = rs12, colkey = F, border = "black", shade = 0.1, 
         theta = -50, phi = 40, space = .5, d = 2, 
         curtain = T, xlab = "", ylab = "", zlab = "", main = "Pakistan's Exports to Russia", 
         cex.axis = 0.000000000001, box = F)

Для тех, кому интересно, как это работает для матрицы больше 1. Вот пример данных. Но измените имя матрицы с rs12 на tf12 в коде. Ошибка при запуске приведенного выше кода в приведенном выше примере выглядит следующим образом: Error in persp.default(plist$xlim, plist$ylim, z = matrix(nrow = 2, ncol = 2, : increasing 'x' and 'y' values expected. 

dput(tf12)
structure(c(18, 36, 18, 39, 41, 18, 18, 18, 18, 36, 37, 18, 38, 
18, 18, 18, 40, 18, 18, 17, 36, 17, 39, 41, 17, 17, 17, 34, 38, 
36, 17, 34, 17, 17, 17, 40, 17, 17, 16, 38, 34, 40, 41, 16, 16, 
16, 16, 36, 36, 16, 34, 34, 34, 16, 39, 16, 16, 32, 40, 32, 40, 
41, 32, 32, 32, 14, 36, 36, 14, 14, 32, 32, 14, 38, 14, 14, 16, 
38, 33, 39, 41, 33, 16, 33, 33, 37, 36, 16, 33, 16, 16, 16, 40, 
16, 16, 14, 39, 31, 40, 41, 31, 31, 31, 31, 37, 36, 31, 14, 31, 
14, 31, 38, 14, 31, 30, 37, 30, 39, 41, 36, 13, 30, 30, 38, 30, 
30, 30, 30, 30, 30, 40, 13, 13, 15, 38, 32, 39, 41, 32, 15, 15, 
32, 38, 32, 32, 15, 32, 36, 15, 40, 15, 15, 15, 38, 32, 39, 41, 
36, 15, 15, 32, 38, 32, 32, 15, 15, 32, 15, 40, 32, 15, 15, 38, 
32, 39, 41, 36, 15, 15, 32, 32, 32, 36, 15, 32, 36, 15, 40, 15, 
15, 16, 38, 34, 39, 41, 37, 16, 16, 34, 16, 34, 16, 16, 34, 34, 
16, 40, 16, 16), .Dim = c(19L, 11L), .Dimnames = list(c("Pig iron & spiegeleisen, sponge iron, powder & granu", 
"Ores and concentrates of base metals, n.e.s.", "Waste, parings and scrap, of plastics", 
"Leather", "Textile yarn", "Stone, sand and gravel", "Fish, dried, salted or in brine; smoked fish", 
"Copper", "Non-ferrous base metal waste and scrap, n.e.s.", "Cotton", 
"Fish, fresh (live or dead), chilled or frozen", "Feeding stuff for animals (no unmilled cereals)", 
"Carboxylic acids, anhydrides, halides, per.; derivati.", "Crustaceans, mollusks and aquatic invertebrates", 
"Crude vegetable materials, n.e.s.", "Polymers of ethylene, in primary forms", 
"Cotton fabrics, woven", "Other crude minerals", "Ships, boats & floating structures"
), c("2005", "2006", "2007", "2008", "2009", "2010", "2011", 
"2012", "2013", "2014", "2015")))

1 Ответ

1 голос
/ 28 июня 2019

Это вызвано ошибкой в ​​ribbon3D: она подставляет матрицу, но не говорит R сохранить ее как матрицу, поэтому она становится вектором, и после этого дела идут плохо.

Вы можете исправить эту ошибку самостоятельно, используя функцию fix(), чтобы отредактировать ее и создать локальную копию, но вы просто получите другую ошибку, которая, вероятно, вызвана той же проблемой в другом месте.

Я бы предложил вам два варианта:

  1. Потратьте некоторое время на отслеживание и устранение всех этих проблем.Это хороший шанс научиться отладке в R, но это займет некоторое время.Как только вы все исправите, отправьте список необходимых изменений сопровождающему пакета plot3D.

  2. Напишите сопровождающему, включая ваш воспроизводимый пример, и надеемся, что у него естьИнтерес и время, чтобы решить проблему.

...