修改R中的x轴以反映实际数据点而不是默认的点范围

Question

我想修改x轴以反映我的数据集中的实际数据点，而不是使用范围的R中的默认值。我的实际数据点是1072,1169,1470,1539,1651,1748和1771（波数）。我知道这与抑制轴然后加入一个所需的轴有关，但我不确定将其插入到我的代码中的确切位置（见下文）。 diane1是我的数据集。任何帮助赞赏。

E <- ggplot(diane1, aes(x = Wavenumber, y = Absorbance, fill = Study.Group)) + geom_bar(stat = "identity", position = "dodge", bin_width=50)  
G <- E + labs(title = "Key Absorbance differences before and after treatment", x = "Wavenumber", y = "Absorbance (a.u)")  
G + guides(fill = guide_legend(keywidth =2, keyheight = 1, reverse = TRUE))
G + scale_fill_brewer(palette = "Set1")

以下是我希望做的事情：