### R代码从vignette源的超绘制。Rnw ' ################################################### ### 代码块1号:hyperdraw。Rnw: 76 - 78 ################################################### 库(hyperdraw ) ################################################### ### 代码块2号:hyperdraw。Rnw: 83 - 97 ################################################### [1:5]节点< - c(信件,粘贴(R, 1:3, 9 = " ")) testgnel < -新(“graphNEL”,节点=节点,edgeL =列表(=列表(边缘= c (R1, R2)), B =列表(边缘= R2), c =列表(),D =列表(边缘= R3), E =()列表,R1 =列表(边缘=“B”),R2 =列表(边缘= c(“c”,“D”)),R3 =列表(边缘= " E ")), edgemode = "导演 ") ################################################### ### 代码块3号:gnel ################################################### 情节(testgnel ) ################################################### ### 代码块数量4:hyperdraw。Rnw: 118 - 120 ################################################### testbph < - graphBPH (testgnel edgeNodePattern = " ^ R ") ################################################### ### 代码块5号:hyperdraw。Rnw: 137 - 138 ################################################### 库(超图 ) ################################################### ### 代码块6号:hyperdraw。Rnw: 140 - 145 ################################################### 《< - DirectedHyperedge(“A”、“B”、“R1”)dh2 < - DirectedHyperedge (c(“A”、“B”),c(“c”,“D”),R2) dh3 < - DirectedHyperedge(“D”、“E”、“R3”)hg < -超图(字母[1:5],列表(《死亡,dh2 dh3)) hgbph < - graphBPH (hg ) ################################################### ### 代码块7号:良性前列腺增生 ################################################### 情节(testbph ) ################################################### ### 代码块8号:hyperdraw。Rnw: 166 - 168 ################################################### testrabph < - graphLayout (testbph ) ################################################### ### 代码块9号:rabph ################################################### edgeDataDefaults (testrabph lwd) < - 1 edgeData (testrabph c(“A”、“R1”),c(“R1”、“B”)、“lwd”)< - c(“5”,“3”)edgeDataDefaults (testrabph,“颜色”)<——“黑色”edgeData (testrabph c(“A”、“R1”),c(“R1”、“B”),“颜色”)< -“红色”nodeDataDefaults (testrabph“保证金”)<——“单位(3毫米)”nodeDataDefaults (testrabph“形状”)<——“盒子”阴谋(testrabph)