о перемене в именах (data1) в цикле

Question

Как мы можем использовать $ var в цикле?

data2 $ var не работал в цикле.Как мы можем исправить ??

 value<-list()
  for(var in names(data1){
  n <- 10
  res <- numeric(n) ## set aside space for results
  for (i in 1:n) 
  {
    data2$var= sample( data2$var, replace=F)

    res[i]<-
    }
    }