xyplot散点图实例请教（急）

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

请高手指点
数据如下：

No	Time	OBV	PRED
1	0.02	16.8	16.672
1	0.5	10.8	10.921
1	4	5.374	4.759
1	8	4.11	4.076
1	12	3.051	3.527
1	24	2.527	2.342
1	48	1.208	1.186
1	120	0.46	0.478
1	216	0.347	0.327
1	312	0.232	0.237
2	0.02	24.6	24.6
2	0.5	10.4	10.4
2	4	5.853	5.839
2	8	4.607	4.554
2	12	3.484	3.631
2	24	2.251	2.121
2	48	1.196	1.221
2	120	0.555	0.634
2	216	0.313	0.296
2	312	0.229	0.138
3	0.02	4.679	5.879
3	0.5	13.5	5.768
3	4	5.925	5.021
3	8	4.551	4.297
3	12	3.446	3.689
3	24	2.244	2.387
3	48	1.215	1.148
3	120	0.412	0.428
3	216	0.305	0.289
3	312	0.203	0.207

希望用xyplot做如下的图：




就是每个小图中（以No分不同小图），可以有两类数据（OBV-Time，PRED-Time），且OBV用点表示，PRED用线表示。
我尝试用xyplot(OBV~Timg|No，type="p")
              xyplot(PRED~Time|No，type="l"，add=TRUE)
但是两个图无法重叠，请高手指点，应该怎么做。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：plot 散点图 Pred time 高手指点 请教 xyplot

画出一个图，在用lines加上一个

The sample plots you gave does not suggest the use of lattice plot. Low-level plotting functions may make your life much easier ("scatData" as the name of the data set):

1. # Decide how many plots in one frame (here: 1 row 3 col)
   
2. par(mfrow = c(1, 3))
   
3. for (i in unique(scatData$No))
   
4. {
   
5. # let the system determin the xlim & ylim
   
6. plot(rep(scatData[scatData$No == i, "Time"], 2),
   
7. c(scatData[scatData$No == i, "OBV"],
   
8. scatData[scatData$No == i, "PRED"]), type = "n",
   
9. xlab = "Time(h)", ylab = "Conc(ug/L)", main = paste("N =", i))
   
10. # Observation points
    
11. points(scatData[scatData$No == i, "Time"],
    
12. scatData[scatData$No == i, "OBV"], col = "blue")
    
13. # Prediction lines
    
14. lines(scatData[scatData$No == i, "Time"],
    
15. scatData[scatData$No == i, "PRED"], col = "red")
    
16. # Legends
    
17. legend("topright", c("OBV", "PRED"), pch = "o ",
    
18. lty = c(0, 1), col = c("blue", "red"), inset = 0.02, bty = "n")
    
19. }

复制代码

Is this Pop PK data?

谢谢楼上的指点，是群体药动方面的图形，再次感谢！