plot(gamm_smooth, select=1) 
# select=1 because the smooth slope appears as the first entry in your summary table.