エラー：引数

Question

密度のヒストグラムを作成しようとしていますが、エラーが発生しています。引数 'x'は数値でなければなりません。私はas.numeric（input $ d）をdの代わりに使用しようとしましたが、同じエラーが発生しました。誰もこれを解決する方法を知っていますか？

server.R

output$hist <- renderPlot({ 

    input$action 

    if(is.null(input$action)) 
    return(NULL) 

    else 

    isolate({ 

     trees3 <- FindTreesCHM(chm(), (as.numeric(input$fws)), (as.numeric(input$minht))) 
     d <- density(trees3["height"]) 
     plot(d, xlab = "Height", ylab = "Density", main = "") 
     polygon((as.numeric(input$d)), col = "darkseagreen") 

    }) 
    }) 

はあなたにたくさんありがとうございました！ :)

Answer 1

d <- density(trees3["height"])に問題があると思います。 density関数の最初の引数はxであり、数値でなければなりません。 [[]]の代わりに[]を使用しています。 []は要素のリストを返し、[[]]は単一の要素をリストに返します。だから

d <- density(trees3[["height"]])で

d <- density(trees3["height"])

を変更してみてください。

また、あなたのコードにelseが必要とは思われません。しかし、if...elseステートメントを使用する必要がある場合は、次の点を確認してください。

It is important to note that else must be in the same line as the closing braces of the if statements. http://www.programiz.com/r-programming/if-else-statement