获取kmeans在R中每次迭代的每个观测值的坐标

I would like to construct an animation of the kmeans clustering algorithm in R. The animation would show each of the observations (rows) in the the dataset plotted in 2 (or 3) dimensions and then have them move into their clusters as each iteration ticks by.I would like to construct an animation of the k