У меня есть выпадающее меню, и мне нужен сюжет, чтобы реагировать на выбор, который делает человек.Мне трудно заставить его работать на моей панели - PullRequest
Новая
       22

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

0 голосов
/ 17 апреля 2019

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

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

Вот код: 

Prediction_with_CusID <- cbind(SepthruNov_flipkart_new_data, predict(model_fit, newdata = SepthruNov_flipkart_new_data, type = 'prob'))

Predictive - показатель оттока клиентов 

###Probability of Customer Churn by Month

zero_19 <- Prediction_with_CusID %>%
  filter(X1 < "0.00", X1 > "0.19")


twenty_39 <-Prediction_with_CusID %>%
  filter(X1< "0.20" ,  X1 > "0.39")


fourty_59<- Prediction_with_CusID %>%
  filter(X1<= "0.40",  X1>= "0.59")

sixty_79 <-Prediction_with_CusID%>%
  filter(X1< "0.60", X1 > "0.79")

septhruNov_customers <- Prediction_with_CusID %>%
  filter(X1, CustomerID) %>%
  na.omit(Prediction_with_CusID)



septhruNov_customer_sample <- septhruNov_customers$X1

septhruNov_customer_sample_list <- septhruNov_customers$X1

selectInput("septhruNov_customer", "Percentages", 
    c("60-79%"= "sixty_79", 
    "40-59%" = "fourty_59", 
    "20-39%" = "twenty_39", 
    "0-19%" = "zero_19"))



  cust_input <- reactive ({ 
  Prediction_with_CusID$X1 %>%
    filter(X1== input$septhruNov_customer_sample_list)})


renderPlot({ggplot(cust_input(), aes(x = average_gap, y = X1)) +
  geom_point(shape = 1, colour = "#51A0D5") + 
  labs( x = "Customer ID", 
        y = "Churn Rate", 
        title = "Churn Probability")+
  geom_hline(yintercept=0.5, linetype="dashed", color = "#2C528C", size=0.5) +
  theme_classic()
})

1 Ответ

0 голосов
/ 17 апреля 2019

У меня нет данных для тестирования, но я думаю, что проблема может быть в следующем. 

  cust_input <- reactive ({ 
  Prediction_with_CusID$X1 %>%
    filter(X1== input$septhruNov_customer_sample_list)})

(я полагаю, что оператор канала и функция фильтра - dplyr) Вы обращаетесь к полю $X1 перед использованием фильтра. Пожалуйста, попробуйте следующее: 

  cust_input <- reactive ({ 
  Prediction_with_CusID %>%
    filter(X1== input$septhruNov_customer_sample_list)})

Случилось так, что вектор был передан в функцию фильтра, которая ожидает фрейм данных.

...