Skip to content

Instantly share code, notes, and snippets.

@SwampThingPaul

SwampThingPaul/ggridges_example.r

Created May 29, 2020 12:21
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save SwampThingPaul/1274f7f382702cb913c1aaae55bf459e to your computer and use it in GitHub Desktop.
Save SwampThingPaul/1274f7f382702cb913c1aaae55bf459e to your computer and use it in GitHub Desktop.
Download ZIP
A working example with data of ggridges
Raw
ggridges_example.r
## A working example with data of ggridges
# Libraries ---------------------------------------------------------------
if(!require(ggplot2)) { install.packages('ggplot2') } ; library(ggplot2)
if(!require(ggridges)) { install.packages('ggridges') } ; library(ggridges)
# Data --------------------------------------------------------------------
dat=data.frame(FedWY=c(1979, 1979, 1979, 1979, 1979, 1979, 1979, 1979, 1979,
1979, 1979, 1979, 1979, 1979, 1979, 1979, 1979, 1979, 1979, 1979,
1979, 1979, 1979, 1979, 1979, 1979, 1980, 1980, 1980, 1980, 1980,
1980, 1980, 1980, 1980, 1980, 1980, 1980, 1980, 1980, 1980, 1980,
1980, 1980, 1980, 1980, 1981, 1981, 1981, 1981, 1981, 1981, 1981,
1981, 1981, 1981, 1981, 1981, 1981, 1981, 1981, 1981, 1981, 1981,
1981, 1981, 1981, 1981, 1981, 1981, 1982, 1982, 1982, 1982, 1982,
1982, 1982, 1982, 1982, 1982, 1982, 1982, 1982, 1982, 1982, 1982,
1982, 1982, 1982, 1982, 1982, 1983, 1983, 1983, 1983, 1983, 1983,
1983, 1983, 1983, 1983, 1983, 1983, 1983, 1983, 1983, 1983, 1983,
1983, 1983, 1983, 1983, 1983, 1984, 1984, 1984, 1984, 1984, 1984,
1984, 1984, 1984, 1984, 1984, 1984, 1984, 1984, 1984, 1984, 1984,
1984, 1984, 1984, 1984, 1984, 1984, 1984, 1984, 1985, 1985, 1985,
1985, 1985, 1985, 1985, 1985, 1985, 1985, 1985, 1985, 1985, 1985,
1985, 1985, 1985, 1985, 1985, 1986, 1986, 1986, 1986, 1986, 1986,
1986, 1986, 1986, 1986, 1986, 1986, 1986, 1986, 1986, 1986, 1986,
1986, 1986, 1986, 1986, 1986, 1986, 1986, 1986, 1986, 1987, 1987,
1987, 1987, 1987, 1987, 1987, 1987, 1987, 1987, 1987, 1987, 1987,
1987, 1987, 1987, 1987, 1988, 1988, 1988, 1988, 1988, 1988, 1988,
1988, 1988, 1988, 1988, 1988, 1988, 1988, 1988, 1988, 1988, 1988,
1988, 1988, 1988, 1988, 1988, 1988, 1988, 1988, 1988, 1989, 1989,
1989, 1989, 1989, 1989, 1989, 1989, 1990, 1990, 1990, 1990, 1990,
1990, 1990, 1990, 1990, 1990, 1990, 1990, 1990, 1990, 1991, 1991,
1991, 1991, 1991, 1991, 1991, 1991, 1991, 1991, 1991, 1991, 1991,
1991, 1991, 1991, 1991, 1991, 1991, 1991, 1991, 1991, 1991, 1992,
1992, 1992, 1992, 1992, 1992, 1992, 1992, 1992, 1992, 1992, 1992,
1992, 1992, 1992, 1992, 1992, 1992, 1992, 1992, 1992, 1992, 1992,
1992, 1992, 1993, 1993, 1993, 1993, 1993, 1993, 1993, 1993, 1993,
1993, 1993, 1993, 1993, 1993, 1993, 1993, 1993, 1993, 1993, 1993,
1993, 1993, 1993, 1993, 1994, 1994, 1994, 1994, 1994, 1994, 1994,
1994, 1994, 1994, 1994, 1994, 1994, 1994, 1994, 1994, 1994, 1994,
1994, 1994, 1994, 1994, 1994, 1994, 1994, 1994, 1995, 1995, 1995,
1995, 1995, 1995, 1995, 1995, 1995, 1995, 1995, 1995, 1995, 1995,
1995, 1995, 1995, 1995, 1995, 1995, 1995, 1995, 1995, 1995, 1995,
1996, 1996, 1996, 1996, 1996, 1996, 1996, 1996, 1996, 1996, 1996,
1996, 1996, 1996, 1996, 1996, 1996, 1996, 1996, 1996, 1996, 1996,
1996, 1996, 1997, 1997, 1997, 1997, 1997, 1997, 1997, 1997, 1997,
1997, 1997, 1997, 1997, 1997, 1997, 1997, 1997, 1997, 1997, 1997,
1997, 1997, 1998, 1998, 1998, 1998, 1998, 1998, 1998, 1998, 1998,
1998, 1998, 1998, 1998, 1998, 1998, 1998, 1998, 1998, 1998, 1998,
1998, 1998, 1998, 1998, 1998, 1998, 1998, 1998, 1999, 1999, 1999,
1999, 1999, 1999, 1999, 1999, 1999, 1999, 1999, 1999, 1999, 1999,
1999, 1999, 1999, 1999, 1999, 1999, 1999, 1999, 1999, 2000, 2000,
2000, 2000, 2000, 2000, 2000, 2000, 2000, 2000, 2000, 2000, 2000,
2000, 2000, 2000, 2000, 2000, 2000, 2000, 2000, 2000, 2000, 2000,
2000, 2000, 2000, 2000, 2000, 2001, 2001, 2001, 2001, 2001, 2001,
2001, 2001, 2001, 2001, 2001, 2001, 2001, 2001, 2001, 2001, 2001,
2001, 2001, 2002, 2002, 2002, 2002, 2002, 2002, 2002, 2002, 2002,
2002, 2002, 2002, 2002, 2002, 2002, 2002, 2002, 2002, 2002, 2002,
2002, 2002, 2002, 2003, 2003, 2003, 2003, 2003, 2003, 2003, 2003,
2003, 2003, 2003, 2003, 2003, 2003, 2003, 2003, 2003, 2003, 2003,
2003, 2003, 2003, 2003, 2003, 2003, 2003, 2004, 2004, 2004, 2004,
2004, 2004, 2004, 2004, 2004, 2004, 2004, 2004, 2004, 2004, 2004,
2004, 2004, 2004, 2004, 2004, 2005, 2005, 2005, 2005, 2005, 2005,
2005, 2005, 2005, 2005, 2005, 2005, 2005, 2005, 2005, 2005, 2005,
2005, 2005, 2005, 2005, 2006, 2006, 2006, 2006, 2006, 2006, 2006,
2006, 2006, 2006, 2006, 2006, 2006, 2006, 2006, 2006, 2006, 2006,
2006, 2006, 2007, 2007, 2007, 2007, 2007, 2007, 2007, 2007, 2007,
2007, 2007, 2007, 2007, 2007, 2007, 2007, 2008, 2008, 2008, 2008,
2008, 2008, 2008, 2008, 2008, 2008, 2008, 2008, 2008, 2008, 2008,
2008, 2008, 2008, 2008, 2009, 2009, 2009, 2009, 2009, 2009, 2009,
2009, 2009, 2009, 2009, 2009, 2009, 2009, 2009, 2009, 2009, 2009,
2009, 2009, 2009, 2009, 2009, 2010, 2010, 2010, 2010, 2010, 2010,
2010, 2010, 2010, 2010, 2010, 2010, 2010, 2010, 2010, 2010, 2010,
2010, 2010, 2010, 2010, 2010, 2010, 2010, 2010, 2010, 2011, 2011,
2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011, 2011,
2011, 2011, 2011, 2011, 2011, 2011, 2012, 2012, 2012, 2012, 2012,
2012, 2012, 2012, 2012, 2012, 2012, 2012, 2012, 2012, 2012, 2012,
2012, 2012, 2012, 2012, 2012, 2012, 2012, 2012, 2012, 2013, 2013,
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013,
2013, 2014, 2014, 2014, 2014, 2014, 2014, 2014, 2014, 2014, 2014,
2014, 2014, 2014, 2014, 2014, 2014, 2014, 2014, 2014, 2014, 2014,
2014, 2015, 2015, 2015, 2015, 2015, 2015, 2015, 2015, 2015, 2015,
2015, 2015, 2015, 2016, 2016, 2016, 2016, 2016, 2016, 2016, 2016,
2016, 2016, 2016, 2016, 2016, 2016, 2016, 2016, 2016, 2016, 2016,
2016, 2016, 2016, 2016, 2016, 2016, 2016, 2017, 2017, 2017, 2017,
2017, 2017, 2017, 2017, 2017, 2017, 2017, 2017, 2017, 2017, 2017,
2017, 2017, 2017, 2017, 2017, 2017, 2017, 2017, 2017, 2017, 2018,
2018, 2018, 2018, 2018, 2018, 2018, 2018, 2018, 2018, 2018, 2018,
2018, 2018, 2018, 2018, 2018, 2018, 2018, 2018, 2018, 2018, 2018,
2018, 2018, 2018),
TPFWM=c(5.32, 5.58, 3, 3.45, 5.32, 5.31, 3, 1, 6, 7.24, 21, 28,
17, 12, 15.74, 98, 25.09, 18, 12, 9, 15, 18, 11, 17.88, 15.38,
7.45, 12.83, 8.87, 17.04, 6.78, 6.58, 4, 5, 7, 7.99, 2.52, 6.58,
8.22, 8.48, 11, 14, 9, 15, 20, 16.44, 68.96, 8.34, 8, 13.33,
6, 10, 5, 6, 16, 11, 10, 14, 9, 10, 31.04, 41, 29, 35, 20, 26,
18, 22, 45.88, 10.92, 12.14, 8.05, 4, 8.28, 9.96, 8.18, 10.81,
14.57, 8.05, 12.47, 23, 28.71, 30, 40, 15, 9.21, 8.01, 7.07,
6.93, 9.2, 5.59, 7.7, 3.98, 3.85, 4.55, 5.02, 4.66, 2, 5.47,
2.97, 3.83, 3.96, 2.94, 5.43, 9.23, 11.8, 16.35, 14.25, 10.12,
10.38, 10.57, 12.6, 28.59, 9.71, 4.61, 6.38, 8.33, 10.01, 7.27,
5.24, 7.16, 7.98, 5.83, 3.29, 9.52, 5.61, 14.71, 18.66, 21.88,
26.02, 19.49, 10.78, 24.32, 18, 4.11, 19.99, 21.75, 8.68, 16.96,
27.54, 18.82, 22.42, 13.56, 14.81, 13.29, 16.52, 23.31, 77.38,
99.44, 71, 68.9, 54.04, 77.19, 93, 57, 26.24, 15.78, 11.72, 4.29,
10.99, 96.02, 6.67, 13.6, 5.88, 14.53, 11.9, 10.07, 14.51, 20.39,
11.88, 2, 10.27, 9.64, 16.45, 14.19, 6.43, 24.82, 10.35, 37.72,
10.39, 35.6, 10.83, 16.31, 11.97, 11.1, 55.56, 10, 23.36, 9.44,
10.15, 7.66, 7.84, 40.14, 14.83, 11.32, 7.94, 10.01, 9.43, 18.67,
13, 14.22, 17.84, 16.76, 19.29, 13.68, 14.58, 9.72, 12.06, 10.24,
18.28, 21.55, 14.67, 14.61, 22.28, 13.12, 11.51, 16.95, 9.26,
8.52, 9.73, 36.74, 11.89, 12.86, 37.05, 7.45, 8.51, 19, 21.67,
13.89, 12.36, 11.2, 13.93, 18.36, 13.12, 21.54, 20.62, 18.85,
17.99, 8.4, 11.39, 12.98, 11.13, 20.2, 39, 16.39, 17.62, 28.16,
9.85, 33.61, 17.99, 14.21, 9.28, 18.06, 10.28, 16.47, 32.36,
28.7, 18.87, 18.63, 16.5, 29.04, 28.61, 30.17, 25.39, 18.46,
14.86, 17.29, 19.55, 9.83, 10.28, 16.47, 11.69, 15.82, 9.79,
10.53, 9.21, 10.79, 3.85, 2.87, 4.29, 16.85, 7, 20.29, 17.58,
19.53, 15.89, 11.54, 8.75, 20, 22, 15.62, 22.32, 11.83, 16.87,
7.25, 16.37, 7.72, 5.9, 12.16, 10.7, 7.51, 3.91, 6.66, 6.7, 8.49,
10.05, 8.34, 7.18, 11.72, 7.9, 11.9, 10.59, 18.32, 10.32, 7.98,
11.04, 11.72, 14.42, 11.58, 13.22, 13.26, 11.37, 8.83, 7.34,
7.86, 7.66, 6.94, 6.21, 12.96, 12.67, 13.26, 18.42, 9.94, 11.32,
11.35, 10.01, 12.89, 14.91, 14.62, 14.09, 12.67, 12.45, 17.62,
7.98, 15.87, 9.15, 12.86, 5.36, 7.11, 4.83, 5.58, 3.83, 8.13,
7.23, 6.73, 10.13, 5.67, 4.48, 2, 4.42, 6.11, 5.37, 8.6, 3.22,
8.49, 7.87, 3.02, 6.97, 19.26, 10.36, 5.99, 5.4, 7.14, 10.64,
2, 3.93, 2, 2, 2, 6.46, 5.29, 3.87, 5.63, 12, 12, 10, 15, 16,
14, 15, 17.54, 10.8, 7.23, 8.67, 5.14, 2.94, 5, 2, 4.85, 4.41,
4.78, 2, 11.85, 17.06, 7.14, 8.42, 10.18, 9.15, 12.03, 11.58,
8.53, 13.36, 8.91, 7.43, 8.64, 11.44, 6.4, 7.84, 6.47, 7.47,
5.9, 5.77, 6.28, 7, 5, 14.1, 8.31, 5, 10, 8.32, 6, 14.69, 6.7,
10.45, 9.96, 10.64, 11.52, 12.21, 12.62, 23.21, 15.88, 17.1,
16.25, 18.25, 11.97, 14.56, 8.33, 12.99, 8.08, 7.76, 6.68, 6.49,
5.85, 7.31, 6, 7, 6.45, 6, 7, 7, 16, 48, 25, 27, 9.65, 11.22,
11.89, 11.82, 10.44, 7, 11.32, 8.85, 6.17, 9.06, 9.99, 7.43,
8, 8, 5.04, 7, 11, 13, 17, 13, 14, 30, 22, 26, 34, 37, 32, 24,
19, 21, 19, 15.63, 19.49, 12.06, 10.89, 12.5, 13.29, 10.45, 12.09,
9, 10.43, 6.54, 7.04, 9.44, 11.43, 19, 25, 23.51, 21.41, 22,
26.03, 17.95, 11.36, 10.5, 8.79, 7.4, 6.01, 6.62, 7.45, 7.63,
7.5, 6.17, 9.58, 9, 5.93, 7, 9, 11.78, 12.54, 18.3, 13.42, 13.56,
11.55, 10.92, 9.51, 8.07, 8.11, 8.3, 8.2, 8.38, 10.66, 7.77,
9, 8, 6.61, 7.4, 9.62, 13.41, 15.63, 11.82, 8.64, 13.54, 18.36,
10.69, 18, 18, 11.4, 11.99, 10.05, 9.98, 11.28, 9.02, 9.04, 7.9,
7.6, 7.88, 6.35, 5.91, 6.01, 5.53, 6.21, 7, 10.39, 8.18, 7, 8,
9.56, 11, 16.86, 15.28, 17.57, 17, 12.33, 9.96, 8.57, 8.34, 6.2,
5.98, 5.91, 7, 9, 18.59, 13.58, 13.04, 27, 28.18, 19.06, 13.41,
16.26, 12.61, 8.47, 8.42, 6.85, 6.85, 6.52, 7.17, 9.68, 7.16,
7.71, 7.19, 9.3, 7.86, 8, 8.16, 8, 12.19, 14, 18, 24, 18.25,
14.31, 14.92, 13.39, 11.37, 16.05, 8.5, 8.32, 9, 9, 8.53, 10,
10, 11, 7, 9, 16.76, 16, 22, 6, 15.29, 23.3, 12.97, 12.28, 10.28,
10.88, 8, 7.52, 12.69, 11.57, 10.72, 12, 10, 13, 9, 11.65, 14.84,
12.6, 10.22, 6.4, 6.23, 5.66, 5.57, 5.68, 6.05, 6.87, 9, 6, 8,
7, 8, 11, 10, 13, 21.05, 29.85, 15, 13.96, 9.44, 9.29, 8.7, 7.45,
6.68, 7.34, 6.02, 7.03, 10.3, 9.48, 8.54, 6.8, 8.11, 12, 7.31,
7.36, 8.67, 10.6, 13.1, 11, 11.79, 10.08, 11.19, 12.51, 12.61,
11.09, 10.55, 10.09, 7.71, 6.87, 7.05, 6.22, 7.36, 6.71, 9.21,
6.53, 6, 6, 9, 15, 27, 31, 27, 31, 50, 30, 30, 15, 14.39, 14.69,
11.56, 10.72, 7.59, 7.92, 6.04, 8.52, 8.53, 7.52, 8.49, 8, 17.4,
9, 12.35, 12, 9, 16.31, 11, 11.86, 8.05, 6.99, 8.28, 8.28, 8.91,
11.48, 6.81, 7.2, 6.37, 5.43, 5.25, 5.69, 6.67, 7.95, 9.08, 7.71,
8.46, 7.96, 5.3, 9, 11, 11.04, 14.44, 10, 10.31, 11.11, 10.09,
6.97, 5.38, 5.9, 6.07, 6.22, 5.73, 5.55, 7.28, 6.26, 5.17, 8,
8, 10, 8, 8.74, 9.54, 12, 14, 18, 38, 35.87, 34.61, 19.42, 13,
11.57, 8.96, 8.61, 8.5, 8.07, 7.43, 7, 6, 7, 10, 10, 7, 9, 7,
11, 10, 10.8, 9.19, 7.63, 8.45, 7.04, 5.89, 6.24, 5.87, 5.6,
6.04, 4.66, 4.82, 7.05, 7.21, 7.16, 8.61, 10.2, 9.59, 11.85,
9.99, 12.36, 9.74, 8.74, 8.16, 8.22, 6.55, 6.44, 6.29, 5.44,
6.5, 6.68, 9, 9.91, 10, 6, 8, 8, 8.12, 8, 9.57, 14, 16, 22.06,
51.66, 11.05, 6.86, 6.64, 7.08, 5.84, 6.4, 7.32, 6.49, 5.7, 6.29,
4.93, 4.76, 5.19, 5.78, 4.54, 5.07, 7.45, 8.57, 14, 12, 14, 18,
29.55, 23, 29.35, 12.66, 9.96, 7.63, 8.81, 7.48, 7.51, 5.84,
6.36))
# Data --------------------------------------------------------------------
ggplot(dat,aes(x=TPFWM,y=FedWY,group=FedWY))+
geom_density_ridges(alpha=0.25,colour="grey",fill="dodgerblue1",quantile_lines = TRUE, quantiles = 2,scale=4)+
scale_y_reverse(position = 'right',breaks=sort(unique(dat$FedWY)))+
scale_x_continuous("Total P (\u03BCg L\u207B\u00B9)",breaks = seq(0,100, 10)) +
theme_classic() +
theme(
axis.line.y = element_blank(),
axis.ticks.y = element_blank(),
axis.title.y = element_blank(),
text = element_text(family="serif")
) +
labs(title = "Trends in biweekly compliance TP concentrations\ninto Shark River Slough",
subtitle = "Data from S12s+S333 Federal WY 1979-2018 (Method #1)")
# You can give your ggplot a variable name (i.e. TP.ridgeplot=ggplot(...))
# Then use ggsave() to write it to a file.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment