# # # R代码从装饰图案的RGraph2js来源。Rnw“# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块1号:style-Sweave # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # BiocStyle::乳胶()# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块2号:adjmatExample # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # v < - c (0 4 1 1 0, 0, 1, 0, 0, 0, 2, 0, 0, 1, 0) a35 < -矩阵(v, 3、5) colnames (a35) < -信[1:5]rownames (a35) < - - - - - -信[1:3]# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块3号:tab1 # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #库(xtable)打印(xtable (a35标题=“3 x5签署了加权邻接矩阵”,标签=“选项卡:一个显示= c (“d”、“d”、“d”,“d”,“d”,“d”)),标题。位置= "底")# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块数量4:simpleExample # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #库(RGraph2js) v < - c (1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1) a1515 < -矩阵(v, 15日,15)colnames (a1515) < -字母(1:15)rownames (a1515) <——字母(1:15)# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块5号:tab2 # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #库(xtable)打印(xtable (a1515标题=“15 x15邻接矩阵”,标签=“选项卡:两个”,显示= c (“d”、“d”、“d”,“d”,“d”,“d”,“d”,“d”,“d”,“d”,“d”,“d”,“d”,“d”,“d”,“d”)),标题。位置= "底")# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块6号:
”、“标题1头2”、“标题3文本1”、“文本1、2文本1,3”、“文本2、1文本2 2文本2、3”、“”),“这是另一个内容”,“另一个一个”,paste0 (“
”、“
| 标题1 |
头2 |
”、“标题3 |
| 文本1 |
”、“文本1、2 |
文本1,3 |
| ”、“文本2、1 |
文本2 2 |
文本2、3”、“ |
”)。”标题1
头2
”)n。< - data.frame提案(提示= someHtmlContent) rownames (n.prop) < - - - - - -信[1:5]# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块第27号:tooltipContent3 # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # userCssStyles < - - - - - -”“# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块数量28:tooltipContent4 # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # outputDir < - file.path (tempdir (),“RGraph2js_tooltipContent”) g < - graph2js (a35选择=选择nodesProp = n。道具,userCssStyles = userCssStyles outputDir = outputDir) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块29:dot1 (eval = FALSE) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # (sna) # # # # extdata库。路径< - file.path (path.package(包=“RGraph2js”),“extdata”) # # dot.file。< - file.path (extdata路径。路径,“nohosts.dot”) # # adj.mat <——read.dot (dot.file.path) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块数量30:dot2 (eval = FALSE) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #选择< - getDefaultOptions() # #选择displayNetworkEveryNLayoutIterations < - 100 # #选择美元displayNodeLabels < -假# #选择layout_forceCharge < - -2400美元# # nodesGlobal < -列表(颜色= " # 5544 ff ") # # outputDir < - file.path (tempdir (),“RGraph2js_dot”) # # g < - graph2js (A = adj。垫,# # nodesGlobal = nodesGlobal, # #选择=选择# # outputDir = outputDir) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块31:graphNELExample # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #库(图)节点< - c (“A”、“B”、“c”,“D”,“E”)边缘< -列表(=列表(边缘= c (“A”、“B”),重量= c (2, 2)), B =列表(边缘= c (“A”、“E”),重量= c (0.25, 0.25), c =列表(边缘= c (“A”,“D”),重量= c (4, 4)), D =列表(边缘= c (E),重量= c (6)), E =列表(边缘= c (“A”、“B”),重量= c (1,1))) gnel < - - - - - -新(“graphNEL”,节点=节点,edgeL =边缘,edgemode =“指示”)# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块32:graphNELExampleRgraphviz (eval = FALSE) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #电子战< - as.character (unlist (edgeWeights (gnel))) # #电子战< -电子战(setdiff (seq(=电子战)removedEdges (gnel))) # #名称(ew) < - edgeNames (gnel) # # eAttrs < -列表()# # eAttrs标签<美元——电子战# #地块(gnel # # attrs =列表(# #边=列表(arrowsize = 0.5) # #), # # edgeAttrs = eAttrs) # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #代码块数量33:graphNELExampleRGraph2js # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # outputDir < - file.path (tempdir (),“RGraph2js_graphNELExample”) g < - graph2js (= gnel, outputDir = outputDir)