position.strings <- as.character(position.strings)
position.strings[!wanted.position.strings] <- ""
grid.text(position.strings,
position.strings <- as.character(position.strings)
position.strings[!wanted.position.strings] <- ""
grid.text(position.strings,