この散布図の線/点でより多様な色を取得したいと思います。
require(ggplot2)
dt.gg <- read.csv("http://goo.gl/5yjEZ")
dt.gg$X <- NULL
dt.gg$X.1 <- NULL
ggplot(dt.gg, aes(x=base, y=pred, color=hospital,group=hospital)) + geom_point(shape=1) +
geom_line()+ theme(legend.position="none") + scale_fill_brewer(palette=3)
scale_fill_brewer
うまくいかないようです