アスタリスク 比較したラインを箱ひげの上限から2メモリ離した位置まで伸ばす・・・
治療 <- c("A","A","A","A","A","A","A","A","A","A","B","B","B","B","B","B","B","B","B","B") 治療前BP <- c(140,135,145,141,145,159,141,150,149,160,170,158,165,170,168,159,168,168,178,175) 治療後BP <- c(135,132,140,130,138,145,140,139,142,145,155,150,155,150,160,148,150,157,160,158) BP変化量 <- c(治療後BP - 治療前BP) bp <- boxplot(data$BP変化量~data$治療, ylim=c(-25,5)) #アスタリスクの下のライン x1 <- 1 # x=Aの位置 x2 <- 2 # x=Bの位置 y1 <- 2 # yの位置 yh <- y1 - bp$stats[5,1] - 2 # x=A,y=y1から下に伸ばす距離(上限から2メモリ離す) xx <- segments(x0=x1, y0=y1, x1=x2) text(1.5, 3, paste("**"),cex = 1.5) #アスタリスクを書く位置 segments(x1, y1, x1, y1-yh) segments(x2, y1, x2, y1-(yh + bp$stats[5,1]-bp$stats[5,2]))