控制R中折线图中数据点的边框颜色

Question

我无法控制R中折线图中数据点的颜色。我有以下代码：

Pareto <- read.table("ParetoFront.csv",header=TRUE,sep=";")
dfP <- data.frame(Pareto$n,Pareto$z)

plot(dfP$Pareto_n,dfP$Pareto_z,xlim=c(1,max(dfP$Pareto.n)),
  ylim=c(min(dfP$Pareto.z),max(dfP$Pareto.z)),xlab="n",ylab="z(n)",type="n")

lines(dfP$Pareto.n,dfPPareto.z,type="o",lwd=2,col="blue",pch=23,bg="red")

此代码生成一个蓝色线条和红色填充数据点的图表。我想将数据点的边框颜色设置为红色，但我无法确定如何设置此pch参数。我试图绘制没有type="n"参数的图表，以便我可以控制plot函数中的点的颜色（而不是lines），但是当我运行以下代码时

Pareto <- read.table("ParetoFront.csv",header=TRUE,sep=";")
dfP <- data.frame(Pareto$n,Pareto$z)

plot(dfP$Pareto_n,dfP$Pareto_z,xlim=c(1,max(dfP$Pareto.n)),
  ylim=c(min(dfP$Pareto.z),max(dfP$Pareto.z)),xlab="n",ylab="z(n)",
  pch=23,col="red",bg="red")

我得到一张空图表：根本没有数据点。我不明白我的第二段代码有什么问题，我想知道是否有另一种方法可以控制折线图中点的边界颜色。

感谢您的帮助。

Answer 1

使用一些组成数据的示例：

dfP <- data.frame(Pareto_n=1:10,Pareto_z=1:10)

现在使用lines绘制一条线，然后使用points在顶部添加点：

plot(dfP$Pareto_n,dfP$Pareto_z,xlim=c(1,max(dfP$Pareto_n)),
  ylim=c(min(dfP$Pareto_z),max(dfP$Pareto_z)),xlab="n",ylab="z(n)",type="n")

lines(dfP$Pareto_n,dfP$Pareto_z,lwd=2,col="blue")
points(dfP$Pareto_n,dfP$Pareto_z,lwd=2,pch=23,col="red",bg="red")