variant_id <- c("chr1_165656237_T_C_b38", "chr1_165659346_C_CA_b38")
dns1 <- data.frame(variant_id)
dns1$variant_id <- sub('^[^_]*_(\\d+).*', '\\1', dns1$variant_id)
dns1
dmFyaWFudF9pZCA8LSBjKCJjaHIxXzE2NTY1NjIzN19UX0NfYjM4IiwgImNocjFfMTY1NjU5MzQ2X0NfQ0FfYjM4IikKZG5zMSA8LSBkYXRhLmZyYW1lKHZhcmlhbnRfaWQpCmRuczEkdmFyaWFudF9pZCA8LSBzdWIoJ15bXl9dKl8oXFxkKykuKicsICdcXDEnLCBkbnMxJHZhcmlhbnRfaWQpCmRuczE=