記号案内 library(kinship2) # 全員に通し番号 id <- 1:15 # 性別。１：男、２：女、３：不明、４：中絶 sex <- c(1,2,2,1,2,1,1,2,2,2,2,2,2,3,4) # 名前を付ける lab <- id lab[which(sex==1)] <- paste(lab[which(sex==1)],"郎",sep="") lab[which(sex==2…