ggplot2의 범례 키로 솔리드 사각형을 사용하는 방법 geom_boxplot

Question

박스 플롯을 만들기 위해 R ggplot2 패키지를 사용하려고합니다.

그러나 나는이 같은 전설을 얻을 수 있습니다. 어쨌든 중앙선이있는 그 작은 상자를 사용하는 대신 그 전설의 열쇠를 단색의 사각형으로 바꿀 수 있습니까?

내가 사용하는 코드는 다음과 같습니다 여기

print(ggplot(mydata,aes(x=factor(sp),fill=factor(CommunityType),y=Abundance*100))+geom_boxplot(show_guide=FALSE) 
     +theme(axis.text = element_text(colour = "black",size=10)) 
     +scale_y_continuous(" RA (%) ")+scale_x_discrete(limits=taxalist[1:5]," ") 
     +scale_fill_manual(name = "MY type", values = mycol[1:nmc]) 
     +theme_bw() + guides(fill=guide_legend(title=NULL))+theme(legend.position=c(1,1),legend.justification=c(1,1)) 
     +theme(legend.key = element_blank(),legend.key.size = unit(1.5, "lines")) 
     +theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(), panel.background = element_blank()) ) 

미안 수없는 이미지가 내 질문을 설명 할 수 있습니다.

Answer 1

여기에 전설은 단순한 사각형으로 표시되어 있습니다. Winston Change 사용 here을 본 해킹 변형을 사용합니다. (필자는 다이아몬드의 데이터 집합을 사용하고 있습니다.)

아이디어는 geom_points 음모 (누구의 전설 당신이 제어 할 수 있습니다, 그리고 전부 상자 그림의 전설을 억제하는)

library(ggplot2) 
p <- ggplot() + geom_point(data=diamonds, aes(x=cut, y=mean(depth), color=clarity), shape=15, size=5) 
p <- p + guides(color=guide_legend(title=NULL)) 
p <- p + theme(legend.key = element_blank()) 
p <- p + geom_boxplot(data=diamonds,aes(x=cut,fill=factor(clarity),y=depth)) + guides(fill=FALSE) 
p 

또한 체크 아웃 해들리의입니다 Legend-Attributes page on github