#r #shiny
Вопрос:
У меня есть фрейм данных, который строится в соответствии с приведенным ниже кодом. Но мне нужно, чтобы это было реактивным/динамичным (в основном циклическим). Например, сейчас у нас есть только 2019, 2020 годы, так что все в порядке. В случае, если у нас есть 2017, 2018, 2019, 2020, 2021 и так далее. Это должно происходить автоматически, а также здесь есть значения _cap(2019_cap). Если это _cap значения, то режим должен быть lines markers или иначе lines . Можем ли мы достичь этого
asd lt;- data.frame(week = c(1,1,2,2), year = c("2019","2020","2019","2020"), val = c(1,2,3,4), cap = c(3,4,6,7)) asd_plot lt;- tidyr::pivot_wider(asd, names_from = year, values_from = c(val, cap), names_glue = "{year}_{.value}") asd_plot lt;- as.data.frame(asd_plot) fig lt;- plot_ly(asd_plot , x = ~week, y = ~`2019_val`, type = 'scatter', mode = 'lines', name = '2019') %gt;% add_trace(asd_plot , x = ~week, y = ~`2020_val`, type = 'scatter', mode = 'lines', name = '2020') %gt;% add_trace(asd_plot , x = ~week, y = ~`2019_cap`, type = 'scatter', mode = 'lines markers', name = '2021') %gt;% add_trace(asd_plot , x = ~week, y = ~`2020_cap`, type = 'scatter', mode = 'lines markers', name = '2021') fig