gpt4 book ai didi

r - plotly 中每个因子水平的颜色

转载 作者:行者123 更新时间:2023-12-04 23:39:00 29 4
gpt4 key购买 nike

一个客户想让我做一个像 this 这样的 plotly .这个引用使用了rgl-package,但是导出的图质量太低了。因此,我开始了 plotly 。我可以管理我想做的大部分事情,但出于某种原因,所有的条形都用了不同的颜色。

MWE:

X<-1:60
Y<-sort(runif(60,-3,3))
Z<-runif(60,0,50)

p<-plot_ly(x = c(X[1],X[1]+1,X[1]+1,X[1]),
y = c(0,0,Y[1],Y[1]), z=c(0,0,0,0),type = "mesh3d",color=I("red"))

for(i in X){p<-add_trace(p,x = c(i,i+1,i+1,i),
y = c(0,0,Y[i],Y[i]), z=c(0,0,0,0),type = "mesh3d",color=I("red"))}
for(i in X){p<-add_trace(p,x = c(i,i+1,i+1,i),
y = c(0,0,0,0), z=c(0,0,Z[i],Z[i]),type = "mesh3d",i=c(0,0),
j=c(1,2),k=c(2,3),color=I("black"))}

p

虽然我期待红色和黑色的东西,但我得到了这个五彩缤纷的结果:
enter image description here

我实际上正在寻找的是类似于以下内容的内容,每个因子级别都有一种颜色,但就目前而言,结果与上面的相同:
X<-1:60
Y<-sort(runif(60,-3,3))
Z<-runif(60,0,50)
ColFactor<-sample(c(0,1),60,replace = TRUE)

p<-plot_ly(x = c(X[1],X[1]+1,X[1]+1,X[1]), y = c(0,0,Y[1],Y[1]), z=c(0,0,0,0),
type = "mesh3d",color=ColFactor,colors=c("red","blue"))

for(i in X){p<-add_trace(p,x = c(i,i+1,i+1,i), y = c(0,0,Y[i],Y[i]), z=c(0,0,0,0),
type = "mesh3d",color=ColFactor,colors=c("red","blue"))}
for(i in X){p<-add_trace(p,x = c(i,i+1,i+1,i), y = c(0,0,0,0), z=c(0,0,Z[i],Z[i]),
type = "mesh3d",i=c(0,0),j=c(1,2),k=c(2,3),color=I("black"))}

p

最佳答案

以您打算的方式使用 plot_ly 时,似乎存在某种问题。
但是,有一个解决方法 ( https://github.com/ropensci/plotly/issues/413 )。
为了使事情起作用,您必须通过 plotly_build 函数覆盖 plot_ly 提供的默认值。

以下代码应该可以用于获得水平和垂直条具有不同颜色的图:

X<-1:60
Y<-sort(runif(60,-3,3))
Z<-runif(60,0,50)
ColFactor<-sample(c(0,1),60,replace = TRUE)

p<-plot_ly(color=I("black")) #This plot a layout where to add the traces and adds
#the attribute color needed when overriding default. If it isn't included it doesn't work
#Which color you use here is unimportant, it will be override

#next lines add the bars, if you plot the result will be the same that you already know
for(i in X){p<-add_trace(p,x = c(i,i+1,i+1,i),
y = c(0,0,Y[i],Y[i]), z=c(0,0,0,0),type = "mesh3d")}
for(i in X){p<-add_trace(p,x = c(i,i+1,i+1,i),
y = c(0,0,0,0), z=c(0,0,Z[i],Z[i]),type = "mesh3d",i=c(0,0),
j=c(1,2),k=c(2,3))}

#next step: override the defaults options using plotly_build()

p.optionslist<-plotly_build(p)

#you have to change every trace individually that's what the for loop is

#horizontal bars
for(j in 1:((length(p.optionslist$x$data))/2)){
p.optionslist$x$data[[j]]$color=toRGB("red")
}

#horizontal vertical bars
for(j in (((length(p.optionslist$x$data)/2)+1):length(p.optionslist$x$data))){
p.optionslist$x$data[[j]]$color=toRGB("blue")
}

#The plot
p.optionslist

Without factor

关于 ColFactor 的使用,以下代码有效(当然有更好的方法,但我不知道是哪个)
#overriding color option according to the value of ColFactor
p.optionslist2<-plotly_build(p)


for(j in 1:((length(p.optionslist2$x$data))/2)){
if(ColFactor[j]==1){
p.optionslist2$x$data[[j]]$color=toRGB("red")
}else{
p.optionslist2$x$data[[j]]$color=toRGB("blue")
}
}

for(j in (((length(p.optionslist2$x$data))/2)+1):length(p.optionslist2$x$data)){
i=j-length(ColFactor)
if(ColFactor[i]==1){
p.optionslist2$x$data[[j]]$color=toRGB("red")
}else{
p.optionslist2$x$data[[j]]$color=toRGB("blue")
}
}

#The plot with color by
p.optionslist2

enter image description here

如果您希望垂直条全部为黑色,而水平条按因子显示,那么您只需将这两个选项结合起来:
p.optionslist3<-plotly_build(p)


for(j in 1:((length(p.optionslist3$x$data))/2)){
if(ColFactor[j]==1){
p.optionslist3$x$data[[j]]$color=toRGB("red")
}else{
p.optionslist3$x$data[[j]]$color=toRGB("blue")
}
}

for(j in (((length(p.optionslist3$x$data))/2)+1):length(p.optionslist3$x$data)){
p.optionslist3$x$data[[j]]$color=toRGB("black")
}

#The plot with color by
p.optionslist3

enter image description here

希望对你有帮助!

关于r - plotly 中每个因子水平的颜色,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/43657911/

29 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com