如何在csv文件中从不同的函数一个接一个地写数据？ [英] How to write data in a csv file from different functions in R one after another?

问题描述

我有一个CSV文件，根据我执行的功能，将数据写入另一个CSV文件

Data.csv

 身份，州，城市，商务名称，商业名称
 12，加利福尼亚州，洛杉矶，Ray兄弟，IT 
 34，texas，达拉斯，abc，TV 
 45，华盛顿，西雅图，Microsft，软件
  

我的输出是像

  BusinessId，Campaignname 
 12，geo | California | Los Angeles 
 12，cat | Ray兄弟，IT 
 34，geo | texas |达拉斯
 34，cat | abc | TV 
 45，geo | washington | seattle 
 45，cat | Microsoft | b 

如何按照我想要的方式格式化输出？

我的代码看起来像

  newlistings<  -  read.csv（Data.csv，header = TRUE） 
 Identity<  -  newlistings $ Identity 
 campaignname<  -  paste（geo，|，（tolower（as.character（newlistings $ state））），| as.character（newlistings $ Market））），sep =）
  

...
再次应为campaignname

  campaignname < -  paste（cat，|，（tolower字符（newlistings $ BusinessName））），|，（tolower（as.character（newlistings $ BusinessNeed））），sep =）
  
 
 
我想实现它，而不使用for循环。 
解决方案
我认为创建一个新的数据框架是有点误导，所以我鹅卵石一起 cat   - 基于解决方案：（可以轻松地修改以写入文件。）
  cat（cat（'BusinessId，Campaignname'，'\\\
'），
 apply（Data.csv，1，function（ln）{
 cat（ln [1 ]，
 cat（ln [1]，'，'，'，'，'粘贴（cat，ln [4]，ln [5]，sep =|，\\\
）}））
 
 BusinessId，Campaignname 
 12，geo |加利福尼亚州|洛杉矶
 12，cat | Ray brothers | IT 
 34，geo | texas |达拉斯
 34，cat | abc | TV 
 45，geo | washington | 
 45，cat | Microsft | Software 
  
 
I have a CSV file where I want to write the data onto another CSV file based on the functions I perform like 

Data.csv
Identity,State,City,BusinessName,BusinessNeed
12,California,Los Angeles,Ray brothers,IT
34,texas,Dallas,abc,TV
45,washington,seattle,Microsft,Software
My desrired output is like
BusinessId,Campaignname
12,geo|California|Los Angeles
12,cat|Ray brothers,IT
34,geo|texas|Dallas
34,cat|abc|TV
45,geo|washington|seattle
45,cat|Microsoft|Software
How should I be formatting the output like the way I want?

My code looks like 
newlistings <- read.csv("Data.csv",header=TRUE)
Identity <- newlistings$Identity
campaignname <- paste("geo","|",(tolower(as.character(newlistings$state))),"|",(tolower(as.character(newlistings$Market))),sep="")
...
again it should be campaignname 
campaignname <- paste("cat","|",(tolower(as.character(newlistings$BusinessName))),"|",(tolower(as.character(newlistings$BusinessNeed))),sep="")
I want to achieve it without using for loop. new to R. any help is appreciated.
解决方案
I thought creating a new dataframe for this was a bit misguided, so I cobbled together a cat-based solution: (it could be easily modified to write to a file.)
cat( cat('BusinessId,Campaignname','\n'), 
    apply( Data.csv, 1, function( ln){
       cat( ln[1], ',', paste('geo', ln[2],ln[3], sep="|"), "\n")
       cat( ln[1], ',', paste("cat", ln[4],ln[5], sep="|"), "\n") }))

BusinessId,Campaignname 
12 , geo|California|Los Angeles 
12 , cat|Ray brothers|IT 
34 , geo|texas|Dallas 
34 , cat|abc|TV 
45 , geo|washington|seattle 
45 , cat|Microsft|Software 


                        
这篇关于如何在csv文件中从不同的函数一个接一个地写数据？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！