2行目のプロットに3行目を追加

Question

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) 

これはプロット

であるあなたが提供することができます任意の洞察力のために事前にありがとうございます。

Answer 1

これがあなたの望むものかどうかはわかりませんが、Rベースの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") 

にこの

のようなコードを使用すると、今シンプルでなければなりません、私は願っています。

これがあなたの頭にあるものかどうかを教えてください。