如何将 R 的输出导入 Excel 文件

Question

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 ("----------------------------------------------------") 
    }

}

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

Comp Name Brokerage House Date CMP 目标推荐是 Bank Motilal Oswal 14/6/2011 294 420 买入是 Bank Motilal Oswal 22/9/2011 285 400 买入

以上只是满足if条件的一组，这样的组合有好几对。我需要 Excel sheet 中的所有这些。当我运行我的代码在 R 中以锯齿形/随机形式得到时，代码中没有错误。请让我详细了解如何将此输出写入 excel sheet。谢谢

Answer 1

@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')

如何将 R 的输出导入 Excel 文件

How to import output from R to an Excel File

r

export-to-excel