グラフ関数を作成しました:
plotfun = function(dat, pos, tetrad.name=NULL, snp.cols=c("blue", "red", "lightgray")){
plot(1,1, type="n", xlim=c(min(pos), max(pos)), ylim=c(0.75,4.25), yaxt="n", xaxt="n", main=paste("CCT6 -",tetrad.name), xlab="", ylab="", bty="n", cex=.75)
abline(h=1:4, lty="dotted")
tmpnull = sapply(1:4, function(n) points(pos, rep((4:1)[n],length(pos)), col=snp.cols[dat[n,]], pch=16))
mtext(c("a", "b", "c", "d"), side=2, line=0.5, at=4:1, las=1, cex=.5)
}
このグラフ化関数を使用して、より大きなリスト(x
この例では)からインデックスを付けた行列のサブセットをグラフ化しようとしています。私はsapply
すべての行列を個別にグラフ化するために使用しています。
sapply(1:69, function(n) plotfun(dat=matrix.transform(x[[n]]), pos=cct6.pos, tetrad.name= n ))
私の問題は、プロットのタイトルを各マトリックスに添付されたリスト番号として読み取る方法がわからないことです。代わりに、それらにラベルを1:69
付け、インデックス付き入力からの情報を失います。たとえば、最初の入力がcct6[[35]]
プロットのタイトルを読みたく"CCT6-35"
ない場合"CCT6-1"
これが基本的な質問である場合は申し訳ありません。私はこれに固執しています...