Sample

library("ggplot2")
    
targetCustomers <- data.frame(customer = c('cust1'), value = c(19)) 
chartHeight <- 4

ggplot(targetCustomers) +
  geom_col(aes(x = customer, y = value), fill = "purple") +
  coord_flip()

ggplot(targetCustomers) +
  geom_col(aes(x = customer, y = value), fill = "purple") +
  coord_flip()