向 R 条形图中添加垂直分隔符和标签

我有以下数据框，我从中绘制了条形图。然后，我尝试添加带有垂直线的组分隔符，并通过创建新的 x 轴将标签放置在这些线之间：

Group = c("1_1", "1_2", "1_3", "2_1", "2_2", "3_1", "3_2", "3_3", "3_4")
Value = as.numeric(c("-1.23", "2.34", "0.56", "1.87", "-2.40", "5.54", "-0.98", "-2.31", "6"))
data = data.frame(Group, Value)
data
Group   Value
1_1   -1.23
1_2   2.34
1_3   0.56
2_1   1.87
2_2   -2.40
3_1   5.54
3_2   -0.98
3_3   -2.31
3_4   6.0

barplot(data$Value, xaxs="i",xaxt="n")

我正在尝试添加垂直线作为组分隔符：

。在“1_3”和“2_1”之间

。在“2_2”和“3_1”之间

并放置标签：

。原点和第一个分隔符之间为“1”

。第一个和第二个分隔符之间的“2”

。第二个分隔符和轴末端之间的“3”

例如，在制作散点图时，它可以很好地处理连续轴，但它不适用于分类轴。 有没有什么方法可以根据组类别在绘图中的位置将其转换为数字？

我认为这就是你所描述的：

barplot(data$Value, xaxs="i",xaxt="n")
abline(v = 3.7)
abline(v = 6.1)
text(3.7/2, 5.9, label = '1')
text(4.85, 5.9, label = '2')
text(8.5, 5.9, label = '3')