设置R包plot3D坐标

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

各位，我用R包plot3D画了一个3d的柱形图，大家有用过的吗？知道坐标怎么更改吗？

1. > plotData[1:40,1]
   
2. [1] 0.020 1.000 1.000 0.132    NA    NA    NA    NA 0.000 0.072 1.000 0.000 0.000 0.999 1.000 0.751    NA 0.015
   
3. [19] 0.903 0.000 0.040 0.001 0.995 0.054 0.010 0.058 1.000 0.010    NA 0.967 1.000 0.004 0.040 0.946 1.000 0.000
   
4. [37] 0.020 0.629 1.000 0.414
   
5. 
   
6. Score.value <- matrix(plotData[1:40,1],byrow=TRUE,40/4,4)
   
7. z.value <- matrix(0,10,4)
   
8. 
   
9. for(i in 1:4){
   
10.         for(j in 1:nrow(Score.value)){
    
11.                 if(!is.na(Score.value[j,i])){
    
12.                         if(Score.value[j,i]<=0.1){
    
13.                                 z.value[1,i] <- z.value[1,i]+1                       
    
14.                         }
    
15.                         if(Score.value[j,i]<=0.2 & Score.value[j,i]>0.1){
    
16.                                 z.value[2,i] <- z.value[2,i]+1                       
    
17.                         }
    
18.                         if(Score.value[j,i]<=0.3 & Score.value[j,i]>0.2){
    
19.                                 z.value[3,i] <- z.value[3,i]+1                       
    
20.                         }       
    
21.                         if(Score.value[j,i]<=0.4 & Score.value[j,i]>0.3){
    
22.                                 z.value[4,i] <- z.value[4,i]+1                       
    
23.                         }       
    
24.                         if(Score.value[j,i]<=0.5 & Score.value[j,i]>0.4){
    
25.                                 z.value[5,i] <- z.value[5,i]+1                       
    
26.                         }       
    
27.                         if(Score.value[j,i]<=0.6 & Score.value[j,i]>0.5){
    
28.                                 z.value[6,i] <- z.value[6,i]+1                       
    
29.                         }
    
30.                         if(Score.value[j,i]<=0.7 & Score.value[j,i]>0.6){
    
31.                                 z.value[7,i] <- z.value[7,i]+1                       
    
32.                         }
    
33.                         if(Score.value[j,i]<=0.8 & Score.value[j,i]>0.7){
    
34.                                 z.value[8,i] <- z.value[8,i]+1                       
    
35.                         }
    
36.                         if(Score.value[j,i]<=0.9 & Score.value[j,i]>0.8){
    
37.                                 z.value[9,i] <- z.value[9,i]+1                       
    
38.                         }
    
39.                         if(Score.value[j,i]<=1 & Score.value[j,i]>0.9){
    
40.                                 z.value[10,i] <- z.value[10,i]+1                       
    
41.                         }
    
42.                 }
    
43.         }
    
44. }
    
45. 
    
46. 
    
47. #-----------------------------------------------------------------
    
48. # plot and output plot
    
49. #-----------------------------------------------------------------
    
50. hist3D(1:nrow(z.value)/nrow(z.value),1:ncol(z.value),z = z.value/nrow(Score.value)*100, theta=25, phi=15,scale = TRUE, expand = 0.5,
    
51. lwd = 2,ticktype="detailed", xlab=paste0("\n\n\n", "Score Range"),bty = "b2",facets = NA,colkey = FALSE,
    
52. ylab=paste0("\n\n", "Score Classification"),zlab=paste0("\n\n", "Frequency"),axes=TRUE,alpha=1)

复制代码

想将图中的Score classification中的1、2、3、4替换成score_LOD、score_LOH、score_SV、score_CNV


各位有修改过的吗？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：plot3D plot value score SCOR plot3D coordinate

ryoeng 发表于 2015-8-21 20:15
哇，是使用 Plotly 吗？

使用的是plot3D包画的。。。感觉图很丑

请问plot3d在哪个包里？

请问plot3d在哪个包里？

请问plot3d在哪个包里？

ronghe1973 发表于 2020-11-29 22:49
请问plot3d在哪个包里？

plot3d在rgl包