r - 如何删除ggplot geom_bar图例的横杆？

Question

我一直在 WEB 上搜索以删除下面 ggplot barplot 的图例中的横杆。但是，没有成功。你能帮我解决这个问题吗？请参阅下面的数据“temp”和我正在使用的代码。您能否也让我知道如何在条形图上使用模式？谢谢你。

temp:
    type    var value
    A   k1  20
    A   l1  30
    B   k1  10
    B   l1  15

    ggplot(temp,aes(type, value)) + geom_bar(stat="identity", aes(group=var, fill=type, facets=var),colour="blue1", position="identity") + facet_grid(.~var) + theme_bw()

Answer 1

我知道的唯一方法是做geom_bar两层，一层有蓝色，但没有图例，一层没有蓝色，但有图例：

ggplot(temp,aes(type, value)) + 
    geom_bar(stat="identity", aes(group=var, fill=type, facets=var),color = "blue1", position="identity",legend = "none") +
    geom_bar(stat="identity", aes(group=var, fill=type, facets=var), position="identity") +
    facet_grid(.~var) + 
    theme_bw()

推测一下，我怀疑这并不容易的原因是包作者作为设计决策，希望图例与图层中的内容完全匹配。大多数时候，你可能对这种行为很满意，但伴随着极大的便利，偶尔也会出现尴尬。