Perform an ANOVA for each individual level of a factor in R

Question

I am looking for a short and efficient method to run individual ANOVA analysis on each level of a factor. What I currently have, I think, is redundant and clutters the work spac