R语言k近邻如何进行区域划分？

图片说明

就是这种二维空间划分区域的图怎么画？？