Clean up non-idiomatic code in vignette

from @antagomir

While I went through the vignette, I noticed some minor points that you may find useful for your next version. Use as you wish:

1. colData(cpd)$country (and other similar cases) can be also written more shortly just like: cpd$country
2. ggplot(as.data.frame(colData(cpd)))... -> the as.data.frame() was necessary until very recently, but not needed any more since the issue was [solved](https://github.com/tidyverse/ggplot2/issues/5390) ; the latest ggplot2 version allows this:
```
ggplot(colData(cpd))...
```
We are adding a reference to this data resource in the [OMA Gitbook](https://microbiome.github.io/OMA) (beta version, under active development)

issue で参照されている vignette を見つけ、colData(cpd) と ggplot(as.data.frame(colData(cpd))) を使用している例を確認します。例を更新して、より短いアクセス方法と現在の ggplot2 の使い方を使用するようにし、その後 vignette をレンダリングするか実行して、例が動作し、文言が整理されていることを確認します。

索引モデルが issue の本文から書いたものです。