2014-04-01 145 views
1

我想用一个柱的“x”与值1〜10我可以这样做通过添加控制的手动指定的颜色的透明度“阿尔法= X”,但在这种情况下我看到暗颜色质点在我的散点图中。任何人都可以帮忙吗?控制颜色透明度GGPLOT2

这里是我的代码:

plot1 <- qplot(data=srna[srna$norm_sum > 0 & srna$len > 18 & srna$len < 25, ], x=position,y=norm_sum,colour= len) 
plot1 + geom_point(size=4) + 
    theme_bw()+ 
# scale_alpha_continuous(range = c(0.1, 0.8))+ 
    scale_colour_manual(values = c("19" = "pink","20" = "blue","21" = "green", "22" = "yellow","23" = "violet", "24" = "red"))+ 
    theme(panel.grid.minor.x = element_line(colour='grey94'),panel.grid.minor.y = element_line(colour='grey94'), 
     panel.grid.major.x = element_line(colour='lightgrey'),panel.grid.major.y = element_line(colour='lightgrey')) 
+1

能否请你加你的数据看起来像一个指示?头(srna)'是适合的。 “暗色点”是什么意思?另外,你可以描述*为什么*你想手动指定alpha?最后,你有没有看着[scale_alpha_manual(http://docs.ggplot2.org/current/scale_manual.html)? – naught101

回答

0

试图从the ggplot2 manual重现使用默认的数据你的问题(下面的代码),我得到这个结果。也许你可以指出问题在这里?

geom_point, control color transparency in ggplot2

# install.packages("ggplot2", dependencies = TRUE) 
library(ggplot2) 
p <- ggplot(mtcars, aes(wt, mpg)) 
p + geom_point(size=4, alpha = 0.5, aes(colour = factor(cyl))) + 
     theme_bw() + 
    scale_colour_manual(values = c("4" = "pink","6" = "blue", "8" = "green")) + 
    theme(panel.grid.minor.x = element_line(colour='grey94'), 
      panel.grid.minor.y = element_line(colour='grey94'), 
      panel.grid.major.x = element_line(colour='lightgrey'), 
      panel.grid.major.y = element_line(colour='lightgrey'))