R作图完善

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

请问各位大侠，下面的图形怎么可以去掉纵坐标刻度？另外，如何添加legend，每种颜色表示一个数字，一共四个数字，1为红，2为率，3为浅蓝，4为深蓝？

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：Legend 请问各位大侠 egen 各位大侠 纵坐标 legend 如何

n=100
c=2:5
data=sample(c ,n, replace = TRUE)
plot(c(0, n+1), c(-0.5, 1.5),type = "n",xaxs="i",yaxs="i",xlab="length",ylab="category",xaxt="n" )
xleft=seq(0,n,by=1)
xright=seq(1,n+1,by=1)
ybottom=rep(0,n)
ytop=rep(1,n)
rect(xleft, ybottom, xright, ytop,col=data)
legend(88, 1.45, legend=2:5, fill=c(col=2,col=3,col=4,col=5))
  

epoh 发表于 2013-2-28 14:24
n=100
c=2:5
data=sample(c ,n, replace = TRUE)

谢谢！
那能不能去掉左边的纵坐标刻度呢？

mengqinqing 发表于 2013-2-28 14:40
谢谢！
那能不能去掉左边的纵坐标刻度呢？

plot(c(0, n+1), c(-0.5, 1.5),type = "n",xaxs="i",yaxs="i",xlab="length",ylab="category",xaxt="n",yaxt="n"  )

epoh 发表于 2013-2-28 14:51
plot(c(0, n+1), c(-0.5, 1.5),type = "n",xaxs="i",yaxs="i",xlab="length",ylab="category",xaxt="n",y ...

非常感谢！