Beispielscript Social Network Graph

rm(list=ls(all=TRUE)) #Alle vorherigen Berechnungen und Daten löschen
library(XLConnect) #Package um Excel zu lesen und zu schreiben
library(Dominance) #ADI Social Network Graph

# data_Network_1, data_Network_2 auch ohne laden des Exelfiles als DEMO Daten verfügbar
# Demo Exelfile siehe: Dominance_Daten Soziogramm

setwd('Pfad zu demo_adi.xls') #Pfad ohnen Dateinamen hier eingeben Achtun: Pfadnamen mit / anstatt \ wi ein windows abtrennen also z.B /verzeichnis1/excel/

#---------------------------------------   Laden der Excel Datei Anfang  --------------------------------------------------------
excelfile = "Demo_soziogramm.xls"

wb <- loadWorkbook(excelfile)     #Daten laden
data_network_1 <- readWorksheet(wb, sheet = "Tabelle1")  #Hier den Sheet namen anstatt "Tabelle1" eingeben
data_network_2 <- readWorksheet(wb, sheet = "Tabelle2")  #Hier den Sheet namen anstatt "Tabelle2" eingeben

#---------------------------------------   Laden der Excel Datei Ende     --------------------------------------------------------
g1_3 <- Sociogram (data_network_1,bits=bytes,with_groups=TRUE,Postscript=FALSE,soziogram_layout=layout.spring,log=TRUE,line_value=6.5,linesize_add=1.5)
#TKPlot interakivers Fenster zum ändern des Plots
tkplot(g1_3$sociogram , canvas.width= 1000, canvas.height= 800, margin =0,layout=layout.spring)

bytes= "00111111111000000000"  # ohne leading and following Die Anzahle der nullen und einsen hängt von der Anzahl der "name of action" ab.
g1_6 <- Sociogram (data_network_2,bits=bytes,with_groups=FALSE,Postscript=FALSE,soziogram_layout=layout.spring,log=TRUE,line_value=6.5,linesize_add=1.2)
tkplot(g1_6$sociogram , canvas.width= 1000, canvas.height= 800, margin =0,layout=layout.spring)