crie uma coluna 'id' para o dataframe 'dados_bk' iniciando pelo '0' até o ultimo registro identificado.
ary(dplyr)
library(tidyr)
library(purrr)
library(stringr)
df <- data.frame(id = c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,