R图中的轴格式和网格线

我有一个数据集，如下所示：

data<-data.frame(x=c(50,100,250,400),y1=c(0.74,0.75,0.82,0.79),y2=c(0.81,0.83,0.87,0.88)) 

生成的图形为：

我怎样才能对这个图进行以下修改

• 1） 当前X轴以50开始。但它并没有明确标记50

• 2） 当前X轴标记为

  100200300400500

  ，我可以将其标记为

  50100250500

• 3） 当前Y轴标记为

  0.5,0.6,0.7.0.8,0.9,1.0

  。我是否可以将其标记为

  0.5、0.55、0.6、0.65、0.7、0.75、0.8、0.85、0.9、0.95、1

• 4） 我想添加一些平行于X轴的网格线。这些线应从沿Y轴的

  0.5,0.55,0.6,0.65,0.7,0.75,0.8,0.85,0.9,0.95,1

  点开始

---

data
data有关网格线，请参阅
abline
请阅读一些教程，有关网格线，请参阅
abline
请阅读一些教程，这是我需要的。谢谢，安德烈，这正是我需要的。谢谢
plot(data$x,data$y1,type='l',col="red",xaxs='i',yaxs='i',ylim=c(0.4,1),xlim=c(50,500))
lines(data$x, data$y2, type='l',col="blue")

data<-data.frame(x=c(50,100,250,400),y1=c(0.74,0.75,0.82,0.79),y2=c(0.81,0.83,0.87,0.88))

windows()
plot(data$x,data$y1,type="l",col="red", ylim=c(0.5,1),xlim= c(50,500),col.axis = "white")
axis(1, xaxp=c(50,500,9))
axis(2, yaxp=c(0.5,1,10)) 
lines(data$x, data$y2, type='l',col="blue")

for(i in c(0.55,0.6,0.65,0.7,0.75,0.8,0.85,0.9,0.95)) {
lines(c(50,500),c(i,i),type="l",lty=2,lwd=0.5, col="black")
rm(i)
}