如何使用Vennerable繪圖

這篇文章主要為大家展示了“如何使用Vennerable繪圖”，內(nèi)容簡而易懂，條理清晰，希望能夠幫助大家解決疑惑，下面讓小編帶領(lǐng)大家一起研究并學(xué)習(xí)一下“如何使用Vennerable繪圖”這篇文章吧。

利用Vennerable可以進(jìn)行繪圖，以包自帶的數(shù)據(jù)繪圖如下： library(Vennerable)data(StemCell)w <- Venn(Sets=StemCell[1:2])plot(w, type="squares") 組別標(biāo)簽位置進(jìn)行調(diào)整  可以基于Venn...

利用Vennerable可以進(jìn)行繪圖，以包自帶的數(shù)據(jù)繪圖如下：

library(Vennerable)
data(StemCell)
w <- Venn(Sets=StemCell[1:2])
plot(w, type="squares")

組別標(biāo)簽位置進(jìn)行調(diào)整  可以基于VennGetSetLabels 和VennSetSetLabels 進(jìn)行，前者獲取當(dāng)前繪圖對(duì)象的Set標(biāo)簽的位置，進(jìn)行修改后，利用后者整合到繪圖對(duì)象中，重新繪圖

獲取組別標(biāo)簽的位置信息：

w <- compute.Venn(Venn(Sets=StemCell[1:2]), type ="squares")
SetLabels=VennGetSetLabels(w)

print(SetLabels)

信息如下：

> print(SetLabels)
  Label         x        y hjust  vjust
1  OCT4 -19.56779 12.47998  left bottom
2  SOX2  24.96936 17.88155 right bottom

修改位置信息并重新繪圖

#SetLabels$y=SetLabels$y*1.05
SetLabels$x=SetLabels$x*1.2
w=VennSetSetLabels(w,SetLabels)

library(grid)
grid.newpage()
plot(w)

以上是“如何使用Vennerable繪圖”這篇文章的所有內(nèi)容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內(nèi)容對(duì)大家有所幫助，如果還想學(xué)習(xí)更多知識(shí)，歡迎關(guān)注億速云行業(yè)資訊頻道！