【関連する外部ページ】
R システムの CRAN の URL: https://cran.r-project.org/
R システムの CRAN の URL: https://cran.r-project.org/
sudo apt -yV install graphviz libgraphviz-dev
R システムで,次のコマンドを実行し,インストールする. vignette で説明を表示している.
source("http://bioconductor.org/biocLite.R") biocLite("Rgraphviz") vignette("Rgraphviz")
biocLite.R だけでなく, Bioconductor を丸ごとインストールしたいときの手順
source("http://bioconductor.org/biocLite.R") biocLite(groupName="all") vignette("Rgraphviz")
library("Rgraphviz") r <- new("graphNEL", nodes=c("A", "B", "C"), edgemode="directed") r <- addEdge(from="A", to="B", r, weights=1) r <- addEdge(from="B", to="A", r, weights=1) plot(r)
library("Rgraphviz") r <- new("graphNEL", nodes=c("A", "B", "C"), edgemode="undirected") r <- addEdge("A", "B", r, weights=1) r <- addEdge("B", "C", r, weights=1) plot(r)
library("Rgraphviz") r <- new("graphNEL", nodes=c("A", "B", "C"), edgemode="directed") r <- addEdge(from="A", to="B", r, weights=1) r <- addEdge(from="B", to="A", r, weights=1)
class(r) str(r) r@nodes r@edgeL
nodes(r) edges(r)
numNodes(r) numEdges(r)
labels <- c("hoge", "hoge2", "hoge3") names(labels) <- nodes(r)
nattrs <- list() nattrs$label <- labels
plot(r, nodeAttrs=nattrs)
R library("Rgraphviz") r <- new("graphNEL", nodes=c("A", "B", "C", "D"), edgemode="directed") r <- addEdge(from="A", to="B", r) r <- addEdge(from="B", to="C", r) r <- addEdge(from="C", to="D", r) r <- addEdge(from="D", to="B", r) pos <- character(numNodes(r)) pos <- c("1,1!", "5,5!", "1,8!", "9,3!") names(pos) <- nodes(r) pins <- character(numNodes(r)) pins[1:numNodes(r)] <- "TRUE" names(pins) <- nodes(r) nattrs <- list() nattrs$pos <- pos nattrs$pin <- pins plot(r, "neato", nodeAttrs=nattrs) plot( agopen(r, name="foo", nodeAttrs=nattrs, layout=FALSE, layoutType="fdp") )