dotchart pchのバグ？

Question

私は、pchパラメータがドットチャート関数内で読み込まれる方法にバグがあるかもしれないと思うが、それを報告する前にピアの確認を感謝するだろう。

以下では、色とシンボルの両方がグループによって異なることを希望します。色は正常に動作しますが、シンボルではありません。

with(foo, dotchart(Outcome, 
    groups = Group, 
    color = c("green", "orange", "red")[Group], 
    pch=c(16, 15, 17)[rev(Group)], 
    xlab="Outcome measure /bar", 
    labels = Specimen)) 

しかし、私はPCHのためのベクトルがする必要がありますなぜ、単一の正当な理由を見ることができない：「グループ」列のエンコーディングPCHを逆転させることにより、簡単にではなく、むしろ奇妙な回避策はあり

foo <- data.frame(Specimen=paste("Specimen", 1:18), 
       Group=c(rep("Benign", 4), 
         rep("In-situ", 6), 
         rep("Invasive", 8)), 
       Outcome=rweibull(18, 5) + (1:18/18)) 

with(foo, dotchart(Outcome, 
    groups = Group, 
    color = c("green", "orange", "red")[Group], 
    pch=c(16, 15, 17)[Group], 
    xlab="Outcome measure /bar", 
    labels = Specimen)) 

特に、色が完全に期待通りに機能するように見えるため、逆になりました。思考？

ちなみに、私が一般的に図表の異なるグループの記号と色を変えようとしているのは、色盲の読者のためです。確かに、この場合はそれほど重要ではありません。

Answer 1

私はこれがバグかもしれないことに同意します（このようなベースRの機能については本当に慎重です）。

o <- sort.list(as.numeric(groups), decreasing = TRUE) 
x <- x[o] 
groups <- groups[o] 
color <- rep_len(color, length(groups))[o] 
lcolor <- rep_len(lcolor, length(groups))[o] 

を...そしてそれらは、後続のablineとpoints呼び出しで使用されているが、pchは変わらずに渡されます。

Specficiallyは、dotchartここcolorとlcolor（線の色）の引数を並べ替え。この修正は、おそらく私が（バグレポートを提出する前に、良いアイデアです）に自分の知識をひけらかすの帽子を入れたいと思った場合、私は?dotchartのドキュメントを指定していることに注意します

pch <- rep_len(pch, length(groups))[o] 

、単純に行を追加することです：

色点とラベルに使用する色です。

color引数の

が、唯一：

PCHの描画、文字や記号を使用します。

pch引数の場合。これは、 "明確に" colorが複数の値をとることを意図していることを意味すると主張しているかもしれません。その意味では、これは「バグ」ではありません。