Getting an error when merging the lag function output

Question

I\'m trying to generate multiple columns to a univariate column dataset. Following is the code I\'m using

library("readxl")
library(tidyverse)
libra