цикл для цветовых и координатных матричных объектов для построения полигонов в r

Вот координаты многоугольника:

# данные

greenM <-matrix(c(5,5,95,45,5,65,5,45,65,5,5,95),nrow=4,byrow=TRUE)
blueM <-matrix(c(35,15,65,35,45,35,5,75,35,5,45,65,35,15,65),
 nrow=5,byrow=TRUE)
purpleM <-matrix(c(95,5,15,95,5,5,35,75,5,35,45,35,55,45,15,95,5,15),
  nrow=6,byrow=TRUE)
redM <-matrix(c(35,45,35,35,75,5,5,95,5,5,75,35,35,45,35),
 nrow=5,byrow=TRUE)
yellowM <-matrix(c(95,5,15,45,5,65,35,15,65,35,45,35,55,45,
15,95,5,15),nrow=6,byrow=TRUE)

Вот сюжет (незацикленный, но я хочу автоматизировать длинный код с помощью короткого, чтобы можно было создать x количество графиков с x количеством цветов)

plot(NA,NA,xlim=c(0,10),ylim=c(0,100),asp=1,bty="n",axes=F,xlab="",ylab="")
polygon(greenM,col="green",border=NULL)
polygon(blueM,col="blue",border=NULL)
polygon(purpleM,col="purple",border=NULL)
polygon(redM,col="red",border=NULL)
polygon(yellowM,col="yellow",border=NULL)

Как я могу создать внешний вид таким образом, чтобы он применялся к списку координат с разными цветами по порядку.

mycolist <- list (greenM, blueM, purpleM, redM, yellowM)
col1 <- c("green", "blue", "purple", "red", "yellow")

r colors loops polygon
person rdorlearn    schedule 30.07.2012    source источник

Ответы (1)


arrow_upward
2
arrow_downward

Проверьте mapply

mycolist <- list (greenM, blueM, purpleM, redM, yellowM)
col1 <- c("green", "blue", "purple", "red", "yellow")
plot(NA,NA,xlim=c(0,10),ylim=c(0,100),asp=1,bty="n",axes=F,xlab="",ylab="")
mapply(polygon,x=mycolist,col=col1)

Если вы не хотите, чтобы весь вывод NULL выводился на экран, просто заверните его в invisible.

invisible(mapply(polygon,x=mycolist,col=col1))
person nograpes    schedule 30.07.2012