Wolfram Language™

Arregle errores de ingreso de datos en un rastreador de resultados de votación

Ahora usted puede eliminar entradas de archivos de datos.

Cree un archivo de datos para almacenar resultados de elección en cuanto ingresan.

In[1]:=

votes = CreateDatabin[]

Out[1]=

Expanda el archivo de datos y grafique la fracción del voto para cada selección hecha.

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]=

El punto de datos ingresado de forma manual accidentalmente cambia los valores de dos candidatos, y pueden ser vistos como una intersección incorrecta en el gráfico.

In[4]:=

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[4]=

Corrija el archivo de datos eliminando la entrada más reciente y agregando la entrada correcta.

In[5]:=

DatabinRemove[votes, -1];

In[6]:=

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

In[7]:=

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[7]=