プロット：2つの列レベルの組み合わせに基づく色

Question

2つの列レベル（ここではtreatment,）の組み合わせに基づいてプロットする方法は？

set.seed(0) 
x <- rep(1:10, 4) 
y <- sample(c(rep(1:10, 2)+rnorm(20)/5, rep(6:15, 2) + rnorm(20)/5)) 
treatment <- sample(gl(8, 5, 40, labels=letters[1:8])) 
replicate <- sample(gl(8, 5, 40)) 
d <- data.frame(x=x, y=y, treatment=treatment, replicate=replicate) 

プロット：2つの列レベルの組み合わせがa-1, a-2, a-3, ... h-6, h-7, h-8あろう単一の列レベル

ggplot(d, aes(x=x, y=y, colour=treatment)) + geom_point() 

ggplot(d, aes(x=x, y=y, colour=replicate)) + geom_point() 

に基づいて色。

Answer 1

64色は解釈できません。どのように代わりのポイントについてラベル：

ggplot(d, aes(x=x, y=y, colour=treatment)) + 
    geom_text(aes(label=paste0(treatment, replicate)), size=3, show.legend=FALSE) + 
    theme_classic() 

それとも、あなたは多分ファセッティング、異なる治療のためのパターンの相違を発見しようとしている場合には役立つだろう：

ggplot(d, aes(x=x, y=y, colour=treatment)) + 
    geom_text(aes(label=paste0(treatment, replicate)), size=3, show.legend=FALSE) + 
    facet_wrap(~ treatment, ncol=4) + 
    scale_x_continuous(expand=c(0,0.7)) + 
    theme_bw() + theme(panel.grid=element_blank()) 

しかし、あなたが本当に色の束をしたい場合...

ggplot(d, aes(x=x, y=y, colour=interaction(treatment,replicate,sep="-",lex.order=TRUE))) + 
    geom_point() + 
    labs(colour="Treatment-Replicate") + 
    theme_classic() 

（あなたはすべての潜在的なtreatment-replicate組み合わせが凡例に表示されたい場合は、関係なく、彼らはデータ内に存在しているかどうかの、そしてプロットコードに+ scale_colour_discrete(drop=FALSE)を追加します。）