次のプロットを生成しました。
次のコードを使用します。
par(bg="white")
Y10= scatterplot3d(WF$`YEAR 1`, WF$ST, WF$D1, grid=TRUE, xlim=c(1,10),ylim=c(0,120),type = "h", pch=".", bg="black" ,xlab="YEAR", ylab="Sales Turnover", zlab="Distribution", color="#80FFFFFF", main = "Corp Behavior, Sales Turnover", angle=55)
Y10$points3d(WF$`YEAR 2`, WF$ST, WF$D2 , col="#99FFFFFF", type = "h", pch=".")
Y10$points3d(WF$`YEAR 3`, WF$ST, WF$D3 , col="#B3FFFFFF",type = "h", pch=".")
Y10$points3d(WF$`YEAR 4`, WF$ST, WF$D4 , col="#CCFFFFFF",type = "h", pch=".")
Y10$points3d(WF$`YEAR 5`, WF$ST, WF$D5 , col="#E6FFFFFF",type = "h", pch=".")
Y10$points3d(WF$`YEAR 6`, WF$ST, WF$D6 , col="#FFE6FFFF",type = "h", pch=".")
Y10$points3d(WF$`YEAR 7`, WF$ST, WF$D7 , col="#FFCCFFFF",type = "h", pch=".")
Y10$points3d(WF$`YEAR 8`, WF$ST, WF$D8 , col="#FFB3FFFF",type = "h", pch=".")
Y10$points3d(WF$`YEAR 9`, WF$ST, WF$D9 , col="#FF99FFFF",type = "h", pch=".")
Y10$points3d(WF$`YEAR 10`, WF$ST, WF$D10 , col="#FF80FFFF",type = "h", pch=".")
取得したグラフを滑らかにして、より見やすく/美しいものにしたいと考えています。
誰かが提案をしてくれたら、とてもうれしいです。また、私が作成したコードを改善するための提案があれば、私も嬉しく思います。
みんな、ありがとう ！