library(DBI)
library(odbc)
con <- dbConnect(odbc(), 
                 Driver = "ODBC Driver 17 for SQL Server", 
                 Server = "REX\\SQLEXPRESS", 
                 Database = "VYUKA_DATABAZE", 
                 Trusted_Connection="yes",
                 encoding = "CP1250")
dbListTables(con)
data<-dbReadTable(con, "okres")

plot(data$ok_rozloha,data$ok_pocet_obci, type="n")
text(data$ok_rozloha,data$ok_pocet_obci,labels = data$ok_nazev_kratky)

data$rozloha_scale<-scale(data$ok_rozloha)
data$pocet_scale<-scale(data$ok_pocet_obci)

res<-kmeans(data[,c(8,9)],6)
plot(data$ok_rozloha,data$ok_pocet_obci, type="n",xlab="ROZLOHA",ylab="POCET OBCI")
text(data$ok_rozloha,data$ok_pocet_obci,labels = data$ok_nazev_kratky,col=res$cluster)

data$cluster<-res$cluster

dbWriteTable(con, "muj_novy_okres", data,overwrite=T)