點邊框顏色和線條顏色爲圖例框和全框情節時PCH = 21

Question

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) 

我的預期是什麼

線的顏色，點邊框顏色，分在劇情背景顏色應該是相同的與傳奇。

我該如何更改我的代碼？謝謝。

Answer 1

爲了改變點邊界的圖中的顏色，我會改變

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

到

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

要更改圖例中的色彩只是改變

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

要

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