```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 = paste(value, "€")))
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '26.5 €' in 'mbcsToSbcs': dot substituted for
## <e2>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '26.5 €' in 'mbcsToSbcs': dot substituted for
## <82>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '26.5 €' in 'mbcsToSbcs': dot substituted for
## <ac>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '38 €' in 'mbcsToSbcs': dot substituted for
## <e2>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '38 €' in 'mbcsToSbcs': dot substituted for
## <82>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '38 €' in 'mbcsToSbcs': dot substituted for
## <ac>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '30 €' in 'mbcsToSbcs': dot substituted for
## <e2>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '30 €' in 'mbcsToSbcs': dot substituted for
## <82>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '30 €' in 'mbcsToSbcs': dot substituted for
## <ac>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '32 €' in 'mbcsToSbcs': dot substituted for
## <e2>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '32 €' in 'mbcsToSbcs': dot substituted for
## <82>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '32 €' in 'mbcsToSbcs': dot substituted for
## <ac>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '34 €' in 'mbcsToSbcs': dot substituted for
## <e2>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '34 €' in 'mbcsToSbcs': dot substituted for
## <82>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '34 €' in 'mbcsToSbcs': dot substituted for
## <ac>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '30 €' in 'mbcsToSbcs': dot substituted for
## <e2>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '30 €' in 'mbcsToSbcs': dot substituted for
## <82>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '30 €' in 'mbcsToSbcs': dot substituted for
## <ac>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '30 €' in 'mbcsToSbcs': dot substituted for
## <e2>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '30 €' in 'mbcsToSbcs': dot substituted for
## <82>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '30 €' in 'mbcsToSbcs': dot substituted for
## <ac>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '28 €' in 'mbcsToSbcs': dot substituted for
## <e2>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '28 €' in 'mbcsToSbcs': dot substituted for
## <82>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '28 €' in 'mbcsToSbcs': dot substituted for
## <ac>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '32 €' in 'mbcsToSbcs': dot substituted for
## <e2>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '32 €' in 'mbcsToSbcs': dot substituted for
## <82>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '32 €' in 'mbcsToSbcs': dot substituted for
## <ac>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '30 €' in 'mbcsToSbcs': dot substituted for
## <e2>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '30 €' in 'mbcsToSbcs': dot substituted for
## <82>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '30 €' in 'mbcsToSbcs': dot substituted for
## <ac>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '34 €' in 'mbcsToSbcs': dot substituted for
## <e2>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '34 €' in 'mbcsToSbcs': dot substituted for
## <82>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '34 €' in 'mbcsToSbcs': dot substituted for
## <ac>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '32 €' in 'mbcsToSbcs': dot substituted for
## <e2>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '32 €' in 'mbcsToSbcs': dot substituted for
## <82>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '32 €' in 'mbcsToSbcs': dot substituted for
## <ac>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '30 €' in 'mbcsToSbcs': dot substituted for
## <e2>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '30 €' in 'mbcsToSbcs': dot substituted for
## <82>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '30 €' in 'mbcsToSbcs': dot substituted for
## <ac>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '28 €' in 'mbcsToSbcs': dot substituted for
## <e2>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '28 €' in 'mbcsToSbcs': dot substituted for
## <82>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '28 €' in 'mbcsToSbcs': dot substituted for
## <ac>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '26.5 €' in 'mbcsToSbcs': dot substituted for
## <e2>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '26.5 €' in 'mbcsToSbcs': dot substituted for
## <82>
```

```
## Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x,
## x$y, : conversion failure on '26.5 €' in 'mbcsToSbcs': dot substituted for
## <ac>
```

![](modern_R_files/figure-latex/unnamed-chunk-250-1.pdf)<!-- -->