Wolfram Language™

Fehlerhafte Dateneinträge in einem Wahlergebnis-Tracker korrigieren

Databin-Einträge können nun auch entfernt werden.

Erstellen Sie einen Databin, in dem nach und nach eintreffende Wahlergebnisse gespeichert werden.

In[1]:=

votes = CreateDatabin[]

Out[1]=

Befüllen Sie den Databin und plotten Sie die Stimmenanzahl für jede zur Wahl stehende Option.

In[2]:=

DatabinUpload[votes, data = {<|"Alpha" -> 34, "Beta" -> 12, "Gamma" -> 7|>, <| "Alpha" -> 44, "Beta" -> 19, "Gamma" -> 9|>, <|"Alpha" -> 52, "Beta" -> 19, "Gamma" -> 11|>, <|"Alpha" -> 68, "Beta" -> 22, "Gamma" -> 18|>, <|"Alpha" -> 78, "Beta" -> 24, "Gamma" -> 20|>}];

In[3]:=

ListLinePlot[ Merge[Map[Map[Function[val, Round[100.0*val/Total[Values[#]]]], #] &, votes["Entries"]], Identity], PlotRange -> {0, All}, PlotLabel -> "Percentage of Vote as it Came In"]

Out[3]=

Bei einem manuell eingegebenen Datenpunkt werden versehentlich die Werte von zwei Kandidaten vertauscht. Im Diagramm ergibt dies nun nun fälschlicherweise die Überschneidung von zwei Linien.

In[4]:=

DatabinAdd[votes, <|"Alpha" -> 86, "Beta" -> 22, "Gamma" -> 26|>];

In[5]:=

ListLinePlot[ Merge[Map[Map[Function[val, Round[100.0*val/Total[Values[#]]]], #] &, votes["Entries"]], Identity], PlotRange -> {0, All}, PlotLabel -> "Percentage of Vote as it Came In"]

Out[5]=

Korrigieren Sie den Databin, indem Sie den zuletzt hinzugefügten Eintrag entfernen und den korrekten Eintrag hinzufügen.

In[6]:=

DatabinRemove[votes, -1];

In[7]:=

DatabinAdd[votes, <|"Alpha" -> 86, "Beta" -> 26, "Gamma" -> 22|>];

In[8]:=

ListLinePlot[ Merge[Map[Map[Function[val, Round[100.0*val/Total[Values[#]]]], #] &, votes["Entries"]], Identity], PlotRange -> {0, All}, PlotLabel -> "Percentage of Vote as it Came In"]

Out[8]=