R-将连续数据绘制为具有非等子集的条形图

我希望将数据集显示为条形图，以显示某些数据域的范围变化比其他域更大。虽然我已经找到了一些方法来建立一个条形图，其中数据域被分解成许多相等的子集，但我还没有找到一种方法来规定这些子集的数值截止值。cut（）函数一直给我带来一些麻烦，但这可能只是因为我对R比较陌生

我正在使用的数据集的散点图表示形式为：。我希望能够显示每个离散pH值的平均物种多样性得分，例如pH值的平均得分

pH.bins<-cut(zoo$pH, c(3,4,5,6,7,8))

bar.pH <- tapply(zoo$Species.Diversity, list(zoo$pH.bins), mean)

barplot(bar.pH, 
    main="Average Species Diversity Score by pH", 
    xlab = "pH",
    ylab = "Average Species Diversity",
    col = "blue",
    ylim = c(3,8))
par(new=F)