R 在二字图中添加第三行

我有一个用

plotrix

软件包生成的

twoord

绘图，我想给它添加一条表示特定值的水平线。绘图已全部设置好，但我需要帮助添加线条

以下是一些示例代码：

fake <- matrix(c(1, 2, 3, 4, 5, 22, 30, 47, 98, 62, 20, 40, 10, 15, 15), nrow = 5)
fake <- as.data.frame(m)

horizontallineat <- 50

twrd.p <- twoord.plot(fake$V1,fake$V3,fake$V1,fake$V2, xlab="Bin", 
                  lylim=c(0,100),rylim=c(0,100),type=c("bar","l"),
                  ylab="Exposure Percentage",rylab="Bin Average PP",
                  lytickpos=seq(0,100, by = 10),
                  rytickpos=seq(0,100, by = 10),
                  ylab.at=50,rylab.at=50,
                  main="Variable Name",
                  lcol=3,rcol=4)

---

false我不确定这是否是您想要的，但您可以简单地使用R-base
lines
函数添加行。使用这样的代码

library(plotrix) # added library

## your code
fake <- matrix(c(1, 2, 3, 4, 5, 22, 30, 47, 98, 62, 20, 40, 10, 15, 15), nrow = 5)
fake <- as.data.frame(fake)  # changed "m" to "fake"

twrd.p <- twoord.plot(fake$V1,fake$V3,fake$V1,fake$V2, xlab="Bin", 
                      lylim=c(0,100),rylim=c(0,100),type=c("bar","l"),
                      ylab="Exposure Percentage",rylab="Bin Average PP",
                      lytickpos=seq(0,100, by = 10),
                      rytickpos=seq(0,100, by = 10),
                      ylab.at=50,rylab.at=50,
                      main="Variable Name",
                      lcol=3,rcol=4)

## simple lines() function with x an y coordinates
## we'll add 2 lines for fun
## 1. dashed, thicker, and red
## 2. dots, thicker and black
lines(x = c(1, 2, 3, 4), y= c(40, 60, 40, 70), lty = 2, lwd = 2, col = "red")
lines(x = c(1.25 , 4.75), y = c(95, 25), lty = 3, lwd=2, col = "black")

library（plotrix）#添加了库
##你的代码
fake我不确定这是否是您想要的，但是您可以简单地使用R-base
lines
函数添加行。使用这样的代码

library(plotrix) # added library

## your code
fake <- matrix(c(1, 2, 3, 4, 5, 22, 30, 47, 98, 62, 20, 40, 10, 15, 15), nrow = 5)
fake <- as.data.frame(fake)  # changed "m" to "fake"

twrd.p <- twoord.plot(fake$V1,fake$V3,fake$V1,fake$V2, xlab="Bin", 
                      lylim=c(0,100),rylim=c(0,100),type=c("bar","l"),
                      ylab="Exposure Percentage",rylab="Bin Average PP",
                      lytickpos=seq(0,100, by = 10),
                      rytickpos=seq(0,100, by = 10),
                      ylab.at=50,rylab.at=50,
                      main="Variable Name",
                      lcol=3,rcol=4)

## simple lines() function with x an y coordinates
## we'll add 2 lines for fun
## 1. dashed, thicker, and red
## 2. dots, thicker and black
lines(x = c(1, 2, 3, 4), y= c(40, 60, 40, 70), lty = 2, lwd = 2, col = "red")
lines(x = c(1.25 , 4.75), y = c(95, 25), lty = 3, lwd=2, col = "black")

library（plotrix）#添加了库
##你的代码
假的@d.b你想要
h=50
？不幸的是，它没有abline那么简单。。。我已经尝试了我能想到的一切。文档中说：“请注意，可以使用‘点’或‘线’将更多的值添加到绘图中，但请记住，这些值将相对于左坐标进行绘图。”但我对线没有任何运气。@d.b是否希望
h=50
？不幸的是，它没有直线那么简单。。。我已经尝试了我能想到的一切。文档中说：“请注意，可以使用‘点’或‘线’将更多的值添加到绘图中，但请记住，这些值将相对于左坐标进行绘图。”但我对线没有任何运气。这种解决方案确实有效。非常感谢。唯一需要注意的是，它只相对于左轴比例绘制，所以我需要交换它们。很高兴我能提供帮助！不过我不理解你的评论，因为据我所知，左右轴的比例是相同的。这是样本数据。。。我的实际数据在左右轴上的比例不同。lines（）将只相对于左轴比例绘制，因此我必须交换轴。当然，我应该猜到。我不想乞求或向你施压，但这个网站与投票有关：见。就像我对你的问题投了赞成票一样，因为我相信它是精心设计的，值得关注，你可以通过“投赞成票”或将其标记为“解决你的问题”来表示答案对你有帮助。我试图投票支持你，但我担心我的经验水平不允许我这样做。很抱歉，这个解决方案确实有效。非常感谢。唯一需要注意的是，它只相对于左轴比例绘制，所以我需要交换它们。很高兴我能提供帮助！不过我不理解你的评论，因为据我所知，左右轴的比例是相同的。这是样本数据。。。我的实际数据在左右轴上的比例不同。lines（）将只相对于左轴比例绘制，因此我必须交换轴。当然，我应该猜到。我不想乞求或向你施压，但这个网站与投票有关：见。就像我对你的问题投了赞成票一样，因为我相信它是精心设计的，值得关注，你可以通过“投赞成票”或将其标记为“解决你的问题”来表示答案对你有帮助。我试图投票支持你，但我担心我的经验水平不允许我这样做。我道歉。