R 在主要复制现有行的基础上向TIBLE添加行

我的数据只显示一个变量，如果它不是0。但是，我希望在图中有表示这些0的间隙

（我将从一个大的数据帧开始工作，但已经创建了一个示例数据，该示例数据基于为此目的我将如何操作它。）

库（tidyverse）
图书馆（GG2）
A您可以从
tidyr
使用
complete

plot%完成（名称、样本、填充=列表（rpkm=0））
#一个tibble:8x3
名称示例rpkm
1安培A 0
2 ampC B 99
3 CblA_1 A 4
4 CblA_1 B 0
5 CTX_M A 350
6 CTX_M B 324
7 OXA_1 A 0
8 OXA_1 B 357
ggplot（）+geom_col（数据=绘图，aes（x=样本，y=rpkm，fill=名称），
position=“道奇”）


library(tidyverse)
library(ggplot2)

A <- tibble(
    name = c("CTX_M", "CblA_1"),
    rpkm = c(350, 4),
    sample = "A"
)

B <- tibble(
    name = c("CTX_M", "OXA_1", "ampC"),
    rpkm = c(324, 357, 99), 
    sample = "B"
)

plot <- bind_rows(A, B)

ggplot()+ geom_col(data = plot, aes(x = sample, y = rpkm, fill = name), 
    position = "dodge")