안녕하세요 교수님. 다른 글들을 보게 되어 교수님이란걸 알게 되었습니다.

다름이 아니라 3D 형태의 그래프 그리는  것을 공부하고 있는데 원하는 형태가 나오지 않아 질문 드립니다.

함수식은

require(car)
library(rgl)
library(scatterplot3d)
P=read_excel("D:\\Data\\데이터 정리\\14년 산호\\PCO3D.xls")
P$Group[P$`Sample name` ==c("Seawater.1","Seawater.2")] <- "red"
P$Group[P$`Sample name` ==c("Sinularia sp.1","Sinularia sp.2")] <- "blue"
P$Group[P$`Sample name` ==c("Nephthea sp.1","Nephthea sp.2")] <- "darkgreen"
P=as.data.frame(P)
with(P, {
  s3d <- scatterplot3d(X, Y, Z,      
                       color=Group, pch=19,       
                       scale.y=.75,                
                       main="Example",
                       xlab="PC1",
                       ylab="PC2",
                       zlab="PC3")
  s3d.coords <- s3d$xyz.convert(X, Y, Z)
  legend("topleft", inset=.05,     
         bty="n", cex=.5,             
         title="Sample",
         c("Seawater", "Sinularia sp", "Nephthea sp"), fill=c("red", "blue", "darkgreen"))
})

를 사용하고 있으며, 제가 원하는 형태는 1번 사진과 같은 박스 형태가 아닌 2번 사진과 같은 형태를 원하는데 생각만큼 나오질 않습니다.

제가 사용한 함수식에서 무엇이 부족한지 알려 주시면 감사하겠습니다.

늘 친절한 답변 감사합니다.