Сюжетная анимация в R - PullRequest
Новая
       59

Сюжетная анимация в R

0 голосов
/ 05 апреля 2020

HI Мне нужно нарисовать простую анимацию для ряда дат, используя график в r на блестящем приложении. 

p_animate <- data() %>%
      plot_ly(x=~Date,y=~Total_Count, showlegend = F, frame = ~Date) %>% 
      add_lines(line=list(width=2), text = c(''), hoverinfo = 'text', showlegend = F) %>% 
      add_markers() %>%
      layout(
        annotations = list(x = 1.30, y = -0.1, text = "*Updates - Daily", 
                           showarrow = F, xref='paper', yref='paper', 
                           xanchor='right', yanchor='auto', xshift=0, yshift=0,
                           font=list(size=10, color="#c9c9c9")),
        title = list(text = paste0('Count'), 
                     font = plot_title_font_family,
                     x = plot_title_x_y[['x']],
                     y = plot_title_x_y[['y']],
                     xanchor= 'center',
                     yanchor= 'top'),
        autosize = T,
        xaxis = list(type = 'date', title = "", tickfont = plot_x_y_labels, showgrid = FALSE, zeroline = 0, showline = FALSE),
        yaxis = list(title = list(text = paste0('Count'), 
                                  font = plot_title_font_family), 
                     tickfont = plot_x_y_labels, showgrid = FALSE),
        showlegend = T
      )

data () - это реактивный элемент

Проблемы

  1. Анимация не работает должным образом; Ожидается непрерывный линейный график со временем. (увеличение количества)
  2. Ось даты отображается в формате DateTime , тогда как в столбце есть только даты типа (ГГГГ-ММ-ДД). Это также начинается с 1970 года, тогда как моя дата начинается с 2019 года.

Любая помощь приветствуется. Пожалуйста, прежде чем закрыть это, позвольте мне вернуться к нему. Много раз вопрос неправильно понимался главным образом потому, что он мог быть задан плохо. Перекрестный вопрос, но не закрывайте.

...