R

R並べ替え

options(encoding = "utf-8")
library(tm)
library(data.table)
library(zoo)
library(dplyr)
library(xlsx)

root<-("c:/Users/kohei/R/BEAT/")
setwd(paste0(root))

infile<-("beat.csv")

dat.all <- fread(paste0(root,infile), encoding = "UTF-8")

dat.all[is.na(dat.all)]<-0

check_list<-dat.all$Message

excl_list<-read.csv("excl_list.csv",header = F)

for (i in 1:length(excl_list)){
dis_list<-grep(excl_list$V1[i],check_list)
if(length(dis_list)!=0){
for (i in 1:length(dis_list)){
list<-dis_list[i]
dat.all[list,]<-NA
}
}
}

dat.all_excl<-na.omit(dat.all)

pickup_list<-read.csv("pickup_list.csv",header = F)

for(i in 1:length(pickup_list)){

}

dis_list<-grep(excl_list$V1[i],check_list)
if(length(dis_list)!=0){
for (i in 1:length(dis_list)){
list<-dis_list[i]
dat.all[list,]<-NA
}
}
}

for (i in 1:length(excl_list)){
dis_list<-grep(excl_list$V1[i],check_list)
if(length(dis_list)!=0){
for (i in 1:length(dis_list)){
list<-dis_list[i]
dat.all[list,]<-NA
}
}
}

dat.all_excl<-na.omit(dat.all)

options(encoding = "utf-8")
library(tm)
library(data.table)
library(zoo)
library(dplyr)
library(xlsx)

root<-("c:/Users/kohei/R/BEAT/")
setwd(paste0(root))

infile<-("beat.csv")

dat.all <- fread(paste0(root,infile), encoding = "UTF-8")

dat.all[is.na(dat.all)]<-0

check_list<-dat.all$Message

excl_list<-read.csv("excl_list.csv",header = F)

for (i in 1:length(excl_list)){
dis_list<-grep(excl_list$V1[i],check_list)
if(length(dis_list)!=0){
for (i in 1:length(dis_list)){
list<-dis_list[i]
dat_pickup<-dat.all[list,]
}
}
}

created_time<-dat.all_excl$CreatedTime
created_time <- strptime(created_time, "%Y-%m-%d %H")

created_time <- as.character(created_time)

tail(created_time)

created_frame <- as.data.frame(table(created_time))

http://www.motorcycleshows.com/sites/motorcycleshows.com/files/SOC%20Template.pdf

http://www.eicma.it/en/visit/exhibitor_list/

拡散希望
YOSHIKI
MIYABI
名無しさん
刀剣乱舞
闇遊戯
遊戯
遊戯王
名無し
ヒト型ロボット
桃山
パラド
ゆるぼ
運営チーム
EXILE
プリキュア
美肌
東京喰種
将棋ジャーナル
モンスト
ヒト
パチンコ
ビタミン
VRゴーグル
リフレク
バンやろ
ビットコイン
ネフェルピトー
ビートストリーム
スタンビート
ビートマニア
ビートプレス
エネルギービート
ブラストビート
ドレミファビート
ビートルズ
ビートダウン
ツービート
ビートメイカー
オフビート
ビートウォッシュ
ビーフェス
キラキラビート
ジュエルビート
REFLEC BEAT
Bitcoin
BEAT LINKS
BEAT Audio
Jewel Beat

mediatype_list<-dat.all.csv$MessageType
mediatype_table<-table(mediatype_list)

write.xlsx(mediatype_table,"mediatype.xlsx")

title_list<-dat.all.csv$Title
title_count<-as.data.frame(table(title_list))
title_count_decreasing<-title_count[order(title_count$Freq,decreasing = TRUE),]
View(title_count_decreasing)

check_title_list<-dat.all.csv$Title
excl_title_list<-read.csv("excl_title_list.csv",header = F)

for (i in 1:length(excl_title_list$V1)){
dis_list<-grep(excl_title_list$V1[i],check_title_list)
if(length(dis_list)!=0){
for (i in 1:length(dis_list)){
list<-dis_list[i]
dat.all.csv[list,]<-NA
}
}
}
dat.all.csv<-na.omit(dat.all.csv)