ひな誕祭当落アンケート1

作成中

単純集計

①FC先行、FC2次先行での公演日ごとの抽選結果を選択してください。

	当選	落選	申込んでない	合計
FC1次4/1	625	1,133	195	1,953
FC1次4/2	597	1,095	261	1,953
FC2次4/1	220	862	871	1,953
FC2次4/2	263	787	903	1,953

②FC先行、FC2次先行での公演日ごとの申し込み人数を選択してください。

	1人	2人(申込者)	2人(同行者)	申込んでない	合計
FC1次4/1	868	711	178	196	1,953
FC1次4/2	841	684	169	259	1,953
FC2次4/1	550	464	103	836	1,953
FC2次4/2	537	442	111	863	1,953

③FC先行、FC2次先行での公演日ごとの支払い方法を選択してください。

	クレジットカード	コンビニ(ローソン)	申込んでない	合計
FC1次4/1	1,274	476	203	1,953
FC1次4/2	1,225	459	269	1,953
FC2次4/1	861	258	834	1,953
FC2次4/2	836	263	854	1,953

④性別

	男	女	合計
性別	1,648	305	1,953
割合	84.4%	15.6%

⑤年齢

	～18	～22	～29	～35	39	44	～49	50以上	合計
年齢	186	517	509	196	108	123	142	172	1,953
割合	9.5%	26.5%	26.1%	10.0%	5.5%	6.3%	7.3%	8.8%
累計	9.5%	36.0%	62.1%	72.1%	77.6%	83.9%	91.2%	100.0%

⑥FC歴

	0.5年	1年	1.5年	2年	2.5年	3年	3.5年	4年	4年以上	合計
ファンクラブ暦	260	291	304	199	163	181	190	246	14	1,848
割合	13.3%	15.7%	16.5%	10.8%	8.8%	9.8%	10.3%	13.3%	0.8%	100.0%
累計	13.3%	29.1%	45.5%	56.3%	65.1%	74.9%	85.2%	98.5%	99.2%

⑦都道府県

NO	都道府県	人口	回答数	人口比（100万人）
1	山梨県	801,620	27	33.7
2	東京都	14,040,732	424	30.2
3	神奈川県	9,232,794	267	28.9
4	埼玉県	7,337,173	180	24.5
5	千葉県	6,275,278	147	23.4
6	茨城県	2,841,084	58	20.4
7	愛知県	7,497,521	141	18.8
8	群馬県	1,913,236	33	17.2
9	栃木県	1,908,380	31	16.2
10	京都府	2,550,404	40	15.7
11	岐阜県	1,945,350	30	15.4
12	長野県	2,020,497	31	15.3
13	石川県	1,117,827	16	14.3
14	静岡県	3,582,194	49	13.7
15	滋賀県	1,409,388	18	12.8
16	新潟県	2,152,664	25	11.6
17	大阪府	8,787,414	99	11.3
18	宮城県	2,279,554	25	11.0
19	三重県	1,742,703	19	10.9
20	山形県	1,040,971	10	9.6
21	鳥取県	543,615	5	9.2
22	奈良県	1,305,981	12	9.2
23	兵庫県	5,403,823	49	9.1
24	富山県	1,016,323	9	8.9
25	山口県	1,312,950	11	8.4
26	広島県	2,759,702	20	7.2
27	岩手県	1,180,512	8	6.8
28	福井県	752,976	5	6.6
29	佐賀県	800,511	5	6.2
30	北海道	5,139,522	32	6.2
31	島根県	657,842	4	6.1
32	岡山県	1,862,012	11	5.9
33	福岡県	5,117,967	30	5.9
34	徳島県	703,745	4	5.7
35	鹿児島県	1,562,310	8	5.1
36	福島県	1,789,221	9	5.0
37	青森県	1,204,372	6	5.0
38	熊本県	1,717,766	8	4.7
39	愛媛県	1,306,165	6	4.6
40	高知県	675,710	3	4.4
41	長崎県	1,282,571	5	3.9
42	沖縄県	1,468,634	5	3.4
43	秋田県	929,937	3	3.2
44	香川県	933,758	3	3.2
45	宮崎県	1,051,771	3	2.9
46	和歌山県	903,172	2	2.2
47	大分県	1,106,294	1	0.9

⑧日ごろの行い

	はい	いいえ	合計
毎日ゴミを拾っていますか	283	1,670	1,953
御朱印をあつめていますか	267	1,686	1,953

多項ロジット分析

FC1次初日（当選１，落選０）を多項ロジット分析したところ、単独申込（single）とクレカ申込（card)と、ファンクラブ加入歴(fc)が有意つまり、FC先行は、ファンクラブ歴の長い人が、単独で、クレジットカードを利用して申し込むと、当たりやすいようです

散布図にすると200日と500日当たりで当選率が変わっているような感じです（別途分析します）

参考：Rコマンド

元デー→fc.csv

tichet:当選が1落選が2（申し込みせずは利用せず）
single：単独申込が1、連番申込が0
card：クレジットカード利用が1、コンビニ払いが0
male：男性が1、女性が0
age:25歳未満が1、25歳以上が0
fc:FC加入年数（日にちを365で割ったもの）
gomi:ゴミ集めにはいが1、いいえが0
goshuin:御朱印あつめにはいが1、いいえが0

①最初にパッケージのインストール
install.packages("mlogit")

②パッケージのロード
library("mlogit")
require(car)

③データの取り込みと分析
data <- read.csv("fc.csv")
data2 <- mlogit.data(data, shape="wide", choice="tichet")
result <- mlogit(tichet~0|single+card+male+age+fc+gomi+goshuin|0,data2)
summary(result)

④多重共線性の確認用
result2 <- lm(formula = tichet ~ single+card+male+age+fc+gomi+goshuin, data = data)
summary(result2)
vif(result2)