在做逻辑清洗后，主界面显示的数据是清洗过的（肉眼可见已删掉了不符合的），但在导出时还是原始未删除的数据，请问是我的write 语句不对吗

t1<-read.csv('C:/Users/wugongan/Desktop/06041.csv',head=T)
t1 %>%
group_by(time, cuid) %>%
filter(row_number() == 1)
write.csv(t1,file="605tt.csv")