gtrendsRでアベノマスク (新型コロナウイルス：Coronavirus)

(関連ニュース)
Japan's 'Abenomask' drive tainted by gripes over mold, stains and bugs
アベノマスク出典: フリー百科事典『ウィキペディア（Wikipedia）』
政府、アベノマスク製造元の公表を頑なに拒否。衛生用品としての品質を疑う声も 2020年4月20日
政府の妊婦向け布マスクに「変色」「髪の毛混入」など不良品の報告相次ぐ 4/18(土) 22:25配信

2020-04-04

Bloomberg:From Abenomics to Abenomask: Japan Mask Plan Meets With Derision
The Japan Times:Abenomask? Prime minister's 'two masks per household' policy spawns memes on social media
Nikkei Asian Review:Abe faces calls for decisive action after 'Abenomask' blunder(Emergency declaration gives government limited power compared with other nations)
CNN:Anger as Japanese Prime Minister offers two cloth masks per family while refusing to declare coronavirus emergency
FOCUS: Citizens mock Abe's plan to provide cloth face masks to fight virus

直近７日

	subject	related_topics	value	geo	keyword	category
1	100	top	Abeno Ward	JP	アベノマスク	0
2	99	top	Product defect : 不良品	JP	アベノマスク	0
3	80	top	Remake	JP	アベノマスク	0
4	36	top	Shinzō Abe	JP	アベノマスク	0
5	24	top	Donation	JP	アベノマスク	0
6	21	top	Kowa Company, Ltd.	JP	アベノマスク	0
7	14	top	Mold : かび	JP	アベノマスク	0
8	14	top	Abenomics	JP	アベノマスク	0
9	12	top	Acari : ダニ類	JP	アベノマスク	0
10	6	top	Myanmar (Burma)	JP	アベノマスク	0
11	5	top	Corporation	JP	アベノマスク	0
12	4	top	MATSUOKA CORPORATION	JP	アベノマスク	0
13	3	top	Itochu	JP	アベノマスク	0
14	2	top	Kumiko Mori	JP	アベノマスク	0
15	<1	top	Mizuho Fukushima	JP	アベノマスク	0
16	<1	top	Hoax	JP	アベノマスク	0

	subject	related_queries	value	geo	keyword	category
1	100	top	アベノマスク 製造元	JP	アベノマスク	0
2	35	top	アベノマスク 不 良品	JP	アベノマスク	0
3	35	top	あべの マスク	JP	アベノマスク	0
4	29	top	アベノマスク リメイク	JP	アベノマスク	0
5	21	top	アベノマスク 届い た	JP	アベノマスク	0
6	20	top	アベノマスク いつ	JP	アベノマスク	0
7	14	top	安倍	JP	アベノマスク	0
8	14	top	アベノ マスク リメイク	JP	アベノマスク	0
9	10	top	アベノマスク 小さい	JP	アベノマスク	0
10	8	top	アベノマスク 寄付	JP	アベノマスク	0
11	8	top	興和 アベノマスク	JP	アベノマスク	0
12	8	top	興和	JP	アベノマスク	0
13	7	top	安倍 マスク	JP	アベノマスク	0
14	6	top	アベノマスク いつ 届く	JP	アベノマスク	0
15	5	top	あべの マスク 製造元	JP	アベノマスク	0
16	5	top	アベノマスク twitter	JP	アベノマスク	0
17	5	top	アベノミクス	JP	アベノマスク	0
18	5	top	アベノマスク 届か ない	JP	アベノマスク	0
19	5	top	アベノマスク ツイッター	JP	アベノマスク	0
20	5	top	アベノマスク 製造	JP	アベノマスク	0
21	5	top	アベノマスク 大阪	JP	アベノマスク	0
22	4	top	アベノマスク ダニ	JP	アベノマスク	0
23	4	top	あべの マスク リメイク	JP	アベノマスク	0
24	4	top	アベノマスク 費用	JP	アベノマスク	0
25	4	top	アベノマスク カビ	JP	アベノマスク	0

2020-04-01 2020-04-20 時系列トレンドをプロット

	subject	related_topics	value	geo	keyword	category
1	100	top	Abeno Ward	JP	アベノマスク	0
2	89	top	Naoki Urasawa	JP	アベノマスク	0
3	50	top	Shinzō Abe	JP	アベノマスク	0
4	33	top	Remake	JP	アベノマスク	0
5	26	top	Cost	JP	アベノマスク	0
6	20	top	Donation	JP	アベノマスク	0
7	15	top	Abenomics	JP	アベノマスク	0
8	15	top	Product defect	JP	アベノマスク	0
9	15	top	Sazae-san	JP	アベノマスク	0

	subject	related_queries	value	geo	keyword	category
1	100	top	アベノマスク 製造元	JP	アベノマスク	0
2	72	top	あべの マスク	JP	アベノマスク	0
3	59	top	浦沢 アベノマスク	JP	アベノマスク	0
4	49	top	アベノマスク 届い た	JP	アベノマスク	0
5	42	top	アベノマスク twitter	JP	アベノマスク	0
6	42	top	浦沢 直樹	JP	アベノマスク	0
7	39	top	浦沢 直樹 アベノマスク	JP	アベノマスク	0
8	31	top	アベノマスク 小さい	JP	アベノマスク	0
9	30	top	アベノマスク イラスト	JP	アベノマスク	0
10	24	top	アベノマスク サザエ さん	JP	アベノマスク	0
11	11	top	アベノマスク 費用	JP	アベノマスク	0
12	11	top	アベノ マスク リメイク	JP	アベノマスク	0
13	9	top	アベノマスク twitter イラスト	JP	アベノマスク	0
14	9	top	アベノマスク 寄付	JP	アベノマスク	0
15	7	top	アベノマスク いつ	JP	アベノマスク	0
16	7	top	アベノマスク urasawa	JP	アベノマスク	0
17	7	top	マスク 2 枚	JP	アベノマスク	0
18	7	top	阿部 の マスク	JP	アベノマスク	0
19	7	top	浦沢 直樹 氏 アベノマスク	JP	アベノマスク	0
20	4	top	アベノマスク サイズ	JP	アベノマスク	0
21	4	top	アベノマスク 不 良品	JP	アベノマスク	0
22	4	top	アベノマスク いつから	JP	アベノマスク	0
23	2	top	アベノマスク 大喜 利	JP	アベノマスク	0

2020-04-04 : 時系列トレンドをプロット（xtsパッケージを使った。）

Rコード

2020-04-01 2020-04-20

#devtools::install_github("PMassicotte/gtrendsR")
library(gtrendsR)
library(knitr)
AbenoMask <- gtrends(c("アベノマスク"), time="2020-04-01 2020-04-20",geo="JP")
dat<-AbenoMask[[1]][,c("date", "hits")]
dat$hits<-as.numeric(gsub("<","",dat$hits))
#png("AbenoMask02.png",width=800,height=600)
date<- sub("-","/",sub("-0","-",sub("^0","",sub("2020-","",dat$date))))
barplot(dat$hits,names=date,col="pink",ylim=c(0,max(dat$hits)*1.05),las=1,
    main="ピーク時を100としたときの検索割合の推移（キーワード：アベノマスク）")
#dev.off()

kable(head(AbenoMask$related_topics,9),row.names=T)

kable(head(AbenoMask$related_queries,17),row.names=T)

Googleトレンドデータを入手。直近７日

#devtools::install_github("PMassicotte/gtrendsR")
library(gtrendsR)
library(xts)
library(knitr)
AbenoMask <- gtrends("アベノマスク", time="now 7-d",geo="JP")
dat<-AbenoMask[[1]][,c("date", "hits")]
dat$hits<-as.numeric(gsub("<","",dat$hits))
#
dat.xts <- xts(dat[,-1], strptime(dat$date, "%Y-%m-%d %H:%M:%S"))
# 日本時間に直すために9時間（9*60*60 秒）加える
index(dat.xts)<-index(dat.xts)+9*60*60
colnames(dat.xts)<-"hits"
#
#png("AbenoMask03.png",width=800,height=600)
plot.xts(dat.xts,type="h",lend=1,lwd=5,col="red",ylim=c(-5,max(dat.xts$hits)*1.05),
    main="ピーク時を100としたときの検索割合の推移（キーワード：AbenoMask）")
#dev.off()

2020-04-04

Googleトレンドデータを入手。直近７日

#devtools::install_github("PMassicotte/gtrendsR")
library(gtrendsR)
library(xts)
library(knitr)
AbenoMask <- gtrends(c("AbenoMask"), time="now 7-d")
names(AbenoMask)
#
#[1] "interest_over_time"  "interest_by_country" "interest_by_region" 
#[4] "interest_by_dma"     "interest_by_city"    "related_topics"     
#[7] "related_queries" 

時系列トレンドをプロット（xtsパッケージを使った。）

dat<-AbenoMask[[1]][,c("date", "hits")]
dat$hits<-as.numeric(gsub("<","",dat$hits))
#
dat.xts <- xts(dat[,-1], strptime(dat$date, "%Y-%m-%d %H:%M:%S"))
# 日本時間に直すために9時間（9*60*60 秒）加える
index(dat.xts)<-index(dat.xts)+9*60*60
colnames(dat.xts)<-"hits"
#
#png("AbenoMask01.png",width=800,height=600)
plot.xts(dat.xts,type="h",lend=1,lwd=5,col="red",ylim=c(-5,max(dat.xts$hits)*1.05),
    main="ピーク時を100としたときの検索割合の推移（キーワード：AbenoMask）")
#dev.off()

interest_by_country

kable(head(AbenoMask$interest_by_country,5),row.names=T)

	location	hits	keyword	geo	gprop
1	Japan	100	AbenoMask	world	web
2	Singapore	29	AbenoMask	world	web
3	South Korea	17	AbenoMask	world	web
4	United States	2	AbenoMask	world	web
5	United Kingdom	2	AbenoMask	world	web

kable(head(AbenoMask$interest_by_city,11),row.names=T)

	location	hits	keyword	geo	gprop
1	Bunkyo	100	AbenoMask	world	web
2	Setagaya	67	AbenoMask	world	web
3	Minato	63	AbenoMask	world	web
4	Shinagawa	61	AbenoMask	world	web
5	Chiyoda	61	AbenoMask	world	web
6	Koto	55	AbenoMask	world	web
7	Suginami	53	AbenoMask	world	web
8	Shibuya	47	AbenoMask	world	web
9	Shinjuku	39	AbenoMask	world	web
10	Yokohama	38	AbenoMask	world	web
11	Kawasaki	34	AbenoMask	world	web

kable(head(AbenoMask$related_topics,15),row.names=T)

	subject	related_topics	value	keyword	category
1	100	top	Abenomics	AbenoMask	0
2	77	top	Bloomberg	AbenoMask	0
3	62	top	CNN International	AbenoMask	0
4	61	top	Japan	AbenoMask	0
5	53	top	Japanese people	AbenoMask	0
6	50	top	Japanese Language	AbenoMask	0
7	42	top	Respirator	AbenoMask	0
8	33	top	Policy	AbenoMask	0
9	29	top	Shinzō Abe	AbenoMask	0
10	22	top	Yahoo! Japan	AbenoMask	0
11	14	top	Household	AbenoMask	0
12	14	top	CORONA CORPORATION	AbenoMask	0
13	12	top	Abeno Ward	AbenoMask	0
14	11	top	Sazae-san	AbenoMask	0
15	9	top	The Japan Times	AbenoMask	0

kable(head(AbenoMask$related_queries,24),row.names=T)

	subject	related_queries	value	keyword	category
1	100	top	abenomics abenomask	AbenoMask	0
2	100	top	abenomics	AbenoMask	0
3	91	top	アベノマスク	AbenoMask	0
4	71	top	bloomberg abenomask	AbenoMask	0
5	71	top	bloomberg	AbenoMask	0
6	68	top	abenomask cnn	AbenoMask	0
7	59	top	マスク	AbenoMask	0
8	53	top	コロナ	AbenoMask	0
9	35	top	abenomask policy	AbenoMask	0
10	31	top	abe mask	AbenoMask	0
11	29	top	derision	AbenoMask	0
12	27	top	meme	AbenoMask	0
13	21	top	from abenomics to abenomask	AbenoMask	0
14	18	top	japan mask	AbenoMask	0
15	17	top	ブルームバーグ	AbenoMask	0
16	15	top	memes	AbenoMask	0
17	14	top	マスク 2 枚	AbenoMask	0
18	12	top	安倍 マスク	AbenoMask	0
19	11	top	abenomusk	AbenoMask	0
20	10	top	アベノミクス	AbenoMask	0
21	10	top	coronavirus japan	AbenoMask	0
22	10	top	翻訳	AbenoMask	0
23	9	top	abeno mask	AbenoMask	0
24	9	top	アベノマスク twitter	AbenoMask	0