各位老师，下面是我写的代码，for循环后，print的结果是我想要的，请问怎么把结果保存成新的文件呢，恳请老师帮个忙，谢谢
library(readxl)
Thedata <-read_excel("Fish.xlsx")
library(dplyr)
DF1<-Thedata%>%filter(Area=="山东")
DF2<-Thedata%>%filter(Area=="河北")
DF<-intersect(DF1$item,DF2$item) #寻找两个区域item的交集
n1<-length(as.factor(DF))
newdata<-data.frame() #创建空白数据框
for(i in 1:n1){
newdata<-print(Thedata%>%filter(item==DF))}