-
Notifications
You must be signed in to change notification settings - Fork 0
/
components.R
159 lines (155 loc) · 7.04 KB
/
components.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
i18n <- Translator$new(translation_json_path = "translations/translations.json")
i18n$set_translation_language('ja')
Input_Pane <- sidebarPanel(
shiny.i18n::usei18n(i18n),
textInput('NewParty',
i18n$t("新しい政党を入力 (コンマ区切り)"),
"Party1, Party2, Party3"),
textInput('NewRegion',
i18n$t("新しい地域を入力 (コンマ区切り)"),
"District1, District2"),
actionButton("Add_Table", i18n$t("入力欄生成")),
selectInput("Sample",
i18n$t("サンプル・データ"),
list(
"Japanese" = c(
"Upper (2019)" = "Japan_Upper_2019",
"Lower (2021)" = "Japan_Lower_2021",
"Lower (2017)" = "Japan_Lower_2017",
"Lower (2014)" = "Japan_Lower_2014",
"Lower (2012)" = "Japan_Lower_2012",
"Lower (2009)" = "Japan_Lower_2009"
),
"Korea" = c(
"General Election (2016)" = "Korea_Lower_2016",
"General Election (2012)" = "Korea_Lower_2012",
"General Election (2008)" = "Korea_Lower_2008",
"General Election (2004)" = "Korea_Lower_2004"
),
"Census" = c(
"Japan (2015)" = "Japan_Census_2015",
"Japan (1970)" = "Japan_Census_1970",
"Japan (1945)" = "Japan_Census_1945",
"Japan (1920)" = "Japan_Census_1920",
"US (2020)" = "US_Census_2020"
)
)
),
actionButton("Load_Sample", i18n$t("サンプル・データ読み込み")),
sliderInput("Threshold",
i18n$t("閾値 (0〜1)"),
value = 0, min = 0, max = 1,
step = 0.01),
selectInput("method",
i18n$t("議席配分方式"),
list(
"最高平均法" = c(
"D’Hondt (Jefferson)" = "dt",
"Sainte-Laguë (Webster)" = "sl",
"Modified Sainte-Laguë" = "msl",
"Danish" = "danish",
"Imperiali" = "imperiali",
"Huntington-Hill" = "hh",
"Dean" = "dean",
"Adams's" = "adams"
),
"最大剰余法" = c(
"Hare–Niemeyer" = "hare",
"Droop" = "droop",
"Imperiali Quota" = "imperialiQ"
)
)
),
actionButton("Calculate", i18n$t("計算/再計算"))
)
Main_Pane <- mainPanel(
h3(i18n$t("データ入力")),
rHandsontableOutput("InputTable"),
hr(),
h3(i18n$t("配分結果 (得票数+議席数)")),
downloadButton('Download1',i18n$t("表ダウンロード (UTF-8)")),
downloadButton('Download2',i18n$t("表ダウンロード (Shift-JIS)")),
tableOutput("Result1"),
#dataTableOutput("Result1"),
hr(),
h3(i18n$t("配分結果 (得票率+議席率)")),
tableOutput("Result2"),
#dataTableOutput("Result2"),
hr(),
h3(i18n$t("非比例性指標など")),
tableOutput("Summary"),
hr(),
h3(i18n$t("図")),
plotlyOutput("Plot")
)
Help_Page <- tabPanel(
i18n$t("使い方"),
h2("PRcalc for Webの使い方"),
tags$ol(
tags$li(tags$b("Step1: "), "政党名を入力します。"),
tags$ul(tags$li("複数の政党を入力する場合、政党名をコンマ（「、」 or 「,」）で区切ってください。")),
tags$li(tags$b("Step2: "), "地域名を入力します。"),
tags$ul(
tags$li("単一ブロックの場合でも地域名を入力してください（「全国」など）。"),
tags$li("複数の地域を入力する場合、地域名をコンマ（「、」 or 「,」）で区切ってください。")),
tags$li(tags$b("Step3: "), "「入力欄生成」ボタンをクリックします。"),
tags$li(tags$b("Step4: "), "各政党の得票数を入力します。最上行は比例区の定数を入力します。"),
tags$ul(
tags$li("Excelなどから直接貼り付けることも可能です。"),
tags$li("Step1~3の過程を省略し、サンプル・データの読み込みも可能です。読み込み後、データの修正も可能です。")
),
tags$li(tags$b("Step5: "), "阻止条項の閾値と議席期配分方式を選択します。"),
tags$li(tags$b("Step6: "), "「計算/再計算」ボタンをクリックします。"),
tags$li(tags$b("Step7: "), "データ修正、閾値の修正、議席配分方式を変更した場合、改めて「計算/再計算」ボタンをクリックしてください。")
),
hr(),
h2("サンプルデータを使う際の注意点"),
tags$ul(
tags$li("日本"),
tags$ul(
tags$li("共通: 得票数が小数点の場合、四捨五入しました。"),
tags$li("衆院選 (2017): 実際の選挙結果と合わないブロック（東海）があります。これは立憲民主党の配分議席数より名簿上の候補者が少なかったため、自民党に議席が回ったからです。"),
tags$li("衆院選 (2021): 実際の選挙結果と合わないブロック（東海）があります。これはれいわ新選組の重複立候補者はいずれも小選挙区で得票率10%未満であり、公明党に議席が回ったからです。")
),
tags$li("韓国"),
tags$ul(
tags$li("総選挙 (2016): 泡沫政党が多いため、得票数10万未満は除外しております（阻止条項: 3%）。")
),
tags$li("国勢調査"),
tags$ul(
tags$li("アメリカ (2020): 50州のみ（ワシントンDC、プエルトリコなどは除外）")
)
),
hr(),
h2("各種指標について"),
tags$ul(
tags$li(tags$b("有効政党数: "), 'Laakso, Markku and Rein Taagepera (1979). ""Effective" Number of Parties: A Measure with Application to West Europe". Comparative Political Studies. 12 (1): 3–27.'),
tags$li(tags$b("非比例性指数: "), 'Gallagher, Michael (1991). "Proportionality, Disproportionality and Electoral Systems". Electoral Studies. 10: 33–51.'),
),
hr(),
h2("今後の予定"),
tags$ul(
tags$li("サンプル・データの追加"),
tags$li("{ggplot2}から{plotly}へ移行"),
tags$li("レイアウトの変更"),
tags$li("その他")
)
)
About_Author <- tabPanel(
i18n$t("作成者について"),
tags$img(src = "Song.png", width = 250),
h3("Jaehyun Song, Ph.D."),
tags$ul(
tags$li(tags$b("Affiliation: "), "Faculty of Informatics, Kansai University, Japan"),
tags$li(tags$b("Position: "), "Associate Professor")),
hr(),
h3("Contact Information"),
tags$ul(
tags$li(tags$b("Homepage: "),a(href = "https://www.jaysong.net",
"https://www.jaysong.net")),
tags$li(tags$b("E-mail: "), a(href = "mailto:[email protected]",
"[email protected]")),
tags$li(tags$b("Github: "), a(href = "https://github.com/JaehyunSong",
"https://github.com/JaehyunSong"))
)
)