An implementation of Danny Holten's hierarchical edge bundling algorithm in D3, showing dependencies between classes in a software class hierarchy. Dependencies are bundled according to the parent packages. This example uses two layouts: a radial d3.layout.treemap to position the tree nodes, and d3.layout.bundle to group the dependencies into spline bundles.
  
    
      This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
      Learn more about bidirectional Unicode characters
    
  
  
    
  | ' Code lifted and adjusted from: http://superuser.com/questions/71786/can-i-create-a-link-to-a-specific-email-message-in-outlook | |
| ' You may have to enable links in Outlook if these links are destined for Outlook itself - http://www.davidtan.org/outlook-2007-adding-outlook-url-protocol/ | |
| ' Reference: http://www.davidtan.org/create-hyperlinks-to-outlook-messages-folders-contacts-events/ | |
| ' To Assign Keyboard Shortcut to your new Macro: http://stackoverflow.com/questions/57075/how-do-i-assign-a-keyboard-shortcut-to-a-vba-macro-in-outlook-2007 | |
| 'Adds a link to the currently selected message to the clipboard | |
| Sub AddLinkToMessageInClipboard() | |
| Dim objMail As Outlook.MailItem | 
  
    
      This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
      Learn more about bidirectional Unicode characters
    
  
  
    
  | library(sp) | |
| library(ggmap) | |
| library(RColorBrewer) | |
| ## Get data from OpenPV | |
| ## https://openpv.nrel.gov/search?&state=CA&minsize=100&maxsize=30600&pagenum=1&nppage=25 | |
| caPV <- read.csv('californiaOpenPV.csv') | |
| coordinates(caPV) <- ~ Longitude + Latitude | |
| proj4string(caPV) <- CRS("+proj=longlat +datum=WGS84") | |
| names(caPV)[3] <- 'Pdc.kW' | 
  
    
      This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
      Learn more about bidirectional Unicode characters
    
  
  
    
  | doInstall <- TRUE # Change to FALSE if you don't want packages installed. | |
| toInstall <- c("sna", "ggplot2", "Hmisc", "reshape2") | |
| if(doInstall){install.packages(toInstall, repos = "http://cran.r-project.org")} | |
| lapply(toInstall, library, character.only = TRUE) | |
| # Empty ggplot2 theme | |
| new_theme_empty <- theme_bw() | |
| new_theme_empty$line <- element_blank() | |
| new_theme_empty$rect <- element_blank() | |
| new_theme_empty$strip.text <- element_blank() |