感觉你这个填充色应该是以product.name为分组对象的不同颜色。

如果bar要改成同一种颜色的话，可以
p<-ggplot(phonedata,aes(product.name,telephone.charges))
p+geom_bar(binwidth=0.01，stat="identity",fill="red")+facet_wrap(~number)

如果bar要改成各种不同的颜色的话，
p<-ggplot(phonedata,aes(product.name,telephone.charges,fill=factor(product.name)))
p+geom_bar(binwidth=0.01，stat="identity")+facet_wrap(~number) + scale_fill_manual(values = c("red", "grey", "blue"))

建议多看看help

多谢，学习了。