如何在CSV文件的列中分隔字符串並將其寫入R中的另一個CSV文件？

Question

我有一個CSV文件

Market,CampaignName
Wells Fargo,Gary IN MetroChicago IL Metro
EMC,Los Angeles CA MetroBoston MA Metro
Apple,Cupertino CA Metro

使用的部分代碼是

library(stringr)
xx.to.split <- with(xx, setNames(gsub("Metro", "", as.character(CampaignName)), Market))
do.call(rbind, str_match_all(xx.to.split, "(.+?) ([A-Z]{2}) ?"))[, -1]

輸出是

                                [,1]          [,2]
                    Wells Fargo "Gary"        "IN"
                    Wells Fargo "Chicago"     "IL"
                    EMC         "Los Angeles" "CA"
                    EMC         "Boston"      "MA"
                    Apple       "Cupertino"   "CA"

並以第一行作為標題將所需的輸出輸出到CSV文件

Market,City,State
Wells Fargo,Gary,IN
Wells Fargo,Chicago,IL
EMC,Los Angeles,CA
EMC,Boston,MA
Apple,Cupertino,CA

如何在R中將輸出寫入CSV文件？ R的新手。

Answer 1

很難說出您的確切意思。 也許最好的情況是自己編寫標頭，然后在您擁有的矩陣中編寫。 如果您的對象是矩陣m ：

ff <- file("filename.csv", open = "wt")
writeLines("Market,City,State", con = ff)
write.table(m, file = ff, sep = ",", row.names = TRUE, 
  col.names = FALSE, quote = FALSE)
close(ff)

生成的文件如下所示：

Market,City,State
Wells Fargo,Gary,IN
Wells Fargo,Chicago,IL
EMC,Los Angeles,CA
EMC,Boston,MA
Apple,Cupertino,CA