- weight:體重,單位是公克
- Time:出生後幾天測量體重
- Chick:每一隻雞的編號,總共有50隻編號從1到50
- Diet:四種不同的蛋白質飼料環境,1, 2, 3, 4
用指令產生不同的飼料環境的成長圖:
names(ChickWeight)
l <- split(ChickWeight, ChickWeight$Diet)
names(l)
l[["1"]]
par(mfrow=c(2,2))
plot(l[["1"]]$Time, l[["1"]]$weight)
plot(l[["2"]]$Time, l[["2"]]$weight)
plot(l[["3"]]$Time, l[["3"]]$weight)
plot(l[["4"]]$Time, l[["4"]]$weight)
或是根據不同的雞隻畫出體重隨時間的成長圖:
require(graphics)
coplot(weight ~ Time | Chick, data = ChickWeight,
type = "b", show.given = FALSE)
_EOF_
沒有留言:
張貼留言