topic Re: Venn Diagram in R Script Showcase

Venn Diagram

jessicammoss — Fri, 28 Oct 2016 14:55:04 GMT

Venn diagrams show overlapping regions based on values within sets. The R visualization code provided in this Power BI desktop file will take a dynamic set of columns (based on the values you add in the fields pane), perform the overlap analysis, and display the diagram. This code will work with up to 5 columns.

Prerequisites (The sample .pbix files will not work without these prerequites completed)

Install R Engine: Power BI Desktop does not include, deploy or install the R engine. To run R scripts in Power BI Desktop, you must separately install R on your local computer. You can download and install R for free from many locations, including the Revolution Open download page, and the CRAN Repository
Install the required R packages: VennDiagram

Re: Venn Diagram

boefraty — Tue, 22 Nov 2016 10:44:52 GMT

Hi Jessica,

Thanks for this wonderful R-showcase. If you consider to convert this or one of your future R-visuals to R-powered-custom visuals, out team will be happy to assist you.

The visibility of R-powered custom visuals is greater and it is not limited for R-users.

Re: Venn Diagram

fajarberlian — Mon, 20 Mar 2017 01:59:30 GMT

How can i create venn diagram without using R? Please help me

Re: Venn Diagram

mark_phen — Wed, 22 Mar 2017 06:01:21 GMT

Hi Jessica,

Thank you for the R script.

However, for my requirement when I add a 5th column, the labels get truncated. Do you have any suggestion so as to how we can overcome that?

I've attached your file with my modifications to show you the problem I'm facing.

Thanks

Mark

Re: Venn Diagram

boefraty — Thu, 23 Mar 2017 10:12:51 GMT

Try changing parameters of

venn.diagram

For example margin:

venndiagram <- venn.diagram(listdataset, filename=NULL, na="remove", fill = listcolor, margin = 0.1)

Re: Venn Diagram

mark_phen — Mon, 27 Mar 2017 05:40:07 GMT

Thanks!

Re: Venn Diagram

Anonymous — Tue, 16 Jan 2018 21:48:08 GMT

When I click on your link, VennDiagramWithR.pbix, Power bi pops up with an error message. Can't see your code. (see attached screenshot) Does this still work or am I just doing it wrong? I wrote code in r that runs beautifully (in r). When I run it inn Power Bi, it gives me the same error message as I get when I click on your link.

Any hints anyone?

Here's my code and a screenshot of a small dataset (Venn_dummy)

draw.triple.venn(area1 = nrow(subset(Venn_dummy, Felony == "Yes")), area2 = nrow(subset(Venn_dummy, Misdemeanor == "Yes")), area3 = nrow(subset(Venn_dummy, Ordinance == "Yes")),
n12 = nrow(subset(Venn_dummy, Felony == "Yes" & Misdemeanor == "Yes")), n23 = nrow(subset(Venn_dummy, Misdemeanor == "Yes" & Ordinance == "Yes")),
n13 = nrow(subset(Venn, Felony == "Yes" & Ordinance == "Yes")), n123 = nrow(subset(Venn, Felony == "Yes" & Misdemeanor == "Yes" & Ordinance == "Yes")),
category = c("Felony Offenders", "Misdemeanor Offenders", "Ordinance Offenders"), lty = "blank", fill = brewer.pal(n = 3, name = "Dark2"))

Re: Venn Diagram

boefraty — Thu, 25 Jan 2018 09:26:33 GMT

Hi @Anonymous , I opened the attached PBIX it works fine for me.

1) Make sure you have updated PBI desktop

2) Install install.packages("VennDiagram") from your R IDE

3) If problem persisits look at the Error (See Details)

4) You may debug the code in your R IDE from R Visual

5) If your problem persisits send me your PBIX
boefraty at microsoft com

Re: Venn Diagram

Anonymous — Thu, 25 Jan 2018 15:03:31 GMT

Hi Boefraty,

Thank you for your helpful message.

I got the Venn Diagram to work in Power Bi, but I can’t get the slicer to work with it. I’m supposed to do a demonstration on this next week (yikes). I’ve attached a screen shot. Can you give me any tips?

Note: my data file has person-level data (not aggregate), and includes both charge data and demographic data (i.e. race).

Also, I don’t know what a BPIX is.

Re: Venn Diagram

boefraty — Fri, 26 Jan 2018 20:31:11 GMT

PBIX is an extension of file generated in PBI desktop .

If you send it to me I will have no trouble to reproduce your problem on my side.

Re: Venn Diagram

Anonymous — Sat, 27 Jan 2018 18:30:43 GMT

Thanks so much!

##This Venn diagram code is for use in the Power Bi demonstration. Run it from R from within Power Bi

#set working directory i.e. the folder you are working out of
setwd("H:/Eliel JBBS Sent")
#set default library path - where to look for packages, which are also called libraries
.libPaths("H:/R/win-library/3.4")

#load Venn Diagram package

library(VennDiagram)
library("RColorBrewer")
library(grid)
library(futile.logger)
#get Java so we can export to Excel
Sys.setenv(JAVA_HOME = "C:/Program Files/Java/jdk1.8.0_151")

library(xlsx)
library(rJava)

Venn <- read.xlsx("Venn.xlsx", sheetName = "Venn", header = TRUE, stringsAsFactors = FALSE)

draw.triple.venn(margin = 0.1, area1 = nrow(subset(Venn, Felony == "Yes")), area2 = nrow(subset(Venn, Misdemeanor == "Yes")), area3 = nrow(subset(Venn, Ordinance == "Yes")),
n12 = nrow(subset(Venn, Felony == "Yes" & Misdemeanor == "Yes")), n23 = nrow(subset(Venn, Misdemeanor == "Yes" & Ordinance == "Yes")),
n13 = nrow(subset(Venn, Felony == "Yes" & Ordinance == "Yes")), n123 = nrow(subset(Venn, Felony == "Yes" & Misdemeanor == "Yes" & Ordinance == "Yes")),
category = c("Felony Offenders", "Misdemeanor Offenders", "Ordinance Offenders"), lty = "blank", fill = brewer.pal(n = 3, name = "Dark2"))

Re: Venn Diagram

boefraty — Sun, 28 Jan 2018 12:23:13 GMT

I got your code to run in my PBI Desktop just fine. You mentioned something about slicers. I can not reproduce your slicers from R script 😞

Can you attach your PBIX (PBI desktop report file) ?

Re: Venn Diagram

Anonymous — Tue, 30 Jan 2018 15:44:31 GMT

Thanks so much.

Yes, my Venn code works great. The slicer does not.

I created a slicer for Race like I do for anything else in Power Bi (see attached screen shots) It's on the same page as my Venn Diagram, which I created in R. I expected that if I selected only "white" in the race slicer, it would filter out all the non-white subjects in my Venn diagram, just like it does for any other Power Bi visual.

Isn't that how it's supposed to work?

Thanks again,

Jennifer

Re: Venn Diagram

boefraty — Tue, 30 Jan 2018 16:15:23 GMT

Try to change your R visual to "Table" visual. See how it responses to slicer.

Run the code with your filtered data in R IDE like RStudio (see my previous reply) and debug it

Send me the PBIX 🙂

Re: Venn Diagram

Anonymous — Tue, 30 Jan 2018 16:30:19 GMT

Thank you so much! Here is my PBIX file.

Also I'vew attached a screen shot of what happens when I change it to a table. Yes the slicer works, but the visual isn't useful anymore.

Many thanks,

Jennifer

Re: Venn Diagram

boefraty — Tue, 30 Jan 2018 20:44:11 GMT

You are reading input from exel file, ignoring the input from PBI report 🙂

#Comment out this line

#Venn <- read.xlsx("Venn.xlsx", sheetName = "Venn", header = TRUE, stringsAsFactors = FALSE)

#Use this one instead

Venn = dataset

I'd also recommend to clean the R code from loading unnecessary libraries (rJava etc.)

Good luck with your project 🙂

Re: Venn Diagram

boefraty — Tue, 30 Jan 2018 20:57:14 GMT

Hi @Anonymous,
One more tip. You should add more columns to your R visual , so that each row is unique. Otherwise PBI visual (any visual) will remove duplicates and your diagramm will be wrong. Another option is to use ID column. And make sure you do not aggregate fields.
"Do not summarize" for all input fields.

Re: Venn Diagram

Anonymous — Thu, 01 Feb 2018 15:23:17 GMT

HI Again Boefraty,

I did everything you asked, but now I'm getting a count of one per category. There is a unique id for each observation, but Power Bi is still deleting "duplicates".

Here's the code and output, as well as a screenshot showing the unique ids.

Many, many, many thanks,

Juniper

#load Venn Diagram package

library(VennDiagram)
library("RColorBrewer")
library(grid)
library(futile.logger)

#Venn <- read.xlsx("Venn.xlsx", sheetName = "Venn", header = TRUE, stringsAsFactors = FALSE)
Venn = dataset

Re: Venn Diagram

boefraty — Sun, 04 Feb 2018 10:54:10 GMT

Hi @Anonymous,

I really need the PBIX to see the problem 😞

Sounds like, you added the unique ID to data table, but you did not add the ID column as input to R visual. Drag the ID column to R visual as you did with "Felony" and the rest.

Re: Venn Diagram

Anonymous — Sun, 04 Feb 2018 20:48:16 GMT

Hi Boefraty,

Thank you so much for your patience. Here is the PBIX file.

I dragged the unique ID column to the R visual, but got the same result.

Juniper