GGPlot2：将x轴刻度与直方图的边界对齐

Question

我正在使用以下ggplot构造：

factorName="adj_book_equity";

p <-ggplot(data,aes(x=data[,factorName])) + 
    geom_histogram(aes(y=..count..,fill=..count..),bins=NBins,col="red") + 
    stat_bin(bins=NBins,geom="text",aes(label=..count..),vjust=-1)+    
    scale_x_continuous(breaks = pretty(data[,factorName], n = NBins),
    labels = comma,na.value=NA_real_)+   
    scale_y_continuous(labels = comma,breaks=pretty_breaks(n=5))+   
    scale_fill_gradient("Count", low = "green", high = "red",labels = comma)+ 
    labs(title=paste("Histogram-",factorName,sep=""),x=factorName)

代码中的直方图：注意x轴标签

主要问题是我希望直方图条的边界与x轴刻度线（长轴）对齐或显示它们以便我可以轻松地解释直方图，即。从图中看到，获得低于某个值的计数与x轴上2个值之间的计数。轴上的显示值0,1000，....似乎与条形标签上显示的计数无关。非常感谢您的帮助。

我无法提供正在讨论的数据。但如果需要，我可以使用更改数据集来帮助理解这个问题。

由于

编辑：

NBins=15;
factorName="mpg"; 
data=mtcars;



 p <-ggplot(data,aes(x=data[,factorName])) + 
    geom_histogram(aes(y=..count..,fill=..count..),bins=NBins,col="red") + 
    stat_bin(bins=NBins,geom="text",aes(label=..count..),vjust=-1)+    
    scale_x_continuous(breaks = pretty(data[,factorName], n = NBins),
    labels = comma,na.value=NA_real_)+   
    scale_y_continuous(labels = comma,breaks=pretty_breaks(n=5))+   
    scale_fill_gradient("Count", low = "green", high = "red",labels = comma)+ 
    labs(title=paste("Histogram-",factorName,sep=""),x=factorName)

MTCarss Based Histogram

修订后的直方图显示了我想要查看的内容。 每个条形边界的x轴标签是什么（？符号）？ 我需要一些关于柱状图中每个柱条边界的信息，以便我知道xyz数据的数量小于这个边界...... 或者更好，如果我可以将列条及其边界与x轴刻度线和标签对齐.....