我有以下R data.frame:

  group match unmatch unmatch_active match_active
1   A    10       4              0            0
2   B   116      20              0            3
3   c   160      27              1            4
4   D    79      17              0            3
5   E   309      84              4           14
6   F   643     244             10           23
...

我的目标是按条形图(http://www.cookbook-r.com/Graphs/Bar_and_line_graphs_(ggplot2)/具有更多变量的section-Graphs)绘制一组,如链接所示。

我意识到在开始之前,我需要将数据转换为以下格式
  group variable value
1   A    match    10
2   B    match   116
3   C    match   160
4   D    match    79
5   E    match   309
6   F    match   643
7   A    unmatch   4
8   B    unmatch  20
...

我使用了melt函数:
groups.df.melt <- melt(groups.df[,c('group','match','unmatch', 'unmatch_active', 'match_active')],id.vars = 1)

我认为我没有正确地进行融合,因为在执行上述groups.df.melt之后,有1000多个行对我来说没有意义。

我查看了Draw histograms per row over multiple columns in R的方式,并尝试遵循同样的方法,但是我没有得到想要的图形。

另外,我得到以下错误:当我尝试进行绘图时:
ggplot(groups.df.melt, aes(x='group', y=value)) + geom_bar(aes(fill = variable), position="dodge") + scale_y_log10()

Mapping a variable to y and also using stat="bin".
  With stat="bin", it will attempt to set the y value to the count of cases in each group.
  This can result in unexpected behavior and will not be allowed in a future version of ggplot2.
  If you want y to represent counts of cases, use stat="bin" and don't map a variable to y.
  If you want y to represent values in the data, use stat="identity".
  See ?geom_bar for examples. (Deprecated; last used in version 0.9.2)
Error in pmin(y, 0) : object 'y' not found

最佳答案

尝试:

mm <- melt(ddf, id='group')
ggplot(data = mm, aes(x = group, y = value, fill = variable)) +
       geom_bar(stat = 'identity', position = 'dodge')

或者
ggplot(data = mm, aes(x = group, y = value, fill = variable)) +
       # `geom_col()` uses `stat_identity()`: it leaves the data as is.
       geom_col(position = 'dodge')

关于r - 如何通过条形图融化 R data.frame 和绘图组,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/26345427/

10-12 02:03