相关疑难解决方法(0)

使用R,我绘制了一个类似于此的阴影图.我想做四件事R

1. 添加链接中显示的图例.
2. 将x轴名称替换为delta的希腊符号
3. 在图上提到各种交点.例如,在x = 0.75时,一些曲线符合x轴,我想将该值放在该0.75点附近.
4. 如果看到曲线,它们就不平滑了.如何让它们流畅？即使是excel也可以绘制更平滑的曲线.

怎么做到这一点？

这是情节.

以下代码用于绘制图表.

plot(NA,xlim=c(0,1),ylim=c(0,1),xlab="delta",ylab="K", xaxs="i",yaxs="i") # Empty plot
a1 <- curve((x+x^7-x^2-x^4)/(1+x-x^3-x^4), from=0, n=450000, add = TRUE) # First curve
a2 <- curve((x^2+x^3-x-x^5)/(x+x^2), to=0.9, n=45000, add = TRUE)
a3 <- curve((x+x^7-x^2-x^4)/(1+x-x^2-x^3-x^4+x^7),from=0, n=45000, add = TRUE)
a4 <- curve((x+x^8-x^3-x^5)/(x+x^8-x^3-x^5+1-x^4),from=0, to=0.9, n=45000, add = TRUE)
a5 <- curve((x+x^8-x^3-x^5)/(1+x-x^5-x^4),from=0, n=45000, add = TRUE)
a6 <- curve((x+x^2-x^4-1)/(x-x^4), to=0.84, n=45000, add = TRUE)
a7 <- curve((x+x^6-x^3-x^4)/(1+x-x^3-x^4), from=0.83 ,to=1,  n=45000, add = TRUE) …