Как изменить цвет рамки в переходном графике (пакет Gmisc) - PullRequest
Новая
       20

Как изменить цвет рамки в переходном графике (пакет Gmisc)

0 голосов
/ 05 ноября 2019

Я хочу сделать переходный участок с тремя столбцами. Я использую пакет Gmisc, но не функцию transitionPlot, поскольку она не позволяет мне включить третий столбец. Поэтому я использовал код ниже. Моя проблема в том, что моя таблица переходов результатов темно-зеленого цвета, и на ней есть тень блока. Не могли бы вы помочь мне, как я могу изменить цвет и избавиться от тени? Спасибо. Это мой первый запрос, если что-то не так, извините.

Вот пример кадра данных (я взял это из stackoverflow, так как у меня нет данных): 

x <- structure(list(Obs = 1:13, Seq.1 = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L), .Label = c("a", "b", "c" ), class = "factor"), Seq.2 = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c("c", "d"), class = "factor"), Seq.3 = structure(c(1L, 1L, 1L, 2L, 1L, 1L, 3L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c("", "d", "e"), class = "factor"),     Seq.4 = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 2L), .Label = c("", "f"), class = "factor")), .Names = c("Obs", "Seq.1", "Seq.2", "Seq.3", "Seq.4"), class = "data.frame", row.names = c(NA, -13L))


library(Gmisc)
library(dplyr)
transitions <- table(x$Seq.1,x$Seq.2) %>%
getRefClass("Transition")$new(label=c("1st Iteration", "2nd Iteration"))
transitions$box_width = 0.25;
transitions$box_label_cex = 0.7;
transitions$arrow_type = "simple";
transitions$arrow_rez = 300;
table(x$Seq.2,x$Seq.3) %>% transitions$addTransitions(label = '3rd Iteration')
transitions$render()
...