citys <- dbGetQuery(con, "SELECT * FROM CITY_INFOS ")
Name = citys$CITY_NAME
N_Koordinate = citys$NORTH_CORD
E_Koordinate = citys$EAST_CORD

plot(E_Koordinate,N_Koordinate)

text(E_Koordinate,N_Koordinate,Name, cex=0.65, pos=3,col="red", adj = 0)

mtext("Städte", side=3)