我正在尝试绘制图形，但是我在最终编辑中遇到困难，甚至在论坛和其他页面上也找不到帮助，
我的代码
m1<-10
m2<-12
s1<-1
s2<-2
r<- -0.5
theta <-seq(0,1,0.05)
E<-theta*m1+(1-theta)*m2
V<-theta^2*s1^2+(1-theta)^2*s2^2+2*theta*(1-theta)*r*s1*s2
plot(V,E,type="l",xlab="V(R) - risco ", ylab="E(R) - retorno ",xlim=c(0,4))
title(main="Fronteira Eficiente (2 investimentos)")
这给了我 chart
但是我想复制这些细节here 包括线条，红色部分，箭头
希望你能帮助我
