用mathematica绘制二维散点图，1991 888941756 1992 907574049 1993 926351297 1994 945261958 1995 964279129 1996 983281218 1997 1002335230 1998 1021434576 1999 1040500054 2000 1059633675 2001 1078970907 2002 1098313039 2003 1117415123 2004 1136264583 2007 1189691809 2008 1206734806 2009 1223640160 2010 1240613620 2011 1257621191 2012 1274487215 2013 1291132063 2014 1307246509 2015 1322866505 2016 1338636340 2017 1354195680 2018 1369003306 2019 1383112050 2020 1396387127

以下是用Mathematica绘制二维散点图的代码：

data = {{1991, 888941756}, {1992, 907574049}, {1993, 926351297}, {1994, 945261958}, {1995, 964279129}, {1996, 983281218}, {1997, 1002335230}, {1998, 1021434576}, {1999, 1040500054}, {2000, 1059633675}, {2001, 1078970907}, {2002, 1098313039}, {2003, 1117415123}, {2004, 1136264583}, {2007, 1189691809}, {2008, 1206734806}, {2009, 1223640160}, {2010, 1240613620}, {2011, 1257621191}, {2012, 1274487215}, {2013, 1291132063}, {2014, 1307246509}, {2015, 1322866505}, {2016, 1338636340}, {2017, 1354195680}, {2018, 1369003306}, {2019, 1383112050}, {2020, 1396387127}};
ListPlot[data, PlotStyle -> PointSize[Large], AxesLabel -> {"Year", "Value"}, PlotRange -> All]

其中，`data`是包含散点数据的列表。`ListPlot`函数用于绘制散点图。`PlotStyle -> PointSize[Large]`设置散点的大小。`AxesLabel -> {"Year", "Value"}`设置坐标轴标签。`PlotRange -> All`设置坐标轴范围为数据的全部。运行代码后，将会绘制出对应数据的散点图。