Выбор и построение столбцов блестящих данных - PullRequest
Новая
       15

Выбор и построение столбцов блестящих данных

0 голосов
/ 30 июня 2019

Я пытаюсь создать интерактивное веб-приложение Shiny, но у меня проблема с рендерингом, связанная с сюжетом. Моя цель состоит в том, чтобы загрузить CSV-файл, иметь возможность выбрать столбец для построения графика (по оси Y) и иметь возможность выбрать диапазон данных, на котором строятся данные графика. Здесь есть мой код: 

library(dplyr)
library(shiny)
library(networkD3)
library(igraph)
library(ggplot2)

db = as.data.frame(read.csv("./util_df.csv"))

EmotionalDB = as.data.frame(read.csv("./MainDB.csv"))
my_list = as.list(names(EmotionalDB))
my_list = my_list[c(2, 3, 4, 5, 6, 7, 8, 9, 10, 11)]

ui <- fluidPage(
  column(12, wellPanel(
    dateRangeInput('dateRangeEmotions',
                   label = 'Filter emotions by date',
                   start = as.Date('2019-05-20') , 
                   end = as.Date('2019-05-26')
    )
  )),
  
  selectInput("data1",
              label = "Choose an Emotion",
              choices = my_list
              
  ),
  
  plotOutput("Emotions")
)

server <- function(input, output, session) {
 
  output$Emotions <- renderPlot({
    x <- EmotionalDB$Date
    y <- EmotionalDB$Anger
    plot(main="Emotions", x, y, type="l", xlim=c(input$dateRangeEmotions[1],input$dateRangeEmotions[2]), xaxt = "n")
    axis.Date(side = 1, at = x, format = "%Y-%m-%d")
  })
}

shinyApp(ui = ui, server = server)

К сожалению, на графике нет вывода. Вот изображение:

Output

Вот пример моего набора данных: 

"Date","Anger","Anticipation","Disgust","Fear","Joy","Negative","Positive","Sadness","Surprise","Trust"
"2019-05-20",12521,14652,2687,5164,13085,18309,23214,12882,12091,18623
"2019-05-21",13073,14988,3170,5773,13191,18988,24747,12973,12005,19435
"2019-05-22",15085,18608,3428,6475,16354,22671,30028,15765,15347,23680
"2019-05-23",23586,32597,5092,10084,24827,34827,44475,24468,23021,35440
"2019-05-24",61955,74395,10963,19597,65097,88223,104236,67361,59611,86375
"2019-05-25",19017,23540,4170,8595,19640,29740,34746,21793,18817,27907
"2019-05-26",9379,11909,1849,4535,10046,14791,17525,10757,9306,14095

Кто-нибудь может мне помочь?

1 Ответ

0 голосов
/ 01 июля 2019

Пара предложений, чтобы попробовать:

Убедитесь, что ваша переменная Date в EmotionalDB имеет тип Date. 

EmotionalDB$Date <- as.Date(EmotionalDB$Date)

Попробуйте использовать реактив для подмножества ваших данных, основанных на выбранных эмоциях и двух датах. 

server <- function(input, output, session) {

  selectedData <- reactive({
    subset(EmotionalDB[ , c("Date", input$data1)], Date >= input$dateRangeEmotions[1] & Date <= input$dateRangeEmotions[2])
  })

  output$Emotions <- renderPlot({
    sd <- selectedData()
    plot(sd, main="Emotions", type="l", xaxt = "n")
    axis.Date(side = 1, at = sd$Date, format = "%Y-%m-%d")
  })
}
...