r 在R中循环分配多个变量

Posted 2021-05-23

var_names <- paste0("p", 1:10)
values <- seq(100, 1000, by = 100)

for (i in seq_along(var_names)) assign(var_names[[i]], values[[i]])

mget(var_names)
# $p1
# [1] 100
# 
# $p2
# [1] 200
# 
# $p3
# [1] 300
# 
# $p4
# [1] 400
# 
# $p5
# [1] 500
# 
# $p6
# [1] 600
# 
# $p7
# [1] 700
# 
# $p8
# [1] 800
# 
# $p9
# [1] 900
# 
# $p10
# [1] 1000