```r
ggplot(test_data_long) +
  facet_wrap(~id) +
  geom_bar(aes(variable, value, fill = variable), stat = "identity") +
  geom_text(aes(variable, value + 1.5, label = value))
```

<img src="modern_R_files/figure-html/unnamed-chunk-395-1.png" width="672" />