Totally geodesic subvarieties in the moduli space of curves