안녕하세요 교수님. 다른 글들을 보게 되어 교수님이란걸 알게 되었습니다.
다름이 아니라 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번 사진과 같은 형태를 원하는데 생각만큼 나오질 않습니다.
제가 사용한 함수식에서 무엇이 부족한지 알려 주시면 감사하겠습니다.
늘 친절한 답변 감사합니다.