R로 구면 언래핑

구면 패턴 인쇄를 위한 시도 최근에 저는 핑퐁 공과 같은 크기의 구체를 덮을 수 있는 패브릭 패턴을 인쇄해 주어진 고양이 장난감을 재현하려는 요청을 받았습니다. 이 문제를 다시 생각해 보니, 이는 사실 지도 투영 문제이며, 중단된 사인곡선(sinusoidal) 투영을 스케일링해 핑퐁 공의 기하학에 맞추면 해결될 것이라고 판단했습니다. 아래는 이 작업을 진행하며 사용한 R 함수와 예시입니다. R 메일링 리스트에서 Greg Snow가 공유한 ggplot2를 이용해 선형 측정을 보존하는 방법에 관한 도움이 되는 글 덕분에 많은 도움을 받았습니다. 현재 상태와 문제점 지금까지 만든 패턴은 완전히 맞지 않는 상태입니다. 업데이트 결과 프린터가 아닌, 제가 핑퐁 공의 반지름을 잘못 사용한 것이 원인인 것으로 밝혀졌습니다. 핑퐁 공의 반지름은 16 mm가 아니라 19 mm 또는 20 mm이며, 실제로는 직경이 38 mm와 40 mm인 공이 존재합니다. 이에 따라 파일을 업데이트했습니다. 주요 함수 scale_sin_proj() – 중단된 사인곡선 투영을 스케일링하는 함수 convert_radius() – 실제 공의 반지름에 맞춰 변환하는 헬퍼 함수 plot_pattern() – 최종 패턴을 시각화하고 PDF로 저장하는 함수 예시 코드 # 실제 공 반지름에 맞춰 스케일링 radius_mm <- 19 # 핑퐁 공 반지름(단위: mm) scaled_proj <- scale_sin_proj(radius_mm) # 패턴 시각화 plot_pattern(scaled_proj, file = "pingpong_pattern.pdf") 다음 단계 수정된 파일을 첨부했습니다. 이번에는 인쇄 시 정확히 맞도록 다시 한 번 검증해 주시길 부탁드립니다. 필요하면 사인곡선 투영에 대한 자세한 문서도 확인해 주세요.