前回作成したものをグラフの座標でなく棒の番号で指定するタイプにした。
line.p.bar <- function(arg_data,arg_x1,arg_x2,arg_text="",arg_height_space = 0){
  tmp_x_start <- 0.1  #左端の空白
  tmp_x_gap <- 0.1    #棒同士の隙間
  tmp_x1 <- tmp_x_gap * (arg_x1-1) + (arg_x1-1) + 0.5 + 0.1 * arg_x1 + tmp_x_start
  tmp_x2 <- tmp_x_gap * (arg_x2-1) + (arg_x2-1) + 0.5 + 0.1 * arg_x2 + tmp_x_start
  max_y <- max(arg_data[arg_x1:arg_x2]) + arg_height_space  #線の高さ
  y_space <- max_y * 0.05                        #データと線の隙間
  y_length <- max_y * 0.08                       #線の高さ
  segments(x0=tmp_x1,y0=arg_data[arg_x1]+y_space,x1=tmp_x1,y1=max_y+y_space+y_length)
  segments(x0=tmp_x1,y0=max_y+y_space+y_length,x1=tmp_x2,y1=max_y+y_space+y_length)
  segments(x0=tmp_x2,y0=max_y+y_space+y_length,x1=tmp_x2,y1=arg_data[arg_x2] + y_space)
  #線の上に文字列を書き込む
  text(tmp_x1 + (tmp_x2 - tmp_x1)/2,max_y + y_length + 1,arg_text)
}

#
# Example
#
a <- c(4,5,6,2)
jpeg(file="test.jpeg", quality=75,width = 300, height = 300) 
barplot(a
        ,las=1
        ,main="Example"
        ,beside = TRUE
        ,ylim = c(0,10)
)
# line.p.bar(バーの高さの１次元データ,バーの番号,バーの番号,上に記載する文字列,追加の高さ)
line.p.bar(a,2,3,"1") #2番目から3番目のバーに描く
line.p.bar(a,4,1,"2",1.7) #4番目から1番目のバーに描く。最後の引数で重ならないように調整
dev.off()