2 つのヒストグラムをプロットし、表を pdf ファイルに追加したいと思います。レイアウト関数を使用して、ヒストグラムを必要な場所にプロットすることができました (hist 関数を使用してプロットしました)が、gridExtra パッケージの grid.table 関数を使用してテーブルを追加すると、テーブルがヒストグラムに配置され、私はそれらを適切に配置することができません。addtable2plot 関数を試してみましたが、視覚的に魅力的ではありません。
どうすればこれを回避できますか?
PDFをこのようにしたい
histogram1 histogram2
t a b l e
基本的に、1 つの行には 2 つの列があり、別の行には 1 つの列しかありません。これが私がしたことです。
require(gridExtra)
layout(matrix(c(1,2,3,3),2,2,byrow=T),heights=c(1,1))
count_table=table(cut(tab$Longest_OHR,breaks=c(0,0.05,0.10,0.15,0.20,0.25,0.30,0.35,0.40,0.45,0.50,0.55,0.60,0.65,0.70,0.75,0.80,0.85,0.90,0.95,1.00)))
ysize=max(count_table)+1000
hist(tab$Longest_OHR,xlab="OHR longest",ylim=c(0,ysize))
count_table=table(cut(tab$Sum_of_OHR.s,breaks=c(0,0.05,0.10,0.15,0.20,0.25,0.30,0.35,0.40,0.45,0.50,0.55,0.60,0.65,0.70,0.75,0.80,0.85,0.90,0.95,1.00)))
ysize=max(count_table)+1000
hist(tab$Sum_of_OHR.s,xlab="OHR Sum",ylim=c(0,ysize))
tmp <- table(cut(tab$Length_of_Gene.Protein, breaks = c(0,100,200,500,1000,2000,5000,10000,1000000000)), cut(tab$Sum_of_OHR.s, breaks = (0:10)/10))
grid.table(tmp)
dev.off()
どんな助けでも大歓迎です。
RAM