使用不同大小的数据在图表上绘制多个条形图答案

【问题标题】：Drawing multiple barplots on a graph using data with different size使用不同大小的数据在图表上绘制多个条形图
【发布时间】：2017-09-19 06:23:50
【问题描述】：

我可以使用以下代码在一个图上绘制多个条形图（取自this问题）：

mydata <- data.frame(Barplot1=rbinom(5,16,0.6), Barplot2=rbinom(5,16,0.25),
                     Barplot3=rbinom(5,5,0.25), Barplot4=rbinom(5,16,0.7))
barplot(as.matrix(mydata), main="Interesting", ylab="Total", beside=TRUE, 
        col=terrain.colors(5))
legend(13, 12, c("Label1","Label2","Label3","Label4","Label5"), cex=0.6, 
       fill=terrain.colors(5))

但我的场景有点不同：我将数据存储在 3 个 data.frames 中（根据 V2 列排序），其中 V1 列是 Y 轴，V2 列是 X 轴：

> tail(hist1)
   V1 V2
67  2 70
68  2 72
69  1 73
70  2 74
71  1 76
72  1 84
> tail(hist2)
   V1  V2
87  1  92
88  3  94
89  1  95
90  2  96
91  1 104
92  1 112
> tail(hist3)
    V1  V2
103  3 110
104  1 111
105  2 112
106  2 118
107  2 120
108  1 138

要绘制一个单独的图，它很简单：

barplot(hist3$V1, main="plot title", names.arg = hist3$V2)

但我无法构造绘图所需的矩阵，因为我现在可以看到几个问题（也许还有其他几个问题）：

我的数据大小不同：

> nrow(hist1)
[1] 72
> nrow(hist2)
[1] 92
> nrow(hist3)
[1] 108

有 X（因此也有 Y）值在一个列表中但不在另一个列表中，例如：

> hist3$V2[which(hist3$V2==138)]
[1] 138
> hist1$V2[which(hist1$V2==138)]
integer(0)

我需要（我猜）是在适当的 data.frame 中创建具有 0 Y 值的适当 V2（x 轴）的东西，因此它们将具有相同的长度，我将能够像上面的示例一样组合它们。请参阅以下示例，其中只有 2 个 data.frames（v2 和 v1 与前面的示例相反）：

> # missing v2 for 3,4,5
> df1
  v2     v1
1  1      1
2  2      2
3  6      3
4  7      4
5  8      5
6  9      6
7  10     7

> # missing v2 for 1,2,9,10
> df2
  v2     v1
1  3      1
2  4      2
3  5      3
4  6      4
5  7      5
6  8      6


> # some_magic_goes_here ...

> df1
  v2     v1
1  1      1
2  2      2
3  3      0 # created
4  4      0 # created
5  5      0 # created
6  6      3
7  7      4
8  8      5
9  9      6
10 10     7

> df2
  v2     v1
1  1      0 # created
2  2      0 # created
3  3      1
4  4      2
5  5      3
6  6      4
7  7      5
8  8      6
9  9      0 # created
10 10     0 # created

谢谢

【问题讨论】：

标签： r plot

【解决方案1】：

您可能可以通过 1) 从所有 data.frames 中检索所有可能的 x 轴值（v2 值）来做到这一点。和 2) 使用此信息检索现有值和/或用零填充缺失值。

set.seed(111)
df1 <- data.frame(v2= sample(1:10, size = 7),
                  v1 = sample(1:100, size = 1))
df2 <- data.frame(v2= sample(1:10, size = 7),
                  v1 = sample(1:100, size = 1))
df3 <- data.frame(v2= sample(1:10, size = 7),
                  v1 = sample(1:100, size = 1))

首先，检索您的类别/x 轴值/v2 注意如果class(df1$v2) == "factor"，那么你应该使用levels()而不是unique() my.x

你可能希望它排序

my.x <- sort(my.x)

现在，使用my.x 重新排序/填充您的data.frames，从df1 开始。具体来说，检查my.x 的每个值：如果该值包含在 df1$v2 中，则返回对应的 v1，否则返回 0。

my.df1 <- data.frame(v2 = my.x, 
                      v1 = sapply(my.x, (function(i){
                        ifelse (i %in% df1$v2, df1$v1[df1$v2 == i], 0)
                      })))
my.df1

将此操作应用于所有数据帧的简单方法是将它们一起列出，然后使用lapply()

dfs <- list(df1 = df1, df2 = df2, df3 = df3)
dfs <- lapply(dfs, (function(df){
  data.frame(v2 = my.x, 
             v1 = sapply(my.x, (function(i){
               ifelse (i %in% df$v2, df$v1[df$v2 == i], 0)
             })))
}))
# show all data.frames    
dfs

# show df1
dfs$df1

【讨论】：