scatter3dとShinyでプロットを動的に生成

Question

私は3つの変数を選択し、scatter3Dで3D散乱を再生するためのクイックアプリを作成しようとしています。私は光沢を使用するときこのエラーを打つし続け、私はそれを修正するために見ることができません。

x = paste("df.output$",input$test,sep=""), 
y = paste("df.output$",input$test2,sep=""), 
z = paste("df.output$",input$test3,sep=""), 

私のUI機能は、この

ui <- fluidPage(
    titlePanel("3 Dimensional Cluster Analysis"), 
    sidebarLayout( 
    sidebarPanel(
    selectInput("test", "X-Axis", choices=colnames(df.output) , 
    selected=colnames(df.output[1]), width = NULL, size = NULL), 
    selectInput("test2", "Y-Axis", choices=colnames(df.output), 
    selected=colnames(df.output[2]), width = NULL, size = NULL), 
    selectInput("test3", "Z-Axis", choices=colnames(df.output), 
    selected=colnames(df.output[3]), width = NULL, size = NULL)), 

    mainPanel(
    rglwidgetOutput("plot", width = 1000, height = 500) 
    ) 
    )) 

Serverの機能のように見えます

x = df.output$age_scaled 
y = df.output$freq_scaled 
z = df.output$bonus_scaled 

この

のように見える

で：置き換える場合

Error: not all arguments have the same length

私のコードも動作します長さ1文字ベクトルへ

library(rgl) 

server <- (function(input, output) 
{ 
    # reactive({ 
    # a <- paste("df.output$",test$input,sep="") 
    # }) 
    output$plot <- renderRglwidget(
    { 
     rgl.open(useNULL=T) 
     scatter3d(
     x = paste("df.output$",input$test,sep=""), 
     y = paste("df.output$",input$test2,sep=""), 
     z = paste("df.output$",input$test3,sep=""), 
     groups = as.factor(df.output$Cluster), 
     grid=FALSE, 
     surface=FALSE, 
     ellipsoid=TRUE, 
     ellipsoid.alpha=0.5, 
     fit=smooth, 
     xlab=input$test, 
     ylab=input$test2, 
     zlab=input$test3 
    ) 
     par3d(mouseMode = "trackball") 
     rglwidget() 
    }) 
}) 

Answer 1

あなたのコード

x = paste("df.output$",input$test,sep="") 

集合X。あなたがデータフレームからコンポーネントを選択したい場合は、

x = df.output[[input$test]] 

あなたのコードを使用してもscatter3d（それはrgl機能ではありません）を含むパッケージを使用していません。 carパッケージにはこの名前の関数があり、plot3Dパッケージには同様の名前が付けられています。