I recently customised the forceNetwork() function from the networkD3 R package to generate this interactive network diagram of the University of Sydney statistics department.