我想用三列制作过渡图。我使用Gmisc包，但不使用transitionPlot函数，因为它不能使我包括第三列。因此，我使用了下面的代码。我的问题是我的结果转换表是深绿色，并且有框阴影。您能帮我改变颜色并消除阴影吗？谢谢。这是我的第一个查询，如果有问题，抱歉。

这里是一个数据帧示例（由于没有数据，我从stackoverflow中获取了该示例）：

x <- structure(list(Obs = 1:13,Seq.1 = structure(c(1L,1L,2L,3L,3L),.Label = c("a","b","c" ),class = "factor"),Seq.2 = structure(c(1L,2L),.Label = c("c","d"),Seq.3 = structure(c(1L,.Label = c("","d","e"),Seq.4 = structure(c(1L,"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()