ベン図の比例と半透明の色合い

Question

私は以下のタイプのカウントデータを持っています。

A 450 
B 1800 
A and B both 230 

私は、次のベン図のようなカラフルな（おそらく半透明の）交差点を開発したいと考えています。

注：この図は、PowerPointで描かれた例示的な手であり、一定の縮尺ではありません。

Answer 1

ここには、Venn diagram from list of clusters and co-occurring factorsについて説明する投稿があります。簡単な解決策の使用パッケージvenneulerについては

：

require(venneuler) 
v <- venneuler(c(A=450, B=1800, "A&B"=230)) 
plot(v) 

より高度でカスタマイズされたソリューションの場合は、パッケージVennDiagramを確認してください。

Answer 2

Geek On Acidの2番目の提案（もう一度感謝します）の2番目の回答に基づいて、私はラインの問題も解決できました。これが他のグーグルと関係がある場合は、私は投稿しています！

require(VennDiagram) 
    venn.diagram(list(B = 1:1800, A = 1571:2020),fill = c("red", "green"), 
    alpha = c(0.5, 0.5), cex = 2,cat.fontface = 4,lty =2, fontfamily =3, 
    filename = "trial2.emf"); 

Answer 3

あなたがダウンロードして実行することができ、直感的で柔軟な比例プロッタがあります。 jvenn http://omics.pnl.gov/software/VennDiagramPlotter.php

と

：：でそれを探すインタラクティブベン図ビューア - GenoToul Bioinfo：http://bioinfo.genotoul.fr/jvenn/

Answer 4

これは完全にあなたの質問に答えるdoes notのにもかかわらず。私はこれがVenn Diagramをプロットしようとしている他の人にとって有益だと考えました。 一つはgplotsパッケージからベン（）関数を使用することができます。

## modified slightly from the example given in the documentation 
## Example using a list of item names belonging to the 
## specified group. 
## 
require(gplots) 
## construct some fake gene names.. 
oneName <- function() paste(sample(LETTERS,5,replace=TRUE),collapse="") 
geneNames <- replicate(1000, oneName()) 

## 
GroupA <- sample(geneNames, 400, replace=FALSE) 
GroupB <- sample(geneNames, 750, replace=FALSE) 
GroupC <- sample(geneNames, 250, replace=FALSE) 
GroupD <- sample(geneNames, 300, replace=FALSE) 

venn(list(GrpA=GroupA,GrpB=GroupB,GrpC=GroupC,GrpD=GroupD)) 

http://www.inside-r.org/packages/cran/gplots/docs/venn

は、その後私はイラストレーターを使用して色や透明度を追加します。

Answer 5

私はOPがRの解決策を尋ねていることを知っていますが、BioVennというWebベースのソリューションを指摘したいと思います。

この図では、私は（フォトショップを介して）手動で変更されました。このように - それは、要素の3個のリストを取り、各表面要素の数に比例するようにベン図を描きます私がBioVennが選んだ場所が好きではないので、数字の配置。しかし、あなたは数字を持っていないことを選ぶことができます。

理論上、BioVennで使用されるリストは遺伝子IDで構成されますが、実際には関係ありません。リストには文字列を入れるだけです。

Answer 6

私は最近新しいRパッケージeulerrを発行しました。これはあなたが望むことを実行します。それはvenneulerと非常に似ていますが、その矛盾はありません。

library(eulerr) 
fit <- euler(c(A = 450, B = 1800, "A&B" = 230)) 
plot(fit) 

や `ライブラリー（ "SOS"）で起動しないのはなぜあなたはeulerr.co