如何刪除面板標題，並添加點到晶格積

我有兩個數據幀：如何刪除面板標題，並添加點到晶格積

df1 <- read.table(text = " 
Time Score ID 
-83  19 C1 
-69  17 C2 
-55  15 C3 
-28  22 C4 
    0  27 C5", header=TRUE) 

df2 <- read.table(text = " 
Time Score ID 
-83  19 C1 
-55  15 C3 
    0  27 C5", header=TRUE)

我想創建一個DF1 xyplot，通過ID分組，但沒有標註每個ID。然後用點從DF2

library(lattice) 
xyplot(df1$Score ~ df1$Time | df1$ID, type ="b", cex = .5)

希望得到有關如何不標註每個ID建議點添加到現有xyplot（除去面板標題），然後爲點添加DF2到現有的情節

來源

2016-07-06 user2783615

感謝Psidom格式化 – user2783615

可能會有所幫助。 http://stackoverflow.com/questions/15803149/how-to-add-points-to-multi-panel-lattice-graphics-bwplot – Psidom

df2是df1的子集，具有相同的值。 df2值將重疊繪製df1值。這是你想要的嗎？ – DaveTurek

設置strip=FALSE打壓'小組標題'。然後，小心地確保兩個data.frames的ID因子水平匹配後，您可以使用latticeExtra::as.layer()從第二data.frame繪製數據到地塊使用第一構造：

library(latticeExtra) 

## Fiddly bit needed to make sure, e.g., that level `C3` is coded 
## using the same number (here a '3') in both ID columns. 
df2$ID <- factor(df2$ID, levels = levels(df1$ID)) 

## Plot data from both data.frames onto the same plot 
xyplot(Score ~ Time | ID, data = df1, type ="b", cex = .5, strip = FALSE) + 
as.layer(xyplot(Score ~ Time | ID, data = df2, type ="b", 
       cex = 5, drop.unused.levels = FALSE))

來源

2016-07-06 16:17:06

非常感謝Josh！精美的作品！ – user2783615

@ user2783615很酷。很高興聽到這有幫助！ –

如何刪除面板標題，並添加點到晶格積

回答

相關問題