R 使用动态 UI 以shiny 的方式绘制 3d 绘图

我有一个数据框:

df1<-data.frame(a=rnorm(100),b=rnorm(100),c=rnorm(100),ID1=c("A","B"),ID2=(c("A","B","C","D")))

我通过在循环中添加ADD_TRACE来绘制一个带有plotly的3D绘图，如下所示:

library(shiny)
library(plotly)
library(tidyverse)
df1<-data.frame(a=rnorm(100),b=rnorm(100),c=rnorm(100),ID1=c("A","B"),ID2=(c("A","B","C","D")))

test<-unique(df1$ID2)
tempt.col<-c("red","blue","green","yellow")
p<-plot_ly()
for(i in 1:length(test)){
  df2<-df1[df1$ID2==test[i],] %>%
    select(a,b,c)
  p<-add_trace(p=p,
               data = df2,
               x=~a,y=~b,z=~c,
               type="scatter3d",
               marker = list(size=5,color=tempt.col[i]),
               mode="markers"
  )
}
p

它工作得非常好，比如:

现在我想在SHILINY中实现这一点，我想根据所选ID的长度生成colourInput个用户界面:

ui<-fluidPage(
  fluidRow(
    sidebarPanel(
      selectInput("select1","Select the ID",choices = colnames(df1[,4:5]),multiple = FALSE),
      actionButton("act1","Go"),
      uiOutput("ui1"),
    ),
    mainPanel(
      tableOutput("table1"),
      plotlyOutput("plot.3d",height = "1000px")
    )
  )
)

服务器:服务器:

server<-function(input,output){
  tempt.group<-reactive({
    unique(df1[,input$select1])
  })
  observeEvent(input$act1,{
    tempt.vector<-list()
    tempt.col.name<-isolate(
      vector(mode = "list",length = 2)
    )
    for(i in 1:length(tempt.group())){
      tempt.vector[[i]]<-colourpicker::colourInput(
        inputId = paste0("ColorID",i),
        label = tempt.group()[i])
      tempt.col.name[[1]][i]<-paste0("ColorID",i)
      tempt.col.name[[2]][i]<-tempt.group()[i]
    }
    output$ui1<-renderUI({
      tempt.vector
    })
    names(tempt.col.name)<-c("inputId","label")
    col.name<-reactive({
      data.frame(sapply(tempt.col.name,cbind))
    })
    
    col.df<-reactive({
      tempt.col.df<-reactiveValuesToList(input)
      data.frame(
        names = names(tempt.col.df[grepl("ColorID", names(tempt.col.df))]),
        values = unlist(tempt.col.df[grepl("ColorID", names(tempt.col.df))], use.names = FALSE)
      )
    })
    
    group.col.df<-reactive({
      merge(col.df(),col.name(),by.x="names",by.y="inputId")
    })
    
    output$table1<-renderTable(
      group.col.df()
    )
    
    pp<-reactive({
      p<-plot_ly()
      for(i in 1:length(tempt.group())){
        # col<-group.col.df()[group.col.df()[,"label"]==tempt.group()[i],"values"] ####it should be something wrong with here
        df2<-df1[df1$ID==tempt.group()[i],] %>%
          select(a,b,c)
        p<-add_trace(p=p,
                     data = df2,
                     x=~a,y=~b,z=~c,
                     type="scatter3d",
                     # marker = list(size=5,color=col[i]),  ####it should be something wrong with here
                     mode="markers"
        )
      }
      p
    })
    output$plot.3d<-renderPlotly({
      pp()
    })
    
  })
  
}


shinyApp(ui=ui,server=server)

The app is like:

我想获取colourInput并传递到3D散点图的 colored颜色 ，但都不起作用.页面要么保持刷新，要么冻结， col<-group.col.df()[group.col.df()[,"label"]==tempt.group()[i],"values"]和marker = list(size=5,color=col[i])肯定出了什么问题，

请帮帮忙.