在第二个图中添加第三行

Question

我使用twoord包生成了plotrix图，并希望添加一条代表特定值的水平线。该图已全部设置但我需要帮助添加该行。

以下是一些示例代码：

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)

这是情节

提前感谢您提供的任何见解。

Answer 1

我不确定这是否是你想要的，但你可以简单地用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")

这产生以下图

我希望现在添加一条短或长的水平线应该很简单。

请告诉我这是否是您的想法。