DashR, как появился график? - PullRequest
Новая
       4

DashR, как появился график?

0 голосов
/ 19 марта 2020

Я пытаюсь выучить Da sh в R. Вот код, который мне интересен. он берется непосредственно из здесь 

library(dash)
    library(dashCoreComponents)
    library(dashHtmlComponents)

    app <- Dash$new()

    df <- read.csv(
      file = "https://raw.githubusercontent.com/plotly/datasets/master/gapminderDataFiveYear.csv",
      stringsAsFactor=FALSE,
      check.names=FALSE
    )

    continents <- unique(df$continent)
    years <- unique(df$year)

    # dccSlider starts from 0;
    app$layout(
      htmlDiv(
        list(
          dccGraph(id = 'graph-with-slider'),
          dccSlider(
            id = 'year-slider',
            min = 0,
            max = length(years) - 1,
            marks = years,
            value = 0
          )
        )
      )
    )

    app$callback(
      output = list(id='graph-with-slider', property='figure'),
      params = list(input(id='year-slider', property='value')),

      function(selected_year_index) {

        which_year_is_selected <- which(df$year == years[selected_year_index + 1])

        traces <- lapply(continents,
                         function(cont) {

                           which_continent_is_selected <- which(df$continent == cont)

                           df_sub <- df[intersect(which_year_is_selected, which_continent_is_selected), ]

                           with(
                             df_sub,
                             list(
                               x = gdpPercap,
                               y = lifeExp,
                               opacity=0.5,
                               text = country,
                               mode = 'markers',
                               marker = list(
                                 size = 15,
                                 line = list(width = 0.5, color = 'white')
                               ),
                               name = cont
                             )
                           )
                         }
        )

        list(
          data = traces,
          layout= list(
            xaxis = list(type = 'log', title = 'GDP Per Capita'),
            yaxis = list(title = 'Life Expectancy', range = c(20,90)),
            margin = list(l = 40, b = 40, t = 10, r = 10),
            legend = list(x = 0, y = 1),
            hovermode = 'closest'
          )
        )
      }
    )

    app$run_server()

, в конце концов, программа строит график: но я не вижу там ни одной строки кода, которая говорит о том, что график рассеяния должен быть нарисовано, что такое оси x и y, и et c ... only dccGraph говорит о том, что существует граф, но в нем ничего не определено, кроме id

...