Ada hal yang menarik tentang hasil pemilu Amerika th 2020, pertarungan perebutan suara yang berlangsung ketat, hasilnya banyak menimbulkan perdebatan. Salah satu contohnya adalah hasil suara di Neg bagian Pennsylvania.
Beberapa analisa hasilnya menyatakan bahwa suara yang didapat Biden mengandung fraud karena tidak memenuhi Hukum Benford.
Dapat dilihat di grafik "Biden votes" tidak mengikuti Hukum Benford - kasat mata hasilnya tidak mengikuti lengkungan grafik, sementara di grafik "Trump votes", hasilnya mengikuti lengkungan Benford.
Pertanyaannya benarkah suara Biden mengandung fraud? Jawabannya baca di bagian conclusion.
data_county <- read.csv("D:/BENFORD-LAW-USA/allegheny_county_pa.csv")
head(data_county,5)
## County Registered.Voters Election.Day Absentee Total_Votes_biden
## 1 ALEPPO 1388 166 351 517
## 2 ASPINWALL DIST 1 861 209 253 462
## 3 ASPINWALL DIST 2 572 143 170 313
## 4 ASPINWALL DIST 3 856 200 265 465
## 5 AVALON WARD 1 1108 238 269 507
## Election.Day.1 Absentee.1 Total_Votes_trump Election.Day.2 Absentee.2
## 1 347 152 499 6 3
## 2 184 27 211 2 4
## 3 110 16 126 3 0
## 4 150 43 193 7 4
## 5 211 33 244 6 8
## Total.Votes Election.Day.3 Absentee.3 Total.Votes.1 Total
## 1 9 2 2 4 1029
## 2 6 1 3 4 683
## 3 3 1 0 1 443
## 4 11 2 0 2 671
## 5 14 2 1 3 768
Benford Law
Biden votes
trend_biden <- benford(data_county$Total_Votes_biden,number.of.digits = 1, discrete = T, sign = "positive")
plot(trend_biden)
Trump Votes
trend_trump <- benford(data_county$Total_Votes_trump,number.of.digits = 1, discrete = T, sign = "positive")
plot(trend_trump)
Benford analysis use Grocery data
data_grocery <- read.csv("D:/BENFORD-LAW-USA/g1000.csv")
head(data_grocery,5)
## X Folio Hora Total Pago Cajero
## 1 1 LBVT18010004435 5/1/2018 12:36 1121.2 $1,121.20 MAYTE
## 2 2 LBVT18010004436 5/1/2018 12:37 18.5 $20.00 MAYTE
## 3 3 LBVT18010004437 5/1/2018 12:38 160.0 $200.00 MAYTE
## 4 4 LBVT18010004438 5/1/2018 12:47 397.5 $397.50 MAYTE
## 5 5 LBVT18010004439 5/1/2018 12:48 22.0 $50.00 MAYTE
trend_Total_sales <- benford(data_grocery$Total,number.of.digits = 1, discrete = T, sign = "positive")
plot(trend_Total_sales)
Benford Analysis use Census data
load("D:/BENFORD-LAW-USA/benford.analysis-master/data/census.2000_2010.RDA")
head(census.2000_2010,5)
## fips name area pop.2000 pop.2010
## 1 1001 Autauga County 594.44 43671 54571
## 2 1003 Baldwin County 1589.78 140415 182265
## 3 1005 Barbour County 884.88 29038 27457
## 4 1007 Bibb County 622.58 20826 22915
## 5 1009 Blount County 644.78 51024 57322
trend_pop2010 <- benford(census.2000_2010$pop.2010,discrete = T, sign = "positive")
plot(trend_pop2010)
Conclusion
1. Benford analysis use Grocery data
2. Benford analysis use Census data
3. Penjelasan mengenai analisa suara Bidden:
Misalkan jumlah suara yang diperebutkan kedua pihak adalah TOTAL suara.
Trump mendapakan suara sejumlah X, tentu perolehan Biden adalah suara TOTAL-X,
Katakanlah misal ada Total suara 1000, dan Trump dapat 195 suara,
jadi Biden dapat sisanya yaitu 1000-195=805.
Tentu pada penghitungan suara Trump akan dimulai dengan angka satu(akan mengikuti lengkungan
grafik Benford), karena hasilnya 195, sementara suara Bidden tidak bisa mengikuti
Hukum Benford karena yang keluar pertama bukan angka 1(tidak mengikuti lengkungan grafik benford)
Jadi tidak terbukti suara Biden di Pennsylvania adalah Fraud.
4. Melihat contoh data 1 dan 2, hasilnya mengikuti Hukum Benford(lihat grafiknya),
karena datanya independend, artinya misal dalam data Grocery,orang bebas membeli,
begitu juga dalam data census.
5.Dengan penjelasan yang sederhana di atas tidak terbukti suara Biden mengandung Fraud