2

各vertexの形(shape)を楕円として描画したいです。

独自のshapeを作るサンプルとしてドキュメントがあるのですが 三角形や星形を作るのにsymbols()を利用しています。 symbols()では真円は作れるのですが楕円は作れなそうです。

どなたか良い方法をご存知でしょうか。


追記: パッケージを追加導入して楕円の描画ができることを確認しましたので、パッケージを使わなくて済む方法についてお教えいただけると助かります。

2 件の回答 2

2

こんな感じで自作の楕円を描く関数を定義してやれば楕円は描けるみたいです。
(すみません、これは適当につくったので楕円が欠けちゃってるんですけど)

けどまあ、自己レスされているようにplotrixパッケージとか、ellipseパッケージの関数を使うのがお手軽ではないかと思います。
あまりお役に立てずすみません。。

library(igraph)

shapes <- setdiff(vertex.shapes(), "")
g <- graph.ring(length(shapes))

myellipse <- function(coords, v=NULL, params) {
  vertex.color <- params("vertex", "color")
  if (length(vertex.color) != 1 && !is.null(v)) {
    vertex.color <- vertex.color[v]
  }
  vertex.size <- 1/200 * params("vertex", "size")
  if (length(vertex.size) != 1 && !is.null(v)) {
    vertex.size <- vertex.size[v]
  }
  vertex.size2 <- 1/200 * params("vertex", "size2")
  if (length(vertex.size2) != 1 && !is.null(v)) {
    vertex.size2 <- vertex.size2[v]
  }

  ellipse <- function(cx, cy, a, b){
    plot(function(x) b*sqrt(1-(x-cx)^2/a^2) + cy, cx - a, cx + a, add = TRUE)
    plot(function(x) -b*sqrt(1-(x-cx)^2/a^2) + cy, cx - a, cx + a, add = TRUE)
  }

  n <- nrow(coords)
  lapply(1:n, function(i) ellipse(coords[i,1], coords[i,2], vertex.size, vertex.size2))
}
add.vertex.shape("ellipse", clip=igraph.shape.noclip, plot=myellipse)
plot(g, vertex.shape="ellipse", vertex.size=30, vertex.size2=20)

楕円

1

自己レスです。plotrixというパッケージを利用することで、一応楕円の描画までは成功しました。

library(igraph)
library(plotrix)
myellipse <- function(coords, v=NULL, params) {
    vertex.color <- params("vertex", "color")
    if (length(vertex.color) != 1 && !is.null(v)) {
        vertex.color <- vertex.color[v]    
    }
    vertex.size <- 1/200 * params("vertex", "size")
    if (length(vertex.size) != 1 && !is.null(v)) {
        vertex.size <- vertex.size[v]
    }
    vertex.size2 <- 1/200 * params("vertex", "size2")
    if (length(vertex.size2) != 1 && !is.null(v)) {
        vertex.size2 <- vertex.size2[v]
    }
    draw.ellipse(coords[,1], coords[2,], vertex.size, vertex.size2,
        col = vertex.color)
}
add.vertex.shape("ellipse", clip=igraph.shape.noclip, plot=myellipse)

引き続き、パッケージの追加導入を必要としない方法があれば募集します。

この質問に回答するには、ログインする必要があります。

求めていた回答ではありませんか? のタグが付いた他の質問を参照する。