Можно ли запустить 2 ^ [номер столбца], без цикла for в R?

Question

Например, скажем, я хочу запустить

for(i in 1:(length(data))){
    vector[i] <- 2^i*data[i]
  }

Есть ли способ запустить без цикла for / in tidyverse?

Я искал функцию mapоднако purrr не может найти способ сделать это там, где мы делаем «2 ^ i»

Спасибо