rm(list=ls())
require(ggplot2)
require(sp)
set.seed(123456)
df=data.frame(x=runif(100,-1,1)
,y=runif(100,-1,1))
x=seq(-1,1,length=21)
Line1=data.frame(x=x,y=-0.5+0.8*x,g="L1")
Line2=data.frame(x=rev(x),y=0.5+0.6*rev(x),g="L2")
Linedf=rbind(Line1,Line2)
df$in.pg = ifelse(as.logical(point.in.polygon(df$x, df$y, pol.x=Linedf$x, pol.y=Linedf$y))
,"Yes","No")
head(df)
ggplot()+
geom_point(aes(x=x,y=y,colour=in.pg),data=df,inherit.aes = F)+
geom_path(aes(x=x,y=y,group=g,colour=g),size=1.2,data=Linedf,inherit.aes = F)
cm0obGlzdD1scygpKQoKcmVxdWlyZShnZ3Bsb3QyKQpyZXF1aXJlKHNwKQoKc2V0LnNlZWQoMTIzNDU2KQpkZj1kYXRhLmZyYW1lKHg9cnVuaWYoMTAwLC0xLDEpCiAgICAgICAgICAgLHk9cnVuaWYoMTAwLC0xLDEpKQp4PXNlcSgtMSwxLGxlbmd0aD0yMSkKTGluZTE9ZGF0YS5mcmFtZSh4PXgseT0tMC41KzAuOCp4LGc9IkwxIikKTGluZTI9ZGF0YS5mcmFtZSh4PXJldih4KSx5PTAuNSswLjYqcmV2KHgpLGc9IkwyIikKTGluZWRmPXJiaW5kKExpbmUxLExpbmUyKQpkZiRpbi5wZyA9IGlmZWxzZShhcy5sb2dpY2FsKHBvaW50LmluLnBvbHlnb24oZGYkeCwgZGYkeSwgcG9sLng9TGluZWRmJHgsIHBvbC55PUxpbmVkZiR5KSkKICAgICAgICAgICAgICAgICAgLCJZZXMiLCJObyIpCmhlYWQoZGYpCmdncGxvdCgpKwogIGdlb21fcG9pbnQoYWVzKHg9eCx5PXksY29sb3VyPWluLnBnKSxkYXRhPWRmLGluaGVyaXQuYWVzID0gRikrCiAgZ2VvbV9wYXRoKGFlcyh4PXgseT15LGdyb3VwPWcsY29sb3VyPWcpLHNpemU9MS4yLGRhdGE9TGluZWRmLGluaGVyaXQuYWVzID0gRikKICA=