Question

我已经制作了一个100k ++点的散点图，我想要颜色点（中断值1和2是＆＃34;绿色＆＃34;中断值20是＆＃34;红色＆＃34;）超越＆＃34; cornsilk1＆＃34;点数（中断值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

一种策略是使用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

更改ggplot geom_point中某些中断值的alpha值

1 个答案: