プロットごとfacet_gridに 2秒のプロットがあります。geom_hlineこれらの線のそれぞれに個別に色を付けたいと思います。この色をデータフレームに追加すれば、geom_hlineの中に色を供給できると思いましたaes。これはグループごとに色付けしますが、デフォルトの ggplot 色を使用します。
コードは次のとおりです。
p <- qplot(mpg, factor(sample(c("a", "b", "c", "d"), nrow(mtcars), T)),
data=mtcars, facets = vs ~ am)
hline.data <- data.frame(z = factor(c("a", "b", "c", "d")),
vs = c(0,0,1,1), am = c(0,1,0,1))
hline.data <- transform(hline.data, z0 = as.numeric(z))
hline.data <- rbind.data.frame(hline.data, hline.data)
hline.data[5:8, 1] <- c("b", "c", "d", "a")
hline.data[5:8, 4] <- c(2, 3, 4, 1)
hline.data[, "col"] <- rep(c("red", "black"), each=4)
p + geom_hline(aes(yintercept = z0, colour=col), hline.data)
geom_hlines期待している「赤」と黒を取得するにはどうすればよいですか?
