我有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个值?