googleVis在R笔记本中不起作用

Question

我想在R Noteboooks中使用googleVis创建sankey图并将其编织为HTML。但是，它不起作用。它没有显示sankey图。怎么解决？我已将输出附加在下面的代码下面。

   ```{r}
 library(googleVis)

datSK <- data.frame(From=c(rep("A",3), rep("B", 3)),
                To=c(rep(c("X", "Y", "Z"),2)),
                Weight=c(5,7,6,2,9,4))

Sankey <- gvisSankey(datSK, from="From", to="To", weight="Weight",
                 options=list(
                   sankey="{link: {color: { fill: '#d799ae' } },
                        node: { color: { fill: '#a61d4c' },
                        label: { color: '#871b47' } }}"))
 plot(Sankey)
```