r - 箱ひげ図のレイアウトを変更し、それにラベルを追加します

Question

私は（そうするための提案を得て）異なる外観の箱ひげ図を作成し、それにラベルを追加したいと思います。期待される（完全ではない）出力は、次のようになります（すべてのボックスに4分の1のラベルがあります）。サンプルサイズ。

 boxplot(len~supp*dose, data=ToothGrowth, notch=TRUE,
  col=(c("gold","darkgreen")),
   main="Tooth Growth", xlab="Suppliment and Dose", names = supp )

  # some  unsuccessful trials 
 # to add names 
 boxplot(len~supp*dose, data=ToothGrowth, notch=TRUE,
  col=(c("gold","darkgreen")),
   main="Tooth Growth", xlab="Suppliment and Dose", names = supp*dose)
 # to remove the plot outline 
 boxplot(len~supp*dose, data=ToothGrowth, notch=TRUE,
  col=(c("gold","darkgreen")),
   main="Tooth Growth", xlab="Suppliment and Dose", bty="n")

Answer 1

これで始められるはずです。boxplot重要なのは、設定中にの結果をオブジェクトに保存するplot = FALSEと、各オブジェクトの移動先に関するすべての情報が得られることを知っていることです。次に、この情報を使用して、を介してテキストを追加できますtext。

d <- boxplot(len~supp*dose, data=ToothGrowth,plot = FALSE)

 boxplot(len~supp*dose, data=ToothGrowth, notch=TRUE,
  col=(c("gold","darkgreen")),
   main="Tooth Growth", xlab="Suppliment and Dose",axes = FALSE )

for (i in 1:ncol(d$stats)){
    text(i,d$stats[,i],labels = d$stats[,i],cex = 0.75,adj = c(0.5,0))
    text(i,d$stats[5,i]+1,labels = paste0("n=",d$n[i]),cex = 0.75)
    text(i-0.25,d$stats[3,i],labels = d$names[i],adj = 1,cex = 0.75)
}

しかし、私はあなたに提案した人は誰でも次のことを指摘します。

• 軸を削除します
• 各箱ひげ図に分位値とサンプルサイズで注釈を付けます

グラフの作成について誰かにアドバイスを与えるべきではありません。これまで。彼らはあなたの箱ひげ図をはるかに悪くしました。