[英]Adjust background picture and title for plot from networkD3's forceNetwork
在此處的帖子之后, 在forceNetwork中為networkD3更改圖例文本的顏色 ,我試圖將本地驅動器中的圖片添加為背景圖像,並為圖形添加標題。
但是,這些行似乎沒有生效:
Background: .style("background-image", "url(C:\\Desktop\\BGP.png)")
Title: htmlwidgets::prependContent(htmltools::tags$h1("Title"))
添加它們的正確方法是什么? 另外,還有沒有辦法調整標題文本的字體樣式和大小?
library(networkD3)
library(htmlwidgets)
subNodes <-
read.table(stringsAsFactors = FALSE, header = TRUE, text = "
nodeName nodeGroup nodeSize
Bob NorthAmerica 10
Alice NorthAmerica 10
Tom China 10
John Japan 10
")
subLinkList <-
read.table(stringsAsFactors = FALSE, header = TRUE, text = "
root children linkValue
0 1 1
0 2 1
0 3 1
")
linkJS <- JS('
function(){
d3.select("body")
.style("background-image", "url(C:\\Desktop\\BGP.png)")
.style("background-repeat", "no-repeat")
.style("background-position", "right bottom")
return 100;
}')
network <- forceNetwork(Links = subLinkList, Nodes = subNodes,
Source = "root", Target = "children",
Value = "linkValue", NodeID = "nodeName",
Group = "nodeGroup",
opacity = 1, Nodesize = "nodeSize",
legend = TRUE, linkDistance = linkJS,
colourScale = JS("d3.scaleOrdinal(d3.schemeCategory20)"))
network1 <- htmlwidgets::onRender(
network,
'function(el, x) {
d3.selectAll(".legend text").style("fill", "white");
d3.select("body").style("background-color", "#144370");
}',
htmlwidgets::prependContent(htmltools::tags$h1("Title"))
)
saveNetwork(network1, "c:\\forceNetwork.html", selfcontained = TRUE)
這是一個可復制的示例,該示例添加標題,設置標題樣式,設置圖例文本樣式,更改背景顏色,並嘗試使用本地文件設置背景圖像。 (我無法測試背景圖片,因為它取決於許多特定因素,但可能對您有用。)...
library(networkD3)
library(htmlwidgets)
subNodes <-
read.table(stringsAsFactors = FALSE, header = TRUE, text = "
nodeName nodeGroup nodeSize
Bob NorthAmerica 10
Alice NorthAmerica 10
Tom China 10
John Japan 10
")
subLinkList <-
read.table(stringsAsFactors = FALSE, header = TRUE, text = "
root children linkValue
0 1 1
0 2 1
0 3 1
")
network <- forceNetwork(Links = subLinkList, Nodes = subNodes,
Source = "root", Target = "children",
Value = "linkValue", NodeID = "nodeName",
Group = "nodeGroup",
opacity = 1, Nodesize = "nodeSize",
legend = TRUE)
network <- htmlwidgets::prependContent(network, htmltools::tags$h1("Title"))
network <- htmlwidgets::onRender(
network,
'function(el, x) {
d3.selectAll(".legend text").style("fill", "white");
d3.select("body").style("background-color", "#144370");
d3.select("h1").style("color", "red").style("font-family", "sans-serif");
d3.select("body")
.style("background-image", "url(file://C:\\Desktop\\BGP.png)")
.style("background-repeat", "no-repeat")
.style("background-position", "right bottom");
}'
)
saveNetwork(network, "~/Desktop/forceNetwork.html", selfcontained = TRUE)
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.