Блог

У меня есть вложенный data.frame, который выглядит аналогично этому примеру. Я хочу использовать перекрестные помехи filter_select для возврата вложенного графика из «выбранных» видов. Как мне получить доступ к «выбранным» общим данным в crosstalk?

     library(tidyverse)
    library(crosstalk)

    irisplot= iris %>% 
      group_by(Species) %>% 
      nest %>% 
      mutate(plot = map2(Species, data,  function (.x,.y){
      ggplot(data = .y, aes(x =  Sepal.Length, y = Sepal.Width))  
      geom_smooth()  
      ggtitle(label = .x) }))

    shared_df1 <- SharedData$new(irisplot, ~Species, group = "Choose")

    bscols( 
    filter_select("species", 
    "Species:",shared_df1,~Species,multiple=FALSE),

    shared_df1$data$plot ## does not work. What should this be?

    )