library(igraph)

# ナンバー2つずつがセット（左から右へ矢印）
g <- graph(c(1, 2, 2, 4, 2, 3, 3, 4, 3, 5, 5, 6, 5, 7, 6, 7))

# カラー
V(g)$color <- "skyblue"

# ノードのサイズ
V(g)$size <- 25

# フォントサイズ
V(g)$label.cex <- 1

# ナンバーをアルファベットに。
V(g)$label <- letters[1:7]

# 描画
plot(g, layout = layout.fruchterman.reingold)