注册
登录
模型可视化
更改为多边形图的颜色并添加图例
返回
更改为多边形图的颜色并添加图例
作者:
银角
发布时间:
2024-02-26 01:25:27 (4月前)
转自：
<div class =“excerpt”> 从将颜色分配给值并在R中绘制水平条来跟进问题 对于所有数据值，我如何更改为以下代码，以便在hmin2条上编码的颜色切换。左边 ... </DIV>
收藏
举报
2 条回复
0#
回复此人
polo
|
2019-08-31 10-32
<div class =“post-text”itemprop =“text”> <P> 可以添加一个选项 <code> polygon </code> 对于 <code> hmin2 </code> 在循环之外。要添加图例，您应该增加绘图区域（ <code> xlim </code> 和 <code> ylim </code> ），所以传说将是可见的。 </p> <pre> <code> plot(NULL, xlim=c(FullRange[1]-1, FullRange[2] +1), ylim=c(-1,4), yaxt="n", xlab="Value", ylab="") abline(v=19.293) axis(2, at=(0:2)+0.4, labels=c("hmin1", "hmin2","hmin3"), lty=0, las=2) for(i in c(1,3)) { polygon(c(BoxRanges[[i]][1], BoxRanges[[i]][1], 19.293, 19.293), c(i-1,i-0.2,i-0.2,i-1), col="red") polygon(c(19.293, 19.293, BoxRanges[[i]][2], BoxRanges[[i]][2]), c(i-1,i-0.2,i-0.2,i-1), col="blue") } i = 2 polygon(c(BoxRanges[[i]][1], BoxRanges[[i]][1], 19.293, 19.293), c(i-1,i-0.2,i-0.2,i-1), col="blue") polygon(c(19.293, 19.293, BoxRanges[[i]][2], BoxRanges[[i]][2]), c(i-1,i-0.2,i-0.2,i-1), col="red") legend(x = 20, y = 4.5, legend = "negative changes", border = NULL, fill = "red", bty = "n", bg = "n") legend(x = 20, y = 4, legend = "positive changes", border = NULL, fill = "blue", bty = "n", bg = "n") </code> </pre> <HR /> <P> <a href="https://i.stack.imgur.com/Cqn4U.png" rel="nofollow noreferrer"> <img src =“https://i.stack.imgur.com/Cqn4U.png”alt =“在此处输入图片说明”/> </A> </p> <H3> 编辑 </H3> <P> 如果要为绘图添加标题，则必须使用 <code> main </code> 内 <code> plot </code> 。要在线上添加标签，您可以使用 <code> text </code> ： </p> <pre> <code> plot(NULL, xlim=c(FullRange[1]-1, FullRange[2] +1), ylim=c(-1,4), yaxt="n", xlab="Value", ylab="", main = "Range of H min values with parameter changes") abline(v=19.293) axis(2, at=(0:2)+0.4, labels=c("hmin1", "hmin2","hmin3"), lty=0, las=2) for(i in c(1,3)) { polygon(c(BoxRanges[[i]][1], BoxRanges[[i]][1], 19.293, 19.293), c(i-1,i-0.2,i-0.2,i-1), col="red") polygon(c(19.293, 19.293, BoxRanges[[i]][2], BoxRanges[[i]][2]), c(i-1,i-0.2,i-0.2,i-1), col="blue") } i = 2 polygon(c(BoxRanges[[i]][1], BoxRanges[[i]][1], 19.293, 19.293), c(i-1,i-0.2,i-0.2,i-1), col="blue") polygon(c(19.293, 19.293, BoxRanges[[i]][2], BoxRanges[[i]][2]), c(i-1,i-0.2,i-0.2,i-1), col="red") legend(x = 20, y = 4.5, legend = "negative changes", border = NULL, fill = "red", bty = "n", bg = "n") legend(x = 20, y = 4, legend = "positive changes", border = NULL, fill = "blue", bty = "n", bg = "n") text(x = 17.5, y = -0.9, labels ="19.293", col = "black", cex = 0.9) </code> </pre> </DIV>
编辑
登录
后才能参与评论
