読者です 読者をやめる 読者になる 読者になる

はてなグループのキーワードファイルのcsvをキーワードごとにテキストファイルに分割

R

タイトルの通りです。400個くらいのファイルができた。

setwd("~/hatena_keyword/syou6162")
getwd()
hatena <- read.csv("syou6162.csv",header=T)
hatena <- data.frame(word=as.character(hatena$word),body=as.character(hatena$body))
for(i in sequence(nrow(hatena))){
  sink(paste(hatena[i,]$word,".txt",sep=""))
  cat(as.character(hatena[i,]$body))
  sink()
  cat(paste("finished writing ",hatena[i,]$word,".",sep=""),fill=TRUE)
}