R에서 곡선 겹치는 영역 색칠하기

R에서 곡선의 겹치는 영역을 음영 처리하는 방법아래와 같은 그림을 R에서 그리려고 했습니다. 이 그림은 기본적으로 Tsebelis의 veto player 모델입니다. 현재 제 R 지식으로 두 가지 주요 문제가 있습니다.원에서 아치 또는 부분 곡선을 그릴 수 있는 함수가 있는지 알지 못합니다.R에서 겹치는 영역을 음영 처리하는 좋은 방법이 있는지 모릅니다.2주 동안 고민하며 구글링을 하고 친구에게 물었으나 아직 해결하지 못했습니다.