R code used to produce the graph shown below.

dfx <- data.frame(id=factor(1:6), var1=11:16, 
                  fac1=factor(c("A", "B", "C", "D", "E", "F"))) 
dfy <- data.frame(id=factor(c(4,5,6,7,8,9)), var2=15:10) 
par(mar=c(0,0,0,0)) 
emptyplot(c(0, 1)) 
#plotcircle(mid = c(0.45, 0.25), r = 0.35, col="lightgray", lcol=NULL) 
filledellipse(rx1 = .40, ry1=.3, mid = c(.46, .31) , dr = 0.05, 
              col = "lightgray") 
filledellipse(rx1 = .40, ry1=.3, mid = c(.41, .65) , dr = 0.05, 
              col = myblue) 
#plotcircle(mid = c(0.45, 0.65), r = 0.35, col=myblue,lcol=NULL) 
addtable2plot(.48, .38, dfx, bty="o", cex=2.2, xjust=1, ypad=.9) 
addtable2plot(.50, .66, dfy, bty="o", cex=2.2, yjust=0, ypad=.9)