I have some data similar to the `data.frame` `d` as follows.

    d &lt;- structure(list(ID = c(&quot;KP1009&quot;, &quot;GP3040&quot;, &quot;KP1757&quot;, &quot;GP2243&quot;, 
                               &quot;KP682&quot;, &quot;KP1789&quot;, &quot;KP1933&quot;, &quot;KP1662&quot;, &quot;KP1718&quot;, &quot;GP3339&quot;, &quot;GP4007&quot;, 
                               &quot;GP3398&quot;, &quot;GP6720&quot;, &quot;KP808&quot;, &quot;KP1154&quot;, &quot;KP748&quot;, &quot;GP4263&quot;, &quot;GP1132&quot;, 
                               &quot;GP5881&quot;, &quot;GP6291&quot;, &quot;KP1004&quot;, &quot;KP1998&quot;, &quot;GP4123&quot;, &quot;GP5930&quot;, &quot;KP1070&quot;, 
                               &quot;KP905&quot;, &quot;KP579&quot;, &quot;KP1100&quot;, &quot;KP587&quot;, &quot;GP913&quot;, &quot;GP4864&quot;, &quot;KP1513&quot;, 
                               &quot;GP5979&quot;, &quot;KP730&quot;, &quot;KP1412&quot;, &quot;KP615&quot;, &quot;KP1315&quot;, &quot;KP993&quot;, &quot;GP1521&quot;, 
                               &quot;KP1034&quot;, &quot;KP651&quot;, &quot;GP2876&quot;, &quot;GP4715&quot;, &quot;GP5056&quot;, &quot;GP555&quot;, &quot;GP408&quot;, 
                               &quot;GP4217&quot;, &quot;GP641&quot;),
                        Type = c(&quot;B&quot;, &quot;A&quot;, &quot;B&quot;, &quot;A&quot;, &quot;B&quot;, &quot;B&quot;, &quot;B&quot;, 
                                 &quot;B&quot;, &quot;B&quot;, &quot;A&quot;, &quot;A&quot;, &quot;A&quot;, &quot;A&quot;, &quot;B&quot;, &quot;B&quot;, &quot;B&quot;, &quot;A&quot;, &quot;A&quot;, &quot;A&quot;, &quot;A&quot;, 
                                 &quot;B&quot;, &quot;B&quot;, &quot;A&quot;, &quot;A&quot;, &quot;B&quot;, &quot;B&quot;, &quot;B&quot;, &quot;B&quot;, &quot;B&quot;, &quot;A&quot;, &quot;A&quot;, &quot;B&quot;, &quot;A&quot;, 
                                 &quot;B&quot;, &quot;B&quot;, &quot;B&quot;, &quot;B&quot;, &quot;B&quot;, &quot;A&quot;, &quot;B&quot;, &quot;B&quot;, &quot;A&quot;, &quot;A&quot;, &quot;A&quot;, &quot;A&quot;, &quot;A&quot;, 
                                 &quot;A&quot;, &quot;A&quot;),
                        Set = c(15L, 1L, 10L, 21L, 5L, 9L, 12L, 15L, 16L, 
                                19L, 22L, 3L, 12L, 22L, 15L, 25L, 10L, 25L, 12L, 3L, 10L, 8L, 
                                8L, 20L, 20L, 19L, 25L, 15L, 6L, 21L, 9L, 5L, 24L, 9L, 20L, 5L, 
                                2L, 2L, 11L, 9L, 16L, 10L, 21L, 4L, 1L, 8L, 5L, 11L), Loc = c(3L, 
                                                                                              2L, 3L, 1L, 3L, 3L, 3L, 1L, 2L, 1L, 3L, 1L, 1L, 2L, 2L, 1L, 3L, 
                                                                                              2L, 2L, 2L, 3L, 2L, 3L, 2L, 1L, 3L, 3L, 3L, 2L, 3L, 1L, 3L, 3L, 
                                                                                              1L, 3L, 2L, 3L, 1L, 1L, 1L, 2L, 3L, 3L, 3L, 2L, 2L, 3L, 3L)),
                   .Names = c(&quot;ID&quot;, &quot;Type&quot;, &quot;Set&quot;, &quot;Loc&quot;), class = &quot;data.frame&quot;,
                   row.names = c(NA, -48L))

I want to explore the relationships between members of `d$ID` using a chord diagram similar to the one below.

![enter image description here][1]

It seesms there ar several options to do so in `R`. (https://stackoverflow.com/questions/14599150/chord-diagram-in-r). 

In my data the relationships are according to `d$Set` (not directional) and the grouping is according to `d$Loc`. The following are my attempts to map theser relationships as a chord diagram.

## Attempt 1: Using `igraph`
I have tried `igraph` as follows with node size according to degree.

    # Get vertex relationships
    sets &lt;- unique(d$Set[duplicated(d$Set)])
    rel &lt;-  vector(&quot;list&quot;, length(sets))
    for (i in 1:length(sets)) {
      rel[[i]] &lt;- as.data.frame(t(combn(subset(d, d$Set ==sets[i])$ID, 2)))
    }
    library(data.table)
    rel &lt;- rbindlist(rel)
    
    # Get the graph
    g &lt;- graph.data.frame(rel, directed=F, vertices=d)
    clr &lt;- as.factor(V(g)$Loc)
    levels(clr) &lt;- c(&quot;salmon&quot;, &quot;wheat&quot;, &quot;lightskyblue&quot;)
    V(g)$color &lt;- as.character(clr)
    
    # Plot
    plot(g, layout = layout.circle, vertex.size=degree(g)*5, vertex.label=NA)
![enter image description here][2]

How to modify the plot to look like the first figure? It seems that there are no options to modify `igraph` `layout.circle`.

## Attempt 2: Using `Circlize`
It seems smoother bezier curves and grouping are possible in the `R` package `circlize`. But here I am not able to group the nodes as well as adjust their size according to degree as they are plotted as sectors.

    par(mar = c(1, 1, 1, 1), lwd = 0.1, cex = 0.7)
    circos.initialize(factors = as.factor(d$ID), xlim = c(0, 10))
    circos.trackPlotRegion(factors = as.factor(d$ID), ylim = c(0, 0.5), bg.col = V(g)$color,
                           bg.border = NA, track.height = 0.05)
    for(i in 1:nrow(rel)) {
      circos.link(rel[i,1], 0, rel[i,2],0, h = 0.4)
      
    }

![enter image description here][3]

Here however there are no options to modify the nodes. In fact they can be only plotted as sectors? In this case is there any way to modify the sectors into circular nodes of size according to the degree?

## Attempt 3: Using `edgebundleR`(https://github.com/garthtarr/edgebundleR)

    require(edgebundleR)
    edgebundle(g,tension = 0.1,cutoff = 0.5, fontsize = 18,padding=40)

![enter image description here][4]
It seems here there are limited options to modify the aesthetics.


  [1]: http://i.stack.imgur.com/Z5A5v.png
  [2]: http://i.stack.imgur.com/PdtWF.png
  [3]: http://i.stack.imgur.com/oawoW.png
  [4]: http://i.stack.imgur.com/kwKIU.jpg

All Circos Solutions on Gang of Coders

Total of 1 Circos Solutions

Network chord diagram woes in R