How to create a loop with openxslx and R?

Question

I have two dataframes. one is raw data, the other one is aggregated.

My two dataframes are variants of the iris datasets (iris & iris_summary)

iris