################################################### ### 块1号:createGraph1 ################################################### 库(Rgraphviz) set.seed [1:10] (123) V < -字母M < - 1:4 g1 < - randomGraph (0.2 V, M) g1 < - layoutGraph (g1) renderGraph (g1 ) ################################################### ### 块2号:bgandfontcol ################################################### 图。票面价值(列表(节点=(填补=“浅灰色”,textCol =“红色”)))renderGraph (g1 ) ################################################### ### 块3号:nodepardefs ################################################### 图。票面价值(列表(节点= (col =暗绿色,lty =“点缀”,lwd = 2,字形大小= 6)))renderGraph (g1 ) ################################################### ### 块数量4:edgepardefs ################################################### 图。票面价值(列表(边缘= (col =“lightblue”,lty =“冲”,lwd = 3))) renderGraph (g1 ) ################################################### ### 块5号:标签 ################################################### 标签< - edgeNames (g1)名称标签(标签)< - g1 < - layoutGraph (g1, edgeAttrs =列表标签(标签=))renderGraph (g1 ) ################################################### ### 块6号:tweaklabesl ################################################### 图。票面价值(列表(边缘=(字形大小= 18日textCol =“darkred”)))renderGraph (g1 ) ################################################### ### 块7号:graphpardefs ################################################### 图。票面价值(列表(图=(主要=“主标题…”,子= "……和一个副标题“cex.main = 1.8 cex.sub = 1.4, col.sub = "灰色")))renderGraph (g1 ) ################################################### ### 块8号:nodePars ################################################### nodeRenderInfo (g1) < -列表(填补= c(=“浅黄色,b =浅黄色))renderGraph (g1 ) ################################################### ### 块数量9:edgePars ################################################### edgeRenderInfo (g1) < -列表(lty = c(“b ~ f”=“固体”,“b - h”=“固体”),坳= c(“b ~ f”=“橙色”,“b - h”=“橙色”))renderGraph (g1 ) ################################################### ### 块10号:programParms ################################################### baseNodes[1:4] < -字母填写< -代表(“lightblue”,长度(baseNodes))的名字(填充)< - baseNodes nodeRenderInfo (g1) < -列表(填补=填补)renderGraph (g1 ) ################################################### ### 块11号:setallatonce ################################################### nodeRenderInfo (g1) < -列表(lty = 1) edgeRenderInfo (g1) < -列表(lty = 1, lwd = 2, =“灰色”)上校renderGraph (g1 ) ################################################### ### 块12号:重置 ################################################### nodeRenderInfo (g1) < -列表(填补=列表(b = NULL, d = NULL)) renderGraph (g1 ) ################################################### ### 块13号:nshape ################################################### nodeRenderInfo (g1) < -列表(形状=“椭圆”)nodeRenderInfo (g1) < -列表(形状= c (g =“盒子”,i =“三角形”,j =“圆”,c =“明文”))g1 < - layoutGraph (g1) renderGraph (g1 ) ################################################### ### 块14号:userDefinedNode ################################################### edgeRenderInfo (g1) < -列表(标签= NULL) myNode < -函数(x,坳,填补,…)符号(x = (x [1]), y = (x[2]),温度计= cbind(。5、1、runif(1)),英寸= 0.5,fg =坳,bg =填补,添加= TRUE) nodeRenderInfo (g1) < -列表(形状=列表(d = myNode, f = myNode),填补= c (d =“白色”,f =“白色”),坳= c (d =“黑人”,f =“黑色”))g1 < - layoutGraph (g1) renderGraph (g1 ) ################################################### ### 块数量15:changeMode ################################################### edgemode (g1) < -“命令” " ################################################### ### 16块数量: arrowheads ################################################### edgeRenderInfo(g1) <- list(arrowhead=c("e~h"="dot", "c~h"="odot", "a~h"="diamond", "b~f"="box", "a~b"="box", "f~h"="odiamond"), arrowtail="tee") g1 <- layoutGraph(g1) renderGraph(g1) ################################################### ### chunk number 17: userDefinedEdge ################################################### myArrows <- function(x, ...) { for(i in 1:3) points(x,cex=i, ...) } edgeRenderInfo(g1) <- list(arrowtail=c("c~h"=myArrows)) g1 <- layoutGraph(g1) renderGraph(g1) ################################################### ### chunk number 18: reset ################################################### # reset the defaults graph.par(graph:::.default.graph.pars()) ################################################### ### chunk number 19: ################################################### sessionInfo()