R语言中，在坐标轴的某点处 加标记

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

我的程序如下， 运行后得到下图，，我想在两条垂直虚线与横坐标轴相交处分别标记字母a，b，但是不显示对应的刻度，怎么办呢，多谢各位了！

h=function(b){
w=(1+b^2)/(1+(b-1)^2)
2*log(w)
}
x=seq(from=-5,to=5,by=0.01)
y=h(x)
plot(x,y,type='l')
arrows(-0.25,-1.76, -5, -1.76, length = 0,lty = 2)
arrows(1.25,1.76, 5, 1.76, length = 0,lty = 2)
arrows(-0.25,-2.1, -0.25, 2, length = 0,lty = 3)
arrows(1.25, -2.1, 1.25, 2, length = 0,lty = 3)

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享1 收藏1 回帖

关键词：R语言 坐标轴 function Arrows length 坐标轴

用axis()函数或mtext()函数, 建议高水平作图时先使用axes = F不自动添加坐标轴

hugebear 发表于 2013-6-5 09:12
用axis()函数或mtext()函数, 建议高水平作图时先使用axes = F不自动添加坐标轴

能否将具体代码 写一下  多谢了

1. h=function(b){
   
2.   w=(1+b^2)/(1+(b-1)^2)
   
3.   2*log(w)
   
4. }
   
5. x=seq(from=-5,to=5,by=0.01)
   
6. y=h(x)
   
7. plot(x,y,type='l', axes = FALSE)
   
8. arrows(-0.25,-1.76, -5, -1.76, length = 0,lty = 2)
   
9. arrows(1.25,1.76, 5, 1.76, length = 0,lty = 2)
   
10. arrows(-0.25,-2.1, -0.25, 2, length = 0,lty = 3)
    
11. arrows(1.25, -2.1, 1.25, 2, length = 0,lty = 3)
    
12. axis(2)
    
13. axis(1, at = c(-5, -0.25, 1.25, 5),
    
14.      labels = c("", "a", "b", ""))

复制代码

嗯，楼上的代码就很标准。