下面是代码，数据框data3中包含了数据框data的十行数据，我想把数据框data3中和数据框data一样的十行数据删除掉，要怎么做？
x<-c(0,40)
y<-c(0,40)
par(bg="gray")
plot(x,y,type="n",xlab="",ylab="")
for(x in 0:40){for(y in 0:40)
rect(x-.5,y-.5,x+.5,y+.5)}
points(c(15,24),c(18,20),pch=21,bg="yellow")
x[1]=15
y[1]=18
x2=24
y2=20
m=max(abs(y2-y[1]),abs(x2-x[1]))
n=m+1
addy=(y2-y[1])/m
addx=(x2-x[1])/m
i=2
for(i in 2:n){x[i]=x[1]+(i-1)*addx
y[i]=y[1]+(i-1)*addy
y[i]=round(y[i])}
data<-data.frame(y=y,x=x)
data2=data.frame(x=NULL,Y=NULL)
for(i in 1:10){x<-rep(c((data[i,]$x-1):(data[i,]$x+1)),3)
y<-rep(c((data[i,]$y-1):(data[i,]$y+1)),each=3)
data1<-data.frame(y=y,x=x)
for(j in 1:9){if (sqrt((data1[j,]$x-data[i,]$x)^2+(data1[j,]$y-data[i,]$y)^2)<=1)
{rect(data1[j,]$x-.5,data1[j,]$y-.5,data1[j,]$x+.5,data1[j,]$y+.5,col="green")
data2=data.frame(rbind(data2,data1[j,]))
}}}
data3=unique(data2)
data3
    y  x
2  17 15
4  18 14
5  18 15
6  18 16
8  19 15
21 17 16
61 18 17
81 19 16
22 17 17
62 18 18
82 19 17
53 19 18
63 19 19
83 20 18
24 18 19
64 19 20
84 20 19
25 18 20
65 19 21
85 20 20
26 18 21
66 19 22
86 20 21
57 20 22
67 20 23
87 21 22
28 19 23
68 20 24
88 21 23
29 19 24
69 20 25
89 21 24
data
    y  x
1  18 15
2  18 16
3  18 17
4  19 18
5  19 19
6  19 20
7  19 21
8  20 22
9  20 23
10 20 24