r キーワード合成·アカウント情报付与

Posted 2021-05-23

setwd("C:/Users/a_kawata/Desktop/workspace/2AutoReport/")
list<-paste("keyword/",list.files("keyword"),sep="")
for( i in 1:length(list) )
  assign(paste("ac",i,sep=""),read.csv(list[i],header=T,stringsAsFactors=F))
for( i in 1:length(list) ){
  x<-get(paste("ac",i,sep=""))
  x$アカウント<-substr(list[i],9,14)
  if( i == 1 )keyword<-x[-nrow(x),]
  else keyword<-rbind(keyword,x[-nrow(x),])
}