我正在尝试创建一个用于恢复ICP MS机器的条形图。所以我有两个载体：
> number_matches
[1] 5.0 10.0 12.5 15.0 17.5 20.0 25.0 10.0 25.0 25.0 25.0
> iC_MW
[1] 4.808625427 9.073759209 11.058866657 12.916878917 14.974790823 16.515987287
[7] 20.721595708 0.006576491 0.040618454 20.031721743 20.885739448
我的目标是生成一个条形图，其中成对的条形图从number_matches和iC_MW + iC_MW的值作为条形图上方的麻木。我这样接近它：
recovery_frame_number<-as.matrix(number_matches)
recovery_frame_iC_MW<-as.matrix(iC_MW)
recovery_frame_merged <-cbind(recovery_frame_number,recovery_frame_iC_MW)
recovery_frame_merged<-t(recovery_frame_merged)
# Bar plot
ylim_number <- c(0, 1.1*max(number_matches))
ylim_iC_MW <- c(0, 1.1*max(iC_MW))
ylim_max <- as.numeric( max(ylim_iC_MW,ylim_number))
ylim_max <- c(0,ylim_max)
iC_MW<-round(iC_MW, 2)
bplot<-barplot(recovery_frame_merged, beside = T, col=c("red", "darkblue"), names.arg = number_matches, ylim = ylim_max)
text(x = number_matches, y = number_matches, labels = iC_MW)
我得到了我想要的情节，但我对标签的定位有困难。我尝试了不同的方式，我在网上发现但通常我的标签位置太靠近彼此而不是在正确的位置。例如，请参阅picture。如果可以给我一个提示，我会非常感激。感谢阅读并度过了美好的一天:)
编辑：让我澄清一下，我没有使用ggplot2而且我没有使用ggplot2解决方案
