잘못된 색상 할당

Question

나는 ggplot이 내가 기대했던 것과 다른 방식으로 수직선에 색상을 지정한다는 것을 알게되었습니다.

ggplot(x, aes(x = wages)) + 
    geom_density(alpha=.4, colour = "darkgrey", fill = "darkgrey") + 
    geom_vline(data = x, aes(xintercept = mean(x$wages), colour = "green"), 
      linetype = 1, size = 0.5)+ 
    geom_vline(data = x, aes(xintercept = median(x$wages), colour = "blue"), 
      linetype = 1, size = 0.5) + 
    geom_vline(data = x, aes(xintercept = mean(x$wages)+1*sd(x$wages), colour = "red"), 
      linetype = 1, size = 0.5)+ 
    xlim(c(0,3)) 

그래프가 다르게 보이는 것은, 그러나 하나 개의 결과가 유지됩니다 : 수직 라인의 색상을 지정 분포를 그리기

wages <- rnorm(100, 0.9, 0.5) 
ids <- as.factor(round(rnorm(100, 1342, 98))) 
x <- data.frame(ids, wages) 

, 상기 데이터 프레임을 생성

same : 중앙값과 평균 + 1dd 선 색상이 전환됩니다. 누구든지이 문제를 해결하는 방법을 알고 있습니까? 감사합니다

Answer 1

이름으로 색을 제공하고 변수에 매핑하지 않으므로 colour=을 aes() 외부에 배치해야합니다.

ggplot(x, aes(x = wages)) + 
    geom_density(alpha=.4, colour = "darkgrey", fill = "darkgrey") + 
    geom_vline(data = x, aes(xintercept = mean(x$wages)),colour = "green", 
      linetype = 1, size = 0.5)+ 
    geom_vline(data = x, aes(xintercept = median(x$wages)),colour = "blue", 
      linetype = 1, size = 0.5) + 
    geom_vline(data = x, aes(xintercept = mean(x$wages)+1*sd(x$wages)),colour = "red", 
      linetype = 1, size = 0.5)+ 
    xlim(c(0,3))