Ah yes, sorry. here is my code.
library(readxl)
library(reshape2)
setwd("D:/M&L_Risks/Bank_Performance_Analysis")
excel_sheets("Working_X.xlsx")
df_db <- read_excel("Working_X.xlsx", sheet = "Accounts_DB")
col <- colnames(df_db[,1:18])
m_db <- iconv(df_db,from = "Latin-1", to = "UTF-8")
m_db <- melt(df_db, col, na.rm = TRUE, value.name = "Value" )