R pch=21时，图例框和整个绘图框的点边框颜色和线颜色不同

ENV

MACOSX 10.9.4 R 3.3.1

我的问题

图例中点的边框颜色为绿色4。但整个绘图点的边界颜色为黑色。如上图所示，在绘图框中有三个点，线颜色为绿色4，点边框为黑色，点背景为红色。但是，在右上角的图例框中，线条颜色为绿色4，点背景为红色，点边框颜色为而非黑色，绿色4与图例框中的线条相同

如果在图例中添加

col

，则图例框中的点边框颜色将更改，同时图例框中的线条颜色也将更改

我的当前代码如下所示：

initial.dir<-getwd()
setwd("/works/bin")
sink("r.o")
pk <- read.table("2017.info")
rownames(pk)<-c("k","pk")
d.f <- data.frame(t(pk))

pdf(file="5000-max.pdf")

plot(
  d.f$k,
  d.f$pk,
  type = "n",
  log = "xy",
  main = "Degree distribution",
  xlab = "k",
  ylab = "p(k)",
  xlim = c( 10^0, 10^2),
  ylim = c( 0.00001, 1),
  xaxt="n", yaxt="n",
  xaxs="i", yaxs="i",
)

lines( d.f$k, d.f$pk, col = "green4", lty = "solid")
points( d.f$k, d.f$pk, bg = "red", pch = 21 )
legend("topright", inset=.05, c("p(k)"), lty="solid", pch=21, col=c("green4"), pt.bg="red")

axis(side = 1, at = 10^(0:2), labels = expression(10^0, 10^1, 10^2))
axis(side = 2, at = 10^(-5:0), labels = expression(10^-5, 10^-4, 10^-3, 10^-2, 10^-1, 10^0))

abline(h=outer((1:10),(10^(-5:-1))), col="#00000033", lty=2)
abline(v=outer((1:10),(10^(0:1))), col="#00000033", lty=2)

box()
dev.off

sink()
setwd(initial.dir)

---

initial.dir为了更改图表中点边框的颜色，我将更改

points( d.f$k, d.f$pk, bg = "red", pch = 21 )

到

要更改图例中的颜色，只需更改

legend("topright", inset=.05, c("p(k)"), lty="solid", pch=21, col=c("green4"), pt.bg="red")

到

为了更改图表中点边框的颜色，我将更改

points( d.f$k, d.f$pk, bg = "red", pch = 21 )

到

要更改图例中的颜色，只需更改

legend("topright", inset=.05, c("p(k)"), lty="solid", pch=21, col=c("green4"), pt.bg="red")

到

更改图例中的
col
时，图例中的线条颜色和图例中的点边框颜色都会同时更改。在绘图中，我可以使用
线条
功能更改线条颜色，我可以使用
点
功能更改点边框颜色和点背景颜色。使绘图中的线颜色、点边界颜色、点背景颜色为三种不同的颜色。我的意思是，是否可以在图例框中分别更改线条颜色和点颜色？例如，在图例框中，线条颜色为绿色4，点边框颜色为黑色，点背景颜色为红色。更改图例中的
col
时，图例中的线条颜色和图例中的点边框颜色都会同时更改。在绘图中，我可以使用
线条
功能更改线条颜色，我可以使用
点
功能更改点边框颜色和点背景颜色。使绘图中的线颜色、点边界颜色、点背景颜色为三种不同的颜色。我的意思是，是否可以在图例框中分别更改线条颜色和点颜色？例如，在图例框中，线条颜色为绿色4，点边框颜色为黑色，点背景颜色为红色。