如何在R中修改mapply中的set pch

Question

我想为不同系列的数据（颜色）绘制具有不同形状点的点图。

    mydf <- data.frame(V1=c(2,NA,NA,NA,6),V2=c(4,5,NA,7,6),V3=c(3,4,NA,3,9))

    plot("map",xlim=c(0,nrow(mydf)+1),ylim=c(min(mydf,na.rm=TRUE)-1,max(mydf,na.rm=TRUE)+1))
    mapply(function(x,color){
     dat <- na.omit(cbind(1:length(x),x))
      lines(dat[,1],dat[,2],type = "o", col=color)
    },mydf,c("red","blue","green"))

如何使用列名称向图表添加图例？ 谢谢你的帮助。

Answer 1

你真的很接近，你只需要在你的情节函数中添加第三个参数：

plot_lines <- 
function(x,color,pch){
  dat <- na.omit(cbind(1:length(x),x))
  lines(dat[,1],dat[,2],type = "o", col=color,pch=pch)
}

Thenk你用它来称呼它：

mapply(plot_lines,mydf,c("red","blue","green"),pch=c(20,10,18))