내가 ggplot

Question

와 geom_errorbar이있을 때 선 색상을 변경 나는 다음과 같은 코드가 있습니다

library(ggplot2) 
library(gridExtra) 

data = data.frame(fit = c(9.8,15.4,17.6,21.6,10.8), lower = c(7.15,12.75,14.95,18.95,8.15), upper = c(12.44,18.04,20.24,24.24,13.44), factors = c(15,20,25,30,35), var = rep("Fator", 5)) 

gp <- ggplot(data, aes(x=factors, y=fit, ymax=upper, ymin=lower)) 
gp <- gp + geom_line(aes(group=var),size=1.2) + 
       geom_errorbar(width=.8, size=1, aes(colour='red')) + 
       geom_point(size=4, shape=21, fill="grey") + 
       labs(x = paste("\n",data$var[1],sep=""), y =paste("Values","\n",sep="")) + 
       theme(legend.position = 'none', axis.text = element_text(size = 11), plot.margin=unit(c(0.4,0.4,0.4,0.4), "cm"), axis.text.x = element_text(angle=45, hjust = 1, vjust = 1)) + 
       ylim((min(data$lower)), (max(data$upper))) 

나는 내가 ggplot 개체가 후 선 색상을 변경하고자합니다. 나는 노력하고있어 :

gp + scale_color_manual(values = "green") 

그러나 오류 막대의 색이 바뀌고 선 색은 바뀌지 않습니다.

1) 선 색상을 변경하려면 어떻게해야합니까?

2) 포인트 색상은 어떻게 변경합니까?

감사합니다.

Answer 1

이 시도 :

gp$layers[[1]] <- NULL 
gp + geom_line(aes(group = var),color = "green",size = 1.2) 

유사한 기술은 점 계층을 위해 작동합니다. 테크닉은 similar 질문에 대한 내 기억에서부터 준설되었습니다.

난 그냥 수동으로 gp$layers의 내용을 보았다. I 을 주문하면 주문이 코드에 나타나는 순서가되지만 반드시 그 것에 의존하지는 않습니다.