Figureの凡例に塗りつぶしの色とテクスチャの両方を使うには？

Question

私は1つのプロットに2つのオーバーラップヒストグラムを作成しています。ダイアグラムは白黒で明瞭にする必要があるので、色とテクスチャの組み合わせを使用してヒストグラムを区別しています。

問題は凡例にあります。凡例には色を表示するか、テクスチャを表示できますが、両方を表示することはできません。このコードは、空のボックスと凡例を生成します。私は、画像を投稿する評判を持っていないが、出力へのリンクは以下の通りです

dat <- rnorm(100) 
dat2<-rnorm(100,1) 

hist(dat, col = "grey", xlim = c(-3, 5), ylim = c(0,35)) 
hist(dat2, density = 20, add = TRUE) 
legend("topright", legend = c(1,2), fill = c("grey", NA), density = c(0, 20)) 

： https://drive.google.com/uc?id=0B4VH8cX4Cf7bNjhVQnUwWWVaMEk

私は色だけを表示するために取得することができます正しく：

hist(dat, col = "grey", xlim = c(-3, 5), ylim = c(0,35)) 
hist(dat2, density = 20, add = TRUE) 
legend("topright", legend = c(1,2), fill = c("grey", NA)) 

https://drive.google.com/uc?id=0B4VH8cX4Cf7bcXJvakZxN0x5c1U

単独で質感も動作します：

hist(dat, col = "grey", xlim = c(-3, 5), ylim = c(0,35)) 
hist(dat2, density = 20, add = TRUE) 
legend("topright", legend = c(1,2), density = c(0, 20)) 

（私は十分な評判を持っていないので、私は唯一のも、2つのリンクを投稿することができました）

それはちょうど一緒に動作しません。私は間違って何をしていますか？

ありがとうございます！

Answer 1

それを実演しました。 legend()のの引数はシェーディング行にも適用されるため、2番目のアイテムのfillをNAと指定すると、陰影線が見えなくなったことを意味します。

hist(dat, col = "grey", xlim = c(-3, 5), ylim = c(0,35)) 
hist(dat2, density = 20, add = TRUE) 
legend("topright", legend = c(1,2), fill = c("grey", "black"), density = c(1000, 20)) 

：

次のコードは、私が欲しいの結果を生成します