Hintergrund der folgenden in R geschriebenen Funktion war es darzustellen wie Kohärent der index von Datenbanktabellen ist. Fehlende Datensätze sollen farblich hervorgehoben werden.
tableCoherence < - function(x,main="", xlab="ID"){ total <- length(min(x):max(x)) # Total amount of expected entries tmp <- rep(1,100) # Temporary table with 100 parts # Loop through each number from the lowest to the highest for(i in min(x):max(x)) { # Mark the i-th percent of this 100 parts as red (0) # if it doesn’t exist in the input integer vecotor if (!(i %in% x)) { tmp[round((i - min(x))/total * 100)] = 0 } } # Create a new plot plot.new() plot.window(xlim=c(0,100), ylim=c(0,100)) # Set title and xlab title(main=main) title(xlab=xlab) # Loop trough the 100 parts and mark # 1 with green and 0 with red for(i in 1:100) { if (tmp[i] == 1){ segments(i, 0, i, 80, col= ‘green’,lwd=2) }else{ segments(i, 0, i, 100, col= ‘red’,lwd=2) } } # Label the x-axis axis(1, at=1:100, lab=round(seq(min(x), max(x), length.out= 100))) }
Nehmen wir an, wir hätten eine Tabelle “SampleTable” die einige Fehlende Daten hat (11,15-29,34-39). So kann dies mit der obigen Funktion dargestellt werden. Beachtet werden muss jedoch, dass diese Funktion momentan nur mit Integerlisten funktioniert, die mehr als 100 Einträge aufweisen.
tableCoherence(c(1:10,12:14,30:33,40:102),"Coherence of table 'SampleTable'")
