我有一个非线性（此曲线使用二十个坐标绘制）和一个线性曲线（已知方程式）。在绘制它们之后，我需要找到交点。可以点击交叉点。
data<-read.csv(file.choose(),header=T,sep=",")
x<-seq(2.2,22,by=10)
plot(x,data[4]) ##plotting curve##
lines(x,data[4) ## joining points to get curve##
x1<-(0,max(x)
y1<-(0,max(x)*5+45) ## trying to define straight line##
lines(x1,y1)