R Script : Membuat Diagram Venn

Unung Istopo — Wed, 27 Apr 2005 09:38:01 +0000

Ada satu library sederhana di R, yang dapat kita gunakan untukmenggambarkan venn antara 2 atau 3 variabel.
Berikut ini saya kasih contoh bagaimana penggunaannya, misalnya untuk menggambarkan kepemilikankomputer dan akses internet.

Data ini saya ambilkan dari data riset, sayang kode datanya bukan TRUE FALSE tapi 1 dan 2,
jadi saya musti recode ulang.

ok,

salam.

Unung

## Cara mengambil data untuk diolah dalam diagram venn 2

list(A=c(T,T,F,T,T),B=c(F,T,F,T,T)) -> data
data.frame(data) -> data.t
cbind(data.t,resp=c(1:length(data.t[,1]))) -> data.b

#### Untuk code 1= Ya dan 2= Tidak
#(as.numeric(data.b[,1])-2)*data.b$resp -> data.A
#(as.numeric(data.b[,2])-2)*data.b$resp -> data.B
#data.A[!is.na(data.A) & data.A<0] -> data.A
#data.B[!is.na(data.B) & data.B<0] -> data.B
#data.A < - data.A*-1
#data.B <- data.B*-1

# Untuk code 0= TIDAK dan 1= YA
as.numeric(data.b[,1])*data.b$resp -> data.A
as.numeric(data.b[,2])*data.b$resp -> data.B
data.A[!is.na(data.A) & data.A>0] -> data.A
data.B[!is.na(data.B) & data.B>0] ->data.B
data.frame(id=c(data.A,data.B),cat=c(rep(names(data.t)[1],
length(data.A)),rep(names(data.t)[2],length(data.B))),
name=letters[1:(length(data.A)+length(data.B))]) -> datvenn(dat$id,dat$cat)

## Cara mengambil data untuk diolah dalam diagram venn3
list(Supermarket=c(T,T,F,T,T,T,T,T,T,F),Hipermarket=c(F,T,F,T,T,F,F,T,T,F), TinyMarket=c(T,T,T,F,T,F,T,F,F,T)) -> data

data.frame(data) -> data.t
cbind(data.t,resp=c(1:length(data.t[,1]))) -> data.b
as.numeric(data.b[,1])*data.b$resp -> data.A
as.numeric(data.b[,2])*data.b$resp -> data.B
as.numeric(data.b[,3])*data.b$resp -> data.C
data.A[!is.na(data.A) & data.A>0] -> data.A
data.B[!is.na(data.B) & data.B>0] -> data.B
data.C[!is.na(data.C) & data.C>0] -> data.C
data.frame(id=c(data.A,data.B,data.C),cat=c(rep(names(data.t)[1],
length(data.A)),rep(names(data.t)[2],length(data.B)),rep(names(data.t)[3],
length(data.C))),name=letters[1:(length(data.A)+length(data.B)+length(data.C))])
-> datvenn(dat$id,dat$cat,main=”test”)

Hasil grafik diagram venn untuk dua variabel :

Atau model yang lain ada di :

library(limma)
example(vennDiagram)

url : http://maths.newcastle.edu.au/~rking/R/help/03a/1115.html

Statistical Graphics & Data Visualization » venn diagram

R Script : Membuat Diagram Venn