create unique record data frame where multiple records of each applicant present

"I have one data frame in which bank related information of each applicant id is present. suppose applicants has multiple account and data frame reflects this information in multiple rows. Now I want to create a data frame in which each applicant all information is in one record"

I have tried it with for and if loop. Now I want to optimised code

com_data <- function(X) {
  data_set <- data.frame(table(X$id))
  a <- 3
  n <- 3
  for (i in 1:nrow(data_set)) {
    for (j in 1:nrow(X[1:4])) {
      if (data_set$Var1[i] == X$id[j]) {
        count <- count + 1
        #k <- j
      }
      if (count == 1) {
        for (k in 3:ncol(X))

          data_set[i, n] <- X[j, k]
        n <- n + 1

      } else{
        for (k in 3:ncol(X))

          data_set[i, n] <- X[j, k]
        n <- n + 1

      }
    }
    count = 0
    n <- 3

  }

  return(data_set)
}