ggplot：x轴条形图上的多个变量

Question

过去几周我一直在尝试设置我需要的图表。我想尝试在“x”轴上有多个变量（V2、V5、V6）以及它们与另一个条件（V4）有何不同。

我的数据如下所示：

        v1              v2            v3             v4           v5                  v6
        2                1            214             2            3                   1
        2                1            214             2            4                   1
        3                1            214             2            2                   1
        4                1            214             2            3                   1
        1                1            372             1            1                   2
        3                1            552             1            2                   1

我一直在制作的图表看起来像这里底部的图表，但我想尝试制作一个像顶部的图表。 http://imgur.com/a/DQQp9

到目前为止我的条形图代码是这样的：

    ggplot(oll_subset, aes(factor(v2), fill =     factor(v4))) +
geom_bar(position = "dodge") 

ggplot(oll_subset, aes(factor(v4), fill = factor(v2))) +
geom_bar(position = "dodge") 

#NOT WORKING
#graph <- ggplot(oll_subset, aes(v2, v4))
#graph + geom_bar()
#graph + geom_bar(factor(x=v4))

g <- ggplot(oll_subset, aes(v2))
g + geom_bar()

g + geom_bar(aes(fill = v4))

Answer 1

问题不在于你的绘图，而在于你的数据格式。

目前，您的数据是宽格式的，这意味着每个变量都有一列。

ggplot 虽然需要长格式。可以使用 reshape2 包中的 melt 函数生成此格式。

如果你使用默认的 id 变量melt 会生成类似的东西：

oll.subset.melt <- melt(oll.subset)

| variable | value |
|----------|-------|
| v1       | 2     |
| v1       | 2     |
| v1       | 2     |
[...]
| v5       | 1     |
| v5       | 2     |

绘制数据，它们应该看起来与您想要的相似：

ggplot(data=oll.subset.melt, aes(value, fill=variable)) + geom_bar(position="dodge", stat="count")

在您的数据集中+ scale_x_log10() 可能是一个好主意，因为这些值彼此非常不同。