library(tidyverse)

for(i in 1:6){
  names<-str_c('var',i)
  assign(names,runif(30,20,100))
}

lapply(1:6,function(i){
  names<-str_c('var',i)
  assign(names,runif(30,20,100))
})

map(1:6,function(i){
  names<-str_c('var',i)
  assign(names,runif(30,20,100))
})

> for(i in 1:6){
+   names<-str_c('var',i)
+   print(environment())
+   assign(names,runif(30,20,100))
+ }
<environment: R_GlobalEnv>
<environment: R_GlobalEnv>
<environment: R_GlobalEnv>
<environment: R_GlobalEnv>
<environment: R_GlobalEnv>
<environment: R_GlobalEnv>


> lapply(1:6,function(i){
+   names<-str_c('var',i)
+   print(environment())
+   assign(names,runif(30,20,100))
+ })
<environment: 0x14eec3a0>
<environment: 0x2bd9e368>
<environment: 0x13b43ae0>
<environment: 0xe7213c0>
<environment: 0x13dc00d8>
<environment: 0x1a7aab10>

lapply(1:6,function(i){
  names<-str_c('var_lapply_',i)
  assign(names,runif(30,20,100), envir = .GlobalEnv)
})

library(tidyverse)

set.seed(1234)
for(i in 1:6){
  names<-str_c('x',i)
  assign(names,runif(30, 20, 100))
}


set.seed(1234)
lapply(1:6, function(i){
  names <- str_c('y', i)
  assign(names, runif(30, 20, 100), envir = .GlobalEnv)
})

identical(x1, y1)
#[1] TRUE

set.seed(1234)
map(1:6, function(i){
  names <- str_c('z', i)
  assign(names, runif(30, 20, 100), envir = .GlobalEnv)
})

identical(x1, z1)
#[1] TRUE