### R代码从插图源'graphAttributes。Rnw ' ################################################### ### 代码块1号:exampleGraph1 ################################################### 库(图)垫< -矩阵(c (0, 0, 1, 1, 0, 0, 1, 1, 1, - 1, 0, 1, 1, 1, 1, 0), byrow = TRUE, ncol = 4) rownames(垫)< -信[1:4]colnames[1:4(垫)< -字母 ] ################################################### ### 代码块2号:exampleGraph2 ################################################### g1 < - graphAM (adjMat =垫 ) ################################################### ### 代码块3号:foo ################################################### 如果需要(“Rgraphviz”)){gn情节一样(g1, graphNEL) = (gn nodeAttrs = makeNodeAttrs (gn、形状=“圆”,fillcolor =“橙色”))}{阴谋(1,1,其他主要= " Rgraphviz所需这个阴谋 ") } ################################################### ### 代码块4号:edgeDataDefaults1 ################################################### edgeDataDefaults (g1 ) ################################################### ### 代码块5号:edgeDataDefaults2 ################################################### edgeDataDefaults (g1,“体重”)< - 1 edgeDataDefaults (g1,“代码”)<——“平原”edgeDataDefaults (g1 ) ################################################### ### 代码块6号:edgeDataDefaults3 ################################################### edgeDataDefaults (g1,“体重 ") ################################################### ### 代码块7号:edgeData1 ################################################### edgeData (g1,从=“a”=“d”,attr =“重量”)edgeData (g1,从=“a”,attr =“重量”)edgeData (g1, =“a”,attr =“重量”)allAttrsAllEdges < - edgeData (g1) weightAttrAllEdges < edgeData (g1, attr = "重量 ") ################################################### ### 代码块8号:edgeData2 ################################################### edgeData (g1,从=“a”=“d”,attr =“重量”)< - 2 edgeData (g1,从=“a”,attr =“代码”)< -“花哨”edgeData (g1,从=“a”,attr =“重量”)edgeData (g1,从=“a”,attr = "代码 ") ################################################### ### 代码块9号:edgeData3 ################################################### f < - c(“a”、“b”)t < - c(“c”、“c”)edgeData (g1,从f =, = t, attr =“重量”)< - 10 edgeData (g1,从f =, = t, attr =“重量 ") ################################################### ### 代码块10号:edgeData4 ################################################### edgeData (g1,从f =, = t, attr =“重量”)< - c(11、22)edgeData (g1,从f =, = t, attr =“重量 ") ################################################### ### 代码块11号:edgeData5 ################################################### edgeData (g1,从=“a”=“d”,attr =“代码”)< -列表(1:10)edgeData (g1,从f =, = t, attr =“重量”)< - mapp (c、f t,“e”,简化= FALSE) edgeData (g1,从=“a”=“d”,attr =“代码”)edgeData (g1,从f =, = t, attr =“重量 ") ################################################### ### 代码块12号: defaultNodeData1 ################################################### nodeDataDefaults(g1) nodeDataDefaults(g1, attr="weight") <- 1 nodeDataDefaults(g1, attr="type") <- "vital" nodeDataDefaults(g1) nodeDataDefaults(g1, "weight") ################################################### ### code chunk number 13: nodeData1 ################################################### nodeData(g1, n="a") nodeData(g1, n="a", attr="weight") <- 100 nodeData(g1, n=c("a", "b"), attr="weight") nodeData(g1, n=c("a", "b"), attr="weight") <- 500 nodeData(g1, n=c("a", "b"), attr="weight") nodeData(g1, n=c("a", "b"), attr="weight") <- c(11, 22) nodeData(g1, n=c("a", "b"), attr="weight") ################################################### ### code chunk number 14: other ################################################### ## We need to reconcile this #g2 <- as(g1, "graphNEL") #edgeWeights(g2)