I would use a line chart if the individual points must be shown and I suggest using a histogram if the range of values is not too large.
library(ggplot2)
DF <- data.frame(Prod = paste0("P", 1:700), Sales = runif(700, 100, 1000))
ggplot(DF, aes(Prod, Sales, group = 1)) + geom_line() +
theme(axis.text.x = element_blank())

ggplot(DF, aes(Sales)) + geom_histogram(binwidth = 100, fill = "skyblue", color = "white")

Created on 2021-03-29 by the reprex package (v0.3.0)