「ひな誕祭当落アンケート1」の編集履歴（バックアップ）一覧はこちら
「ひな誕祭当落アンケート1」(2023/02/04 (土) 22:47:14) の最新版変更点
追加された行は緑色になります。
削除された行は赤色になります。
作成中
*単純集計
①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先行は、ファンクラブ歴の長い人が、単独で、クレジットカードを利用して申し込むと、当たりやすいようです
&image(2023y02m04d_175743542.jpg,https://img.atwiki.jp/hinatazaka46liveinfo/attach/31/91/2023y02m04d_175743542.jpg,width=500)
散布図にすると200日と500日当たりで当選率が変わっているような感じです（別途分析します）
&image(2023y02m04d_222514831.jpg)
参考：Rコマンド
元デー→[[fc.csv>>https://img.atwiki.jp/hinatazaka46liveinfo/attach/31/94/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)
----
*クロス集計
**FC1次先行とFC2次先行の関係
FC1次先行で当選すると、FC2次先行はほぼ当たらないようです
&image(fc1.jpg,,width=600)
&image(fc2.jpg,,width=600)
&image(ticket.jpg,,width=600)
**単独申し込みと連番申し込みの当選率
単独申し込みの方が当選率が上の様です
&image(single.jpg,,width=600)
&image(single2.jpg,,width=600)
*ＦC2次での支払い別当選率
FC2次ではクレジットカード払いとコンビニ払いでは当選率に差はありません
&image(siharai.jpg)
*ゴミ拾いと御朱印の御利益
まだまだゴミが拾い足りないようです。
&image(gomi.jpg)
&image(goshuin.jpg)
作成中
*単純集計
①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先行は、ファンクラブ歴の長い人が、単独で、クレジットカードを利用して申し込むと、当たりやすいようです
&image(2023y02m04d_175743542.jpg,https://img.atwiki.jp/hinatazaka46liveinfo/attach/31/91/2023y02m04d_175743542.jpg,width=500)
散布図にすると200日と500日当たりで当選率が変わっているような感じです（別途分析します）
&image(2023y02m04d_222514831.jpg,,width=600)
参考：Rコマンド
元デー→[[fc.csv>>https://img.atwiki.jp/hinatazaka46liveinfo/attach/31/94/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)
----
*クロス集計
**FC1次先行とFC2次先行の関係
FC1次先行で当選すると、FC2次先行はほぼ当たらないようです
&image(fc1.jpg,,width=600)
&image(fc2.jpg,,width=600)
&image(ticket.jpg,,width=600)
**単独申し込みと連番申し込みの当選率
単独申し込みの方が当選率が上の様です
&image(single.jpg,,width=600)
&image(single2.jpg,,width=600)
*ＦC2次での支払い別当選率
FC2次ではクレジットカード払いとコンビニ払いでは当選率に差はありません
&image(siharai.jpg)
*ゴミ拾いと御朱印の御利益
まだまだゴミが拾い足りないようです。
&image(gomi.jpg)
&image(goshuin.jpg)
- ...
- 102
- 103
- 104
- ...
-
- 散布図にすると200日と500日当たりで当選率が変わっているような感じです（別途分析します）
- &image(2023y02m04d_222514831.jpg)
-
-
- ...
- 102
- 103
- 104
- ...
-
- 散布図にすると200日と500日当たりで当選率が変わっているような感じです（別途分析します）
- &image(2023y02m04d_222514831.jpg,,width=600)
-
-
