用mathematica绘制二维散点图，1991 5382656065 1992 5470276947 1993 5556722537 1994 5642128764 1995 5726801833 1996 5811624986 1997 5896077736 1998 5979730356 1999 6062281732 2000 6144322697 2001 6226339538 2002 6308092739 2003 6389383352 2004 6470821068 2007 6717641730 2008 6801408360 2009 6885490816 2010 6969631901 2011 7053533350 2012 7140895722 2013 7229184551 2014 7317508753 2015 7404910892 2016 7491934113 2017 7578157615 2018 7661776338 2019 7742681934 2020 7820981524

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

data = {{1991, 5382656065}, {1992, 5470276947}, {1993, 5556722537}, {1994, 5642128764}, {1995, 5726801833}, {1996, 5811624986}, {1997, 5896077736}, {1998, 5979730356}, {1999, 6062281732}, {2000, 6144322697}, {2001, 6226339538}, {2002, 6308092739}, {2003, 6389383352}, {2004, 6470821068}, {2007, 6717641730}, {2008, 6801408360}, {2009, 6885490816}, {2010, 6969631901}, {2011, 7053533350}, {2012, 7140895722}, {2013, 7229184551}, {2014, 7317508753}, {2015, 7404910892}, {2016, 7491934113}, {2017, 7578157615}, {2018, 7661776338}, {2019, 7742681934}, {2020, 7820981524}};
ListPlot[data, PlotStyle -> PointSize[Large], AxesLabel -> {"Year", "Value"}, PlotRange -> All]

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