ggplot geom_pointの特定のブレーク値のアルファ値を変更する

Question

100k ++ポイントから散布図を作成しました。カラーポイント（ブレーク値1と2は「緑」、ブレーク値20は「赤」です）が欲しいです。 "cornsilk1"ポイント（ブレーク値3〜19）よりも目立つようにします。私は以下のコードを試しましたが、運はありません。

ご協力いただければ幸いです。 ありがとうございました

p.s.私の少年のコードを許してください。私はこれを行う方法より効果的な方法があると確信しています...

plotIA<-ggplot(plotintaobs,aes(x=SD13009PB,y=SD13009PB2,colour=quartile))+geom_point()+labs(x="Phillips Observeration 1", y="Phillips Observation 2") + ggtitle("Intra-observer Variation") + mytheme 


plotIA+ scale_color_manual(breaks = c("1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20"), 
values=c("green","green", "cornsilk1", "cornsilk1","cornsilk1","cornsilk1","cornsilk1","cornsilk1","cornsilk1","cornsilk1","cornsilk1","cornsilk1","cornsilk1","cornsilk1","cornsilk1","cornsilk1","cornsilk1","cornsilk1","cornsilk1","red")) 

plotIA+scale_alpha_manual(values=c(1,1,0.4,0.4,0.4,0.4,0.4,0.4,0.4,0.4,0.4,0.4,0.4,0.4,0.4,0.4,0.4,0.4,0.4,1)) 

Answer 1

戦略は、あなたの3グループにに四分位数を分割するcutを使用することですワン。次に、scale_colour_manualを使用することができます

# some fake data 
plotintaobs <- data.frame(SD13009PB = rnorm(20), SD13009PB2 = rnorm(20), quartile = 1:20) 

#cut quartile 
plotintaobs$q2 <- cut(plotintaobs$quartile, breaks = c(0, 2, 19, 20), labels = c("low", "mid", "high")) 

#plot 
plotIA <- ggplot(plotintaobs, aes(x = SD13009PB, y = SD13009PB2, colour = q2, alpha = q2)) + 
    geom_point() + 
    scale_colour_manual(values = c("green", "cornsilk1","red")) + 
    scale_alpha_manual(values = c(1, 0.8, 1)) 

plotIA