Нарисуйте форму R из 4 точек x, y на графике

Я пытаюсь заполнить странные фигуры условными цветами и не могу найти способ сделать это. В идеале должен быть построитель форм, который принимает по 4 точки для каждого x, y, заполняя область между этими точками.

Подобная форма (x1,y1,x2,y2,x3,y3,x4,y4,col='черный')

Вот код, который я использую для построения сюжета:

 plot(1,1,type='n',xlim=c(-250,250),ylim=c(0,420),cex.main=2.25,xaxt='n',yaxt='n',xlab="",ylab="") 
segments(0,0,-283,283,lwd=3.8)
segments(0,0,283,283,lwd=3.8)
library('plotrix')
segments(sqrt(16200)/2,sqrt(16200)/2,-(300-(-sqrt(16200)/2))/tan(45),350,lty=2)
segments(-sqrt(16200)/2,sqrt(16200)/2,(300-(-sqrt(16200)/2))/tan(45),350,lty=2)
segments(0,sqrt(16200),-112.25,400,lty=2)
segments(0,sqrt(16200),112.25,400,lty=2)
segments(0,sqrt(16200),0,420,lty=2)
draw.arc(0, 0, 250, deg1=47,deg2 =132, col = "black",lwd=1.8,lty=2)
draw.arc(0, 0, 300, deg1=47,deg2 =132, col = "black",lwd=1.8,lty=2)
draw.arc(0, 0, 350, deg1=47,deg2 =132, col = "black",lwd=1.8,lty=2)
draw.arc(0, 0, 400, deg1=47,deg2 =132, col = "black",lwd=1.8,lty=2)

Итак, внутри каждой из этих фигур мне нужен условный цвет в зависимости от того, сколько вещей у меня есть из другого набора данных. Легко построить цветовое форматирование, но интересно, как лучше заполнить эти странные формы!

Вот что выдает этот код:

Спасибо!


r colors shapes plot polygons
person BaseballR    schedule 13.04.2016    source источник

Ответы (1)


arrow_upward
1
arrow_downward

Функция, которую вы ищете, это polygon.

x<-c(0,0,2,1)
y<-c(0,1,2,0)
plot(1, type="n", axes=T, xlab="", ylab="",xlim=c(0,2),ylim=c(0,2))
polygon(x,y,col="red")

введите здесь описание изображения

person gtwebb    schedule 13.04.2016