用panel.superpose添加文本到xyplot

我創建了一個xyplot的圖，它必須顯示兩組點和theyre迴歸線。用panel.superpose添加文本到xyplot

xyplot(log(Vegetati)~log(Reprod), type=c("p", "r"), group=Espece, data=plantes, panel = "panel.superpose", auto.key =list( points = FALSE, columns=2), xlab="log(modules végétatifs)", ylab="log(modules reproducteurs)", )

現在我想補充兩個不同的迴歸線的方程式，但我沒有成功，在與panel.text或其他組合panel.superpose功能。我錯了嗎？我無法顯示方程式和兩個點的線組。

謝謝！所以，這是一個可複製的例子：

library(lattice) 
data(iris) 
xyplot(log(Sepal.Width)~log(Sepal.Length), type=c("p", "r"), group=Species, 
    data=iris, panel = "panel.superpose")

編輯：問題解決了！謝謝！

來源

2013-09-16 user2784578

歡迎來到SO！爲了提高獲得答案的機會，請添加[可重現的示例]（http://stackoverflow.com/questions/5963269/how-to-make-a-great-r-reproducible-example/5963610#5963610）。如果您不能發佈（部分）自己的數據或模擬數據，則可以使用R（'library（help =「datasets」）'）附帶的任何數據集。對於一個小植物的例子，請看看'虹膜'。 – Henrik

謝謝！所以，這是一個reproductible爲例：庫（晶格）數據（光圈） xyplot（日誌（Sepal.Width）〜日誌（Sepal.Length）類型= C（「P」，「R」），組=物種，數據=虹膜，面板= 「panel.superpose」， auto.key =列表（點= FALSE，列= 2）， xlab = 「日誌（模塊végétatifs）」， ylab =「log（modules reproducteurs）」，）' – user2784578

謝謝！請用這個例子更新你的_question_。那麼對於那些想要幫助你的人來說，它更容易被人看到，而且更好地進行格式化。乾杯。 – Henrik

通常你會寫是委託給面板功能你感興趣的調用

panel.my <- function(...) { 
    panel.superpose(...) 
    panel.text(1, 2, "shoe") ## or ltext 
}

自己的自定義面板功能，然後用它

xyplot(log(Vegetati)~log(Reprod), type=c("p", "r"), group=Espece, data=plantes, 
    panel = panel.my)

使用的...傳遞所有參數由panel.my看到panel.superpose;您可能會截取特定的參數以知道您所在的面板等，但更多詳細信息將需要您提供一個示例，以便參與者可以重現（例如，使用內置數據之一）StackOverflow 參與者（不僅僅是您！集。

來源

2013-09-16 16:48:18

我明白了！謝謝，你！ – user2784578

用panel.superpose添加文本到xyplot

回答

相關問題