層序図の外に注釈を追加する

Question

層序図に注釈を追加するにはどうすればよいですか？例えば、ここでStratiplotがアナログから

です：

library(analogue) 
data(V12.122) 
Depths <- as.numeric(rownames(V12.122)) 
names(V12.122) 

(plt <- Stratiplot(Depths ~ O.univ + G.ruber + G.tenel + G.pacR, 
        data = V12.122, 
        type = c("h","l","g"), 
        zones = 400)) 

plt 

私は青いプロットとゾーン間の空白にテキストを追加したい右端に長方形。例えば、次のように：

A = 150、B = 600、C = 1000

Answer 1

でその他一つの方法は次のとおり

pacman::p_load(analogue) 
data(V12.122) 
Depths <- as.numeric(rownames(V12.122)) 
names(V12.122) 

(plt <- Stratiplot(Depths ~ O.univ + G.ruber + G.tenel + G.pacR, 
        data = V12.122, 
        type = c("h","l","g"), 
        zones = 400)) 

(plt2 <- Stratiplot(Depths ~ O.univ + G.ruber + G.tenel + G.pacR, 
        data = V12.122, 
        type = c("h","l","g"), 
        yticks = c(150,600,1000) 
        )) 

我々は、y軸を更新する必要が

plt2$y.scales$labels <- c("A", "B", "C") 

次に、次のように2つのy軸でプロットすることができます。

require(latticeExtra) 
doubleYScale(plt,plt2,add.axis=T) 

私は、この関数のソースコードをチェックアウトし、それが、私はdoubleYScaleは第二を追加するには、この方法を使用することができることを見つけるために検索したxyplot周りのラッパーだったことを考え出しましたY軸をxyscaleに設定します。

または非常にきちんとした

doubleYScale(plt,plt2,add.axis=T,use.style = F)