作mathematica二维散点图，数据为1991 16.2426018 1992 15.67573583 1993 15.26899111 1994 14.94004192 1995 14.63764621 1996 14.41361957 1997 14.18870151 1998 13.80628904 1999 13.48602689 2000 13.34812859 2001 13.13257272 2002 12.87950422 2003 12.65861276 2004 12.58567501 2005 12.45747009 2006 12.36705788 2007 12.36601964 2008 12.30560137 2009 12.24483866 2010 12.12986208 2011 12.33340833 2012 12.50238756 2013 12.06915753 2014 12.06166229 2015 11.54165973 2016 11.66066244 2017 11.20479356 2018 10.68985154 2019 10.3460605 2020 9.193009541

可以使用ListPlot函数来制作二维散点图，具体代码如下：

data = {{1991, 16.2426018}, {1992, 15.67573583}, {1993, 15.26899111}, {1994, 14.94004192}, {1995, 14.63764621}, {1996, 14.41361957}, {1997, 14.18870151}, {1998, 13.80628904}, {1999, 13.48602689}, {2000, 13.34812859}, {2001, 13.13257272}, {2002, 12.87950422}, {2003, 12.65861276}, {2004, 12.58567501}, {2005, 12.45747009}, {2006, 12.36705788}, {2007, 12.36601964}, {2008, 12.30560137}, {2009, 12.24483866}, {2010, 12.12986208}, {2011, 12.33340833}, {2012, 12.50238756}, {2013, 12.06915753}, {2014, 12.06166229}, {2015, 11.54165973}, {2016, 11.66066244}, {2017, 11.20479356}, {2018, 10.68985154}, {2019, 10.3460605}, {2020, 9.193009541}};
ListPlot[data, PlotStyle -> PointSize[0.02], AxesLabel -> {"Year", "Value"}]

运行上面的代码将会制作出一个散点图，x轴表示年份，y轴表示数据值。同时，通过设置PlotStyle -> PointSize[0.02]可以调整散点的大小，AxesLabel -> {"Year", "Value"}设置坐标轴标签。