我想画这样的图
目前只能硬画
library(shape) <br />
library(diagram) <br />
curve(sin(x),bty="n",-8,8,yaxt="n",ylab="",xaxt="n",type="n",xlab="") <br />
axis(1,labels=F,at=seq(-8,8,1)) <br />
curvedarrow(from=c(-5,-1), to=c(5,-1),curve=-0.035,arr.pos=1,lwd=1) <br />
text(0,-0.5,substitute(mu(s,t))) <br />
axis(1,labels="s",at=-5) <br />
axis(1,labels="t",at=5)
这副样子了
谁有没有更简单的代码?
细节问题麻烦大家看看怎么改了
上面留白很多
而且 箭头 离 数轴 好像有点远... 之类的
总之, 能画的更"美观"就好了
谢谢
