2017-03-28 1 views
1

color 및 회선 유형을 ggplot으로 변경하고 싶습니다. 이 코드를 사용하고 있습니다 :선 종류를 변경할 수 없습니다 ggplot2

a <- runif(84, 20, 80) 
a<-ts(a,start = 2009,frequency = 12) 
#a<-ts(result$`dataset1$Summe`,start = 2009,frequency = 12) 
a3 <- zoo(a, order.by = as.Date(yearmon(index(a)))) 
p1 <- autoplot(a3) 
p1 + scale_x_date(labels = date_format("%m/%Y"),breaks = date_breaks("2 months"), limits = as.Date(c('2009-01-01','2017-08-01')))+ theme(axis.text.x = element_text(angle = 90))+ theme(axis.text.x = element_text(angle = 90))+ 
    labs(x = "Date",y="Test") + theme(panel.background = element_rect(fill = 'white', colour = 'black'))+geom_line(linetype="dotted", color="red") 

그러나 색상 만 변경됩니다. 회선 유형을 변경하려면 어떻게해야합니까?

+0

이 가지고
하면 zoo 객체가 저점 fortify()을 통과해야한다고 할 수 있으려면 당신은 정수를 사용하여 선 종류를 변경하려고 했습니까? –

+0

예, 성공하지 못했습니다. – Kaja

+0

정수 또는 단어를 사용하여 선 종류를 변경할 수 있습니다. 귀하의 모범을 재현 가능하게 만들 수 있습니까? –

답변

2

autoplot()은 전달 된 객체에 적절한 기본값을 선택합니다. 모양을 사용자 정의하려면 표준 ggplot() 기능을 사용하는 것이 좋습니다.

ggplot(fortify(a3, melt = TRUE)) + 
    geom_line(aes(x = Index, y = Value), linetype='dashed', color="red") + 
    scale_x_date(labels = date_format("%m/%Y"), 
       breaks = date_breaks("2 months"), 
       limits = as.Date(c('2009-01-01','2017-08-01')))+ 
    theme(axis.text.x = element_text(angle = 90), 
      axis.text.x = element_text(angle = 90), 
      panel.background = element_rect(fill = 'white', colour = 'black'))+ 
    labs(x = "Date",y="Test") 

enter image description here

(NB : 상단의 점선이 panel.background 테마 옵션에 의해 발생)

+0

아마도'theme' 라인들을 정리하는 것을 고려해 볼 수 있습니다 - 3 라인에 물건을 가질 필요가 없습니다 ... –

+0

이번에는 OP 코드에서 똑바로 복사했습니다. – GGamba

관련 문제