# Creating variable
a=c('a','b','c','d')
b=c('g','e','e','k','s')
c=c('f','o','r')
d=c('g','e','e','k','s')
# Finding maximum length
max_ln1 <- max(c(length(a), length(b)))
max_ln2 <- max(c(length(c), length(d)))
max_ln<-max(max_ln2,max_ln1)
gfg_data<- data.frame(col1 = c(a,rep(NA, max_ln - length(a))),
col2 = c(b,rep(NA, max_ln - length(b))),
col3 = c(c,rep(NA, max_ln - length(c))),
col4 = c(d,rep(NA, max_ln - length(d))))
gfg_data
is.data.frame((gfg_data))