R для Марковской Цепной Визуализации - PullRequest
0 голосов
/ 03 декабря 2018

Я новичок в R и пытаюсь понять, как использовать пакет диаграмм и библиотеку plotmat, в надежде создать удобочитаемую визуализацию следующих данных.Сейчас это немного сложно читать, и я хотел бы иметь возможность назначать self.shiftx и self.shifty отдельным stateNames / boxs, чтобы я мог переместить их в более разборчивое положение.

Ниже приведена документация, в которой предлагается, что я мог бы изменить положение «одного значения или вектора с размерностью = количество строк в A».Тем не менее, я не могу понять, как сопоставить его с отдельными именами штата и могу использовать некоторую помощь.

Дайте мне знать, что вы думаете.

https://www.rdocumentation.org/packages/diagram/versions/1.6.4/topics/plotmat

install.packages("markovchain")
install.packages("diagram")
install.packages("pracma")

library(expm)
library(markovchain)
library(diagram)
library(pracma)

stateNames <-     c("Bears","Tigers","Trees","Pushmepullu","Hornets","Bees","Snakes")
Oz <- matrix(c(0.000994694960212202, 0.0295092838196286, 0.00431034482758621, 0.00729442970822281, 0.0019893899204244, 0.000994694960212202, 0.0019893899204244,0.000994694960212202, 0.0129310344827586, 0.0026525198938992, 0.000994694960212202, 0.000331564986737401, 0, 0.0013262599469496,0.0218832891246684, 0.160145888594164, 0.0344827586206897, 0.207559681697613, 0.0394562334217507, 0.00928381962864721, 0,0.0029840848806366, 0.10709549071618, 0.0626657824933687, 0.0029840848806366, 0.00762599469496021, 0.00364721485411141, 0.000994694960212202,0, 0.232427055702918, 0, 0, 0.0387931034482757, 0, 0,0, 0.000663129973474801, 0, 0.000994694960212202, 0, 0, 0,0, 0, 0, 0, 0, 0, 0
),

nrow=7, byrow=TRUE)
row.names(Oz) <- stateNames; colnames(Oz) <- stateNames
Oz


plotmat(Oz,pos = c(1,3,3),
    lwd = 1, box.lwd = 2, 
    cex.txt = 0.8, 
    box.size = 0.1, 
    box.type = "circle", 
    box.prop = 0.5,
    box.col = "light blue",
    box.lcol = "dark blue",
    arr.col = "red",
    arr.length=.12,
    arr.width=.2,
    arr.lcol = "dark green",
    self.cex = .75,
    self.shifty = -.01,
    self.shiftx = .13,
    main = "Animals")

`

Марков

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...