R 如何更改过渡图（Gmisc包）中的方框颜色

我想画三列的过渡图。我使用Gmisc包，但不使用transitionPlot函数，因为它不允许包含第三列。因此，我使用了下面的代码。我的问题是，我的结果转换表是深绿色的，并且有框阴影。你能帮我改变一下颜色，去掉阴影吗？非常感谢。这是我第一次询问，如果有什么问题，对不起

这里是一个dataframe示例（我从stackoverflow中获取，因为我没有数据）：

x%transitions$addTransitions（标签='3rd Iteration'）
转换$render（）

请提供可复制的示例谢谢，我编辑了我的查询。太好了。祝你的问题好运：）顺便说一句，你可以添加Gmisc标签，它将为关注此包的人突出显示你的问题

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()