带 箭头的坐标轴

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

1. x1=seq(0,5,0.01)
   
2. x2=seq(5,10,0.01)
   
3. y1=x1*0-1
   
4. y2=x2-6
   
5. x=c(x1,x2)
   
6. y=c(y1,y2)
   
7. plot(x,y,
   
8.         xaxt='n',yaxt='n',
   
9.         xlab="",ylab="",
   
10.         bty='n',type='l',
    
11.         xlim=c(-1,10),ylim=c(-2,7)
    
12.         )
    
13. abline(v=0,h=0)

复制代码

我现在 就这样加了 两个 坐标轴

abline(v=0,h=0)

要怎么加上箭头?

谢谢

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：坐标轴 abline line plot type 坐标轴 箭头

1# casperyc

?axis

看有没有提到

2# trier2006

没有 至少我没看到

Just try the following:

x1=seq(0,5,0.01)

x2=seq(5,10,0.01)

y1=x1*0-1

y2=x2-6

x=c(x1,x2)

y=c(y1,y2)

plot(x,y,

xaxt='n',yaxt='n',

xlab="",ylab="",

bty='n',type='l',

xlim=c(-1,10),ylim=c(-2,7))

arrows(-2,0,10,0)
arrows(0,-2,0,7)

楼主你用的是什么编辑器啊？

5# 飘洒

notepad++

临湖听涛 发表于 2010-3-13 02:16
Just try the following:

x1=seq(0,5,0.01)

x2=seq(5,10,0.01)

y1=x1*0-1

y2=x2-6

x=c(x1,x2)

y=c(y1,y2)

plot(x,y,

xaxt='n',yaxt='n',

xlab="",ylab="",

bty='n',type='l',

xlim=c(-1,10),ylim=c(-2,7))

arrows(-2,0,10,0)
arrows(0,-2,0,7)

看来这是唯一的办法了

谢谢

7# casperyc

哈，我也学了一招。以前不知道arrows。

DescriptionDraw arrows between pairs of points.
Usagearrows(x0, y0, x1 = x0, y1 = y0, length = 0.25, angle = 30, code = 2,       col = par("fg"), lty = par("lty"), lwd = par("lwd"),       ...)

trier2006 发表于 2010-3-15 08:22
7# casperyc

哈，我也学了一招。以前不知道arrows。

DescriptionDraw arrows between pairs of points.
Usagearrows(x0, y0, x1 = x0, y1 = y0, length = 0.25, angle = 30, code = 2,       col = par("fg"), lty = par("lty"), lwd = par("lwd"),       ...)

总觉得R欠缺点什么

像这种坐标轴应该是很 ‘常见’ 的

现在这样画不仅代码‘长’了一点

而且 如果要加 在【箭头附近】的 xlab 和 ylab 也要自己定义

good!!
I learned it!!
Thanks!!