R语言由league绘制分面二

ggplot(tophit, aes(x=avg, y=name)) +
  
  geom_segment(aes(yend=name), xend=0, colour="grey50") +
  
  geom_point(size=3, aes(colour=lg)) +
  scale_colour_brewer(palette="Dark2", limits=c("NL","AL"), guide=FALSE) +
  
  theme_bw() +
  
  theme(panel.grid.major.y = element_blank()) +
  
  facet_grid(lg ~ ., scales="free_y", space="free_y")

ggplot(tophit, aes(x=avg, y=name)) +
  
  geom_segment(aes(yend=name), xend=0, colour="grey50") +
  
  geom_point(size=3, aes(colour=lg)) +
  scale_colour_brewer(palette="YlOrRd", limits=c("NL","AL"), guide=FALSE) +
  
  theme_bw() +
  
  theme(panel.grid.major.y = element_blank()) +
  
  facet_grid(lg ~ ., scales="free_y", space="free_y")

ggplot(tophit, aes(x=avg, y=name)) +
  
  geom_segment(aes(yend=name), xend=0, colour="grey50") +
  
  geom_point(size=3, aes(colour=lg)) +
  scale_colour_brewer(palette="YlGnBu", limits=c("NL","AL"), guide=FALSE) +
  
  theme_bw() +
  
  theme(panel.grid.major.y = element_blank()) +
  
  facet_grid(lg ~ ., scales="free_y", space="free_y")

  geom_segment(aes(yend=name), xend=0, colour="grey50") +
  
  geom_point(size=3, aes(colour=lg)) +
  scale_colour_brewer(palette="PuBuGn", limits=c("NL","AL"), guide=FALSE) +
  
  theme_bw() +
  
  theme(panel.grid.major.y = element_blank()) +
  
  facet_grid(lg ~ ., scales="free_y", space="free_y")

  
  geom_segment(aes(yend=name), xend=0, colour="grey50") +
  
  geom_point(size=3, aes(colour=lg)) +
  scale_colour_brewer(palette="PuBu", limits=c("NL","AL"), guide=FALSE) +
  
  theme_bw() +
  
  theme(panel.grid.major.y = element_blank()) +
  
  facet_grid(lg ~ ., scales="free_y", space="free_y")

ggplot(tophit, aes(x=avg, y=name)) +
  
  geom_segment(aes(yend=name), xend=0, colour="grey50") +
  
  geom_point(size=3, aes(colour=lg)) +
  scale_colour_brewer(palette="RdYlBu", limits=c("NL","AL"), guide=FALSE) +
  
  theme_bw() +
  
  theme(panel.grid.major.y = element_blank()) +
  
  facet_grid(lg ~ ., scales="free_y", space="free_y")