用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 2005 1154638713 2006 1172373788 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函数绘制散点图。首先将数据存储在一个列表中，然后使用ListPlot函数进行绘图。

代码如下：

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}, {2005, 1154638713}, {2006, 1172373788}, {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[0.02], PlotTheme -> "Detailed", Frame -> True, FrameLabel -> {"Year", "Data"}]

运行代码后，可以得到以下散点图：

散点图中横坐标表示年份，纵坐标表示数据。可以看出数据随着时间的推移呈现出逐年增长的趋势。