ggplot를 공부하다가 막히는게 생겨서 질문드립니다.

제가 첨부한 csv파일을

P7=read.csv("D:\\Data\\데이터 정리\\14년 산호\\결과\\Phylum.csv")
b=P %>% select(Name) %>% as.matrix()
P8=melt(P,id.vars ='Name')
colnames(P8)=c("Name","Sample","Ratio")
ggplot(P8,aes(Sample,Ratio, fill=Name))+
  geom_col() +
  theme_bw()+
  labs(X="",y="",fill="")+
  scale_fill_discrete(limits=b)

로 그래프를 그렸는데 혹시 범례에서 특정 항목만 제거할 수 있는 방법이 있는지 알고싶습니다.

예를 들면 첨부한 사진에서 DQ860014_p를 그래프에는 제거되지 않고 범례항목에서만 제거하고 싶습니다.