R:来自值序列的替换表达式序列

Question

我要生产

list(quote(10^2), quote(10^3), quote(10^4),
     quote(10^5), quote(10^6), quote(10^7))

来自

seq(2,7)

有没有比这更无聊的方法

mapply(function(n) substitute(10^x, list(x=as.double(n))), seq(2,7))

？我尝试了以下方法:

> substitute(10^x, list(x=seq(2,7)))
10^2:7

> mapply(substitute, 10^x, x=seq(2,7))
Error in mapply(substitute, 10^x, x = seq(2, 7)) : object 'x' not found

> mapply(function(n) substitute(10^n), seq(2,7))
list(10^dots[[1L]][[6L]], 10^dots[[1L]][[6L]], 10^dots[[1L]][[6L]], 
     10^dots[[1L]][[6L]], 10^dots[[1L]][[6L]], 10^dots[[1L]][[6L]])

Answer 1

试试bquote:

lapply(as.numeric(2:7), function(x) bquote(10^.(x)))