单击并在网格单元格中绘图

时间:2019-06-03 16:30:24

标签: r shiny

我有2个问题:

如果我具有以下网格(数据表):

![image|690x230](upload://WutHMARYjXdmbjANo40v9NCFJA.png)

网格中的值(绿色单元格中的行,列和数字)是通过以下步骤计算的:

{ind_capaUTS<-pcr(x=df_filt$UTS,lsl = input$iLIMMIN, usl = input$iLIMMAX )

    resultadoUTS<-list(FaixaOD=fxod,   <-------- rows of the grid
                    FaixaWT=fxwt,      <-------- columns of the grid
                    LInf=LInf,
                    LSup=LSup,
                    ppk=ind_capaUTS$cpk)   <-------- values in green cells (comming from PCR)

tab_padraoUTS<-matrix(0,
                     nrow     = length(nom_gruposOD),
                     ncol     = length(nom_gruposWT),
                     dimnames = list(nom_gruposOD,nom_gruposWT)
  )


#----------------------------------------------------------------------------------------  
    ind_cel_corUTS <- apply(X = faixas_od_wt,MARGIN = 1,FUN = calc_ind_capab_UTS)




   mat_ppksUTS<-matrix(unlist(ind_cel_corUTS),
                   ncol=5,
                   byrow=TRUE)

#----------------------------------------------------------------------------------------       

tab_padraoUTS[cbind(as.character(mat_ppksUTS[,1]),
                   as.character(mat_ppksUTS[,2]))] <- round(as.numeric(mat_ppksUTS[,5]),2)         

在这种情况下...我的“ tab_padraoUTS”是在屏幕中创建的表格/表的名称。

1-我需要在用户单击某些选定的单元格后绘制图形。如何使用“ _cell_clicked”或“ _cell_selected”完成此操作? 例如:

    observeEvent(input$df_cell_clicked, {

      info = input$df_cell_clicked
      if (is.null(info$value) || info$col != 0) {

      output$plot1 <- renderPlotly({

        p1<- ggplot(df2, aes(x = YS)) + ...

2-当用户单击单元格时,如何提取“ resultadoUTS”列表中的5个值?

0 个答案:

没有答案