Добавление третьей строки к двухординговому сюжету

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")

Это дает следующий сюжет

Надеюсь, что добавление короткой или длинной горизонтальной линии теперь должно быть простым.

Пожалуйста, дайте мне знать, это то, что вы имели в виду.