Rで家系図描画

家系解析を行っている方は、家系図を描く機会が多いのでは
ないでしょうか。
kinship2というパッケージを使うと、Rで家系図を描くことができます。

（１）家系図情報ファイルの作成
以下の内容のテキストファイルを作成します。

id father mother sex name
1 0 0 1 Namihei
2 0 0 2 Fune
3 1 2 2 Sazae
4 1 2 1 Katsuo
5 1 2 2 Wakame
6 0 0 1 Masuo
7 6 3 1 Tarao

項目区切りは空白でもタブでもOKです。
idが一意なid、fatherが父のid、motherが母のid、sexが性別
（男性は1、女性は2）、nameが名前です。

（２）「kinship2」パッケージのインストール
> install.packages('kinship2')

（３）ファイル読み込み、家系図描画
>library(kinship2)
> df <- read.table('c:/Users/hat/Desktop/ped.txt', header=T)
# （１）のファイルを指定します
> ped <- pedigree(id=df$id, dadid=df$father, momid=df$mother, sex=df$sex)
> plot(ped, id=df$name)



さらに、疾患の有無や生死の情報も付加することができます。
詳細はkinship2のvignettesをご覧ください。