##標注排序修改breaks,breaks——labels,
p + scale_colour_discrete(#values=c("#CC0000", "#006600", "#669999",
# "#00CCCC", "#660099"),或者color/fill/colour,discrete/hue,
    name="Experimental",
    breaks = c("6","4","8"),
    labels = c("B","A","C"))

##第一種color/fill/colour,discrete/hue
p + scale_colour_discrete(
    name="Experimental",
    breaks = c("6","4","8"),
    labels = c("B","A","C"))
##第二種修改圖例標題
p + labs(colour = "name1", shape = "name2")

#第一種，
#Remove title for fill legend
p + guides(colour=guide_legend(title=NULL)) #注意colour/fill/color/shape轉換
#第二種，所有的表題全部移除
# Remove title for all legends
p + theme(legend.title=element_blank())

#1: around the plot "none", "left", "right", "bottom", "top"
basic + theme(legend.position = "bottom")
#2:inside the plot
basic + theme(
    legend.position = c(.95, .95),#plot內位置
    legend.justification = c("right", "top"),#固定右上角
    legend.background = element_blank(),#圖例背景色
    legend.key = element_blank(),#圖標背景色element_rect(colour="black")
    legend.box.background = element_rect(fill=NA,color = "black",linetype = 1) #圖例外框和背景色默認填充白色（刪除fill=NA）
    #legend.box.just = "right",
    #legend.margin = margin(6, 6, 6, 6)#邊框大小調整
    )

#刪除其中一個圖例
guides(shape=FALSE)   #shape/color/colour/fill
#全部刪除圖例
theme(legend.position = "none")