Блог

Я использую визуализацию для отображения графиков на веб-странице на основе пользовательского ввода. Но я вижу, что сюжеты перекрываются.

     output$dist_plot = renderImage({
    db <- data()
    var = input$selected_gene
    data_gene <- as.numeric(data.frame(db[db$gene == var,-1]))
    sns$set_style('darkgrid')
    sns$distplot(data_gene)
    plt$savefig('Dist_plot.png')
    list(src = 'Dist_plot.png')
  },deleteFile=FALSE)
}
 

Прикрепленное изображение: вывод

Я также попытался создать файл png

 output$dist_plot = renderImage({
    db <- data()
    var = input$selected_gene
    data_gene <- as.numeric(data.frame(db[db$gene == var,-1]))
    
    Dist_plot <- tempfile(fileext = '.png')
    
    png(Dist_plot)
    sns$set_style('darkgrid')
    sns$distplot(data_gene)
    dev.off()
  },deleteFile=TRUE)
}
 

Это дает мне ошибку $ operator is invalid for atomic vectors