如何将输出从R导入到Excel文件

debugcn 发表于 Dev

冰雪

stock_reco<- read.csv("C:\\temp\\Migration.csv")
migrate<-as.matrix(stock_reco)
title<-colnames(migrate)
dt1<-migrate[,3]
dt2<-as.Date(dt1, format= "%d/%m/%Y")
reco1<-migrate[,6]
reco<-as.matrix(reco1)
for(i in 1:4099)
{
  if((migrate[i,1]== migrate[i+1,1]) && (migrate[i,2]== migrate[i+1,2]))
    {
       k<-difftime(dt2[i+1],dt2[i],units = "days")
       if((k <=180) && (reco[i] == reco[i+1]))
       print (migrate[i,])
       print (migrate[i+1,])
       print ("----------------------------------------------------") 
    }

}

最后两个打印语句在下面的图像中给出了我的最终输出。我想将整个Final输出保存在一个excel文件中。那么如何将输出从R导入到excel文件呢？我想要这种形式的输出

公司名称经纪公司日期CMP目标推荐是是Bank Motilal Oswal 14/6/2011 294420购买是Bank Motilal Oswal 22/9/2011 285400购买

以上只是一组条件，如果满足条件并且有几对这样的对。我在Excel工作表中需要所有这些。当我运行代码时，我在R中以Zig / Zag / Random形式获取该代码，没有错误。请让我知道如何将此输出详细写入Excel工作表。谢谢

约翰·林恩·亨利

@iceiceice你可以试试这个

stock_reco<- read.csv("C:\\temp\\Migration.csv")
migrate<-as.matrix(stock_reco)
title<-colnames(migrate)
dt1<-migrate[,3]
dt2<-as.Date(dt1, format= "%d/%m/%Y")
reco1<-migrate[,6]
reco<-as.matrix(reco1)
for (i in 1:4099) {
  if((migrate[i,1]== migrate[i+1,1]) && (migrate[i,2]== migrate[i+1,2]))
    {
       k<-difftime(dt2[i+1],dt2[i],units = "days")
       if((k <=180) && (reco[i] == reco[i+1]))
       d <- rbind(d, data.frame(migrate[i,], migrate[i+1,]))
        }
    }

write.csv(file=fileName, x='d')

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。