For Loop R中的多个图

Question

我正在尝试清理我的代码，而且我有一些地方，我用不同的样本多次做同样的事情。我正在随机抽样，然后绘制SSE图。如果我复制并粘贴代码四次它工作正常，但我只想循环并重复四次。这里有for错误的方法吗？我怎么能做到这一点？

df <- iris

for (i in 1:4) {

  print(i)

####################################################

  # Random sample
  sample_df<- df[sample(nrow(df), 20),]

  # Remove ID variable
  sample_df$Species <- NULL

  # SSE plot
  fviz_nbclust(sample_df, kmeans, method = "wss")

####################################################  

}