Благодарен, если кто-то может указать мне правильное направление, как раскрасить (заполнить) этот объект Безье, созданный сеткой. Функция gpar в документации, похоже, не действует.
require(grid)
x<-c(2,5,5,8,8,8,8,8,8,8,2,2)
y<-c(2,2,8,8,8,8,5,2,2,2,2,2)
grid.newpage()
pushViewport(plotViewport(xscale=c(0, 10), yscale=c(0, 10)))
grid.xaxis(); grid.yaxis()
grid.bezier(x, y, id=rep(1:3,each=4), default.units="native", gp=gpar(fill='red'))
Заранее спасибо.
Здесь решение с использованием xspline и базового графика R:
plot(x, y)
dd <- xspline(x, y, shape = 1,draw=FALSE)
xspline(x, y, shape = 1,draw=TRUE)
xx <- dd$x
yy <- dd$y
polygon(c(xx[1], xx, xx[1]), c(min(yy), yy, min(yy)),
col=rgb(1, 0, 0,0.5), border=NA)
Вы также можете сделать то же самое в стиле «сетка», используя grid.xspline . здесь я использую lattice, чтобы избежать головной боли в области просмотра:
dat <- data.frame(x=x,y=y)
library(lattice)
xyplot(y~x,data= dat , aspect = "xy",panel =function(x,y)
{
grid.xspline(x,y,shape= 1,default.units="native",
gp=gpar(fill='red'),open = FALSE)
})
xx[n] на xx[1] в полигоне, чтобы это заработало.
- person geotheory; 17.10.2014
grid.bezier, просто чтобы избежать путаницы.
- person geotheory; 17.10.2014
xsplineTest! Правильно ли я понимаю, что векторные аргументыsподавляют пользовательские точки Безье, чтобы заставить работать простое сегментное поведение? - person geotheory schedule 16.10.2014xsplineTest– это простая функция, определенная в разделе "Пример" документа?xspline. (И что бы это ни стоило, мне это не кажется отвратительным, и я не понимаю, почему это должно быть задокументировано!) Его аргументsсоответствует/передается аргументуshape=xspline(). - person Josh O'Brien schedule 16.10.2014