Updated some commenting
The first version was completely wrong. It was picking up all complete items, and failed to weed out items that were not Articles.

Moves up the if loop to check if there are any values == Article. If so, creates a subset of the articles, converts the type factor to a character, and adds the fields to a data frame.

13 out of the 17 were added to the new df, indicating that 5 departments have items in the IR, but not articles.

Made no changes to the plots.