R 过滤和打印数据帧值

我有这样一个数据框：

---

我想创建一个循环，当周期=1时进行过滤，并用周期=1的x和y的所有值绘制一个图表。我该怎么做呢？

我们可以

子集

时间为1的数据，并

绘制

x'和'y'列

with(subset(df1, Time ==1), plot(XPoblacion_Update3, YPoblacion_Update3))

---

请创建一个可复制的示例：