R_Lattice のバックアップ(No.2)

バックアップ一覧
差分を表示
現在との差分を表示
ソースを表示
R_Lattice へ行く。

Lattice 翻訳メモ

テキスト p.41 コードをそのまま実行すると次のグラフが作成される．

data(Chem97, package = "mlmRev")
qqmath(~ gcsescore | gender, Chem97, 
        groups = score, aspect = "xy",  
        f.value = ppoints(100),
        auto.key = list(space = "right") ,
        xlab = "Standard Normal Quantiles", 
        ylab = "Average GCSE Score")

しかし，掲載されているのは次のような図（ただし白黒）

pch.col <- sort(unique(Chem97$score)) + 1 

key.list <- list( space = "right",  
    text =  list(as.character(pch.col-1) ) ,  
     points = list(pch = pch.col, col = 1:6  ) )

qqmath(~ gcsescore | gender, Chem97, 
        groups = score, aspect = "xy",  
        f.value = ppoints(100),  pch = pch.col ,
        col = 1:6,    key = key.list, 
        xlab = "Standard Normal Quantiles", 
        ylab = "Average GCSE Score")

アールメカブ

R_Lattice のバックアップ(No.2)