ノードダイアグラムでRの自己矢印をコーディングする方法はありますか？

Question

私が見つけたコードは、母集団マトリックスノード図を作成します。私がしたいのは、最終的なノード、すなわちそれ自身を指し示すノードに自己矢印を追加することだけです。あなたが手伝ってくれることを願います。

library(diagram) 

Numgenerations <- 6 
DiffMat <- matrix(data = 0, nrow = Numgenerations, ncol = Numgenerations) 
AA <- as.data.frame(DiffMat) 
AA[[1,5]] <- "f[4]" 
AA[[1,6]] <- "f[5]" 
# 
AA[[2,1]] <- "s[list(0,1)]" 
AA[[3,2]] <- "s[list(1,2)]" 
AA[[4,3]] <- "s[list(2,3)]" 
AA[[5,4]] <- "s[list(3,4)]" 
AA[[6,5]] <- "s[list(4,5)]" 

# 
name <- c(expression(Age[0]), expression(Age[1]), expression(Age[2]), 
     expression(Age[3]), expression(Age[4]), expression(Age[5])) 
# 
plotmat(A = AA, pos = 6, curve = 0.7, name = name, lwd = 2, 
    arr.len = 0.6, arr.width = 0.25, my = -0.2, 
    box.size = 0.05, arr.type = "triangle", dtext = 0.95, 
    main = "Age-structured population model") 

Answer 1

あなたは矢印をこのように追加することができます。

AA[[6,6]] <- "s[list(5,5)]" 

それとも、あなたがしたい場合、それは私がrelsize弱に設定するために必要な

AA[[6,6]] <- "self" 

、自己の矢印として表示自己の矢印が右端でクリップされないようにします。

plotmat(A = AA, pos = 6, curve = 0.7, name = name, lwd = 2, 
     arr.len = 0.6, arr.width = 0.25, my = -0.2, 
     box.size = 0.05, arr.type = "triangle", dtext = 0.95, 
     main = "Age-structured population model", 
     relsize=0.97)