Это связано с чтением html-файлов в Rmd-файл. Начните с создания и сохранения сети Sankey:
# this is from the help section of NetworkD3)
library(networkD3)
# Load energy projection data
URL <- paste0('https://cdn.rawgit.com/christophergandrud/networkD3/',
'master/JSONdata/energy.json')
energy <- jsonlite::fromJSON(URL)
sn <-sankeyNetwork(Links = energy$links, Nodes = energy$nodes, Source = 'source',
Target = 'target', Value = 'value', NodeID = 'name',
units = 'TWh', fontSize = 12, nodeWidth = 30)
saveNetwork(sn,"Sankey.html")
Затем создайте Rmd-файл и выполните следующие действия, рекомендуемые hrbrmstr в его ответе на аналогичный вопрос .
---
title: "Read Sankey into Rmarkdown file"
author: "user"
output: html_document
---
Read a Sankey diagram into a Rmd file
```{r Sankey, results='asis'}
tmp <- URLencode(paste(readLines(paste(getwd(),"Sankey.html",sep = "/")), collapse="\n"))
cat('<iframe src="data:text/html;charset=utf-8,', tmp ,'" style="border: solid; seamless:seamless; width: 100%; height: 200px"></iframe>')