Skip to menu

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

다름이 아니라 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번 사진과 같은 형태를 원하는데 생각만큼 나오질 않습니다.

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

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