R Блестящая ошибка "нечисловой c аргумент двоичного оператора" - PullRequest
Новая
       102

R Блестящая ошибка "нечисловой c аргумент двоичного оператора"

2 голосов
/ 28 мая 2020

Я делаю простое приложение Shiny, которое вводит имя игрока и статистику c, а затем возвращает процентиль, в котором находится игрок для этой статистики c. В настоящее время я столкнулся с проблемой, когда виджет «statisti c» вызывает ошибку (см. Заголовок). Вот пакеты, которые я использую, и образец данных: 

library(shiny)
library(dplyr)
library(mosaic)

player <- c("John", "Mike", "Devon", "Greg", "Bruce", "Zachary", "Jack", "Graham", "Jordan", "Sandy")
team <- c("A", "B", "A", "B", "A", "B", "A", "B", "A", "B")
wins <- c(1:10)
losses <- c(10:1)

sampledata <- data.frame(player, team, wins, losses)

В приложении есть три виджета: (1) введите имя игрока, (2) выберите статистику и (3) ) выполнить выбор.
Результатом является одна строка текста.
Вот ui.r:

ui <- fluidPage(
  titlePanel("Percentile Generator"),
    sidebarLayout(
        sidebarPanel(
            textInput("playerfind",
                      "Player:",
                      value = "Devon"),
            selectInput("stat1", "Select Statistic:",
                        choices = list("wins", "losses", "ties"),
                        selected = "wins"),
            actionButton("action", label = "Generate Percentile!")
    ),
        mainPanel(
           textOutput("percentmachine")
        ))
    )

Сервер немного сложнее. Шаг 1 фильтрует sample data и создает фрейм данных 1x3 на основе входных данных. Шаг 2 извлекает необходимое значение из матрицы c и сохраняет его. Наконец, шаг 3 принимает входные данные из шага 2 и выдает процентиль. 

server <- function(input, output) {
    step1 <- reactive({sampledata %>%
        transmute(player, stat = zscore(input$stat1)) %>%
        filter(player == input$playerfind)})

    step2 <- reactive({step1()[1,2]})

    step3 <- reactive({round(pnorm(step2())*100, digits = 1)})

    output$percentmachine <- renderText ({
        input$action
        isolate(paste(input$playerfind, 
                      "had more",
                      input$stat1,
                      "than",
                      step3(),
                      "percent of players."))})
}

Я считаю, что ошибка возникает из-за input$stat1 на шаге 1. Если я заменю этот ввод заданным c stat Например, «выигрывает», блестящее приложение работает нормально, хотя статистику c изменить нельзя. Я боролся с этим довольно долгое время, поэтому решил спросить здесь. Заранее спасибо! xD

Ответы [ 2 ]

0 голосов
/ 28 мая 2020

Вы вводите значение character в функцию, которая принимает numeric.

Я буду моделировать за пределами яркой / реактивной среды. 

input <- list(playerfind="Devon", stat1="wins")
# I don't have mosaic installed
zscore <- function( x, na.rm=getOption("na.rm", FALSE) ) ( x - mean(x, na.rm=na.rm)) / sd(x, na.rm=na.rm)
sampledata %>%
  transmute(player, stat = zscore(input$stat1))
# Warning in mean.default(x, na.rm = na.rm) :
#   argument is not numeric or logical: returning NA
# Error in x - mean(x, na.rm = na.rm) (from #1) : 
#   non-numeric argument to binary operator

Можно исправьте это с помощью трюка, используя get: 

sampledata %>%
  transmute(player, stat = zscore(get(input$stat1)))
#     player       stat
# 1     John -1.4863011
# 2     Mike -1.1560120
# 3    Devon -0.8257228
# 4     Greg -0.4954337
# 5    Bruce -0.1651446
# 6  Zachary  0.1651446
# 7     Jack  0.4954337
# 8   Graham  0.8257228
# 9   Jordan  1.1560120
# 10   Sandy  1.4863011

### which is effectively this
zscore(sampledata$wins)
#  [1] -1.4863011 -1.1560120 -0.8257228 -0.4954337 -0.1651446  0.1651446
#  [7]  0.4954337  0.8257228  1.1560120  1.4863011

(а затем filter по мере необходимости).

Другой способ исправить это, возможно, излишний, но в случае, если он дает понимание в другие действия в вашем проекте, мы можем преобразовать данные от широких к длинным. Поскольку мы уже используем dplyr, я добавлю tidyr: 

library(tidyr)

### this is just a demo of reshaping from wide to long
sampledata %>%
  pivot_longer(c(-player, -team), names_to = "winlose", values_to = "val")
# # A tibble: 20 x 4
#    player  team  winlose   val
#    <fct>   <fct> <chr>   <int>
#  1 John    A     wins        1
#  2 John    A     losses     10
#  3 Mike    B     wins        2
#  4 Mike    B     losses      9
#  5 Devon   A     wins        3
#  6 Devon   A     losses      8
#  7 Greg    B     wins        4
#  8 Greg    B     losses      7
#  9 Bruce   A     wins        5
# 10 Bruce   A     losses      6
# 11 Zachary B     wins        6
# 12 Zachary B     losses      5
# 13 Jack    A     wins        7
# 14 Jack    A     losses      4
# 15 Graham  B     wins        8
# 16 Graham  B     losses      3
# 17 Jordan  A     wins        9
# 18 Jordan  A     losses      2
# 19 Sandy   B     wins       10
# 20 Sandy   B     losses      1


### this is the actual work
sampledata %>%
  pivot_longer(c(-player, -team), names_to = "winlose", values_to = "val") %>%
  filter(winlose == input$stat1) %>%
  mutate(z = zscore(val))
# # A tibble: 10 x 5
#    player  team  winlose   val      z
#    <fct>   <fct> <chr>   <int>  <dbl>
#  1 John    A     wins        1 -1.49 
#  2 Mike    B     wins        2 -1.16 
#  3 Devon   A     wins        3 -0.826
#  4 Greg    B     wins        4 -0.495
#  5 Bruce   A     wins        5 -0.165
#  6 Zachary B     wins        6  0.165
#  7 Jack    A     wins        7  0.495
#  8 Graham  B     wins        8  0.826
#  9 Jordan  A     wins        9  1.16 
# 10 Sandy   B     wins       10  1.49
0 голосов
/ 28 мая 2020

Согласно эта страница , zscore первый аргумент (x) - это числовой c вектор.

input$stat1 - это символ.

...