Question

我在R中使用简单的Shiny应用，但我在应用中遇到了这个错误：

下标越界

这个想法是有一个侧边栏面板，你可以选择声音或辅音，以及一个用一些数字可视化一些字母的条形图，清楚地选择一个声音，人声是有价值的，等等与辅音。

这是我的代码

首先，我创建数据：

x1<-c(1,2,6,3,8)
y1<-c('a','b','c','d','e')
z1<-c('V','C','C','C','V')
df<-data.frame(x1,y1,z1)

data.m <- melt(df, id=c(2:3), measure=c(1))
df2<-cast(data.m , z1 ~ y1)
df3<-as.matrix(df2)

这里是服务器代码：

##server
function(input, output) {      

  output$Plot <- renderPlot({

    library(reshape)
    barplot(df3[,input$letters])

  })
}

这里的ui部分

##ui


   fluidPage(    

  titlePanel("letters"),

  sidebarLayout(      
  sidebarPanel(
  selectInput("letters", "Letters", 
              choices=rownames(df3)),
   hr(),
  helpText("Types of letters")
),

mainPanel(
  plotOutput("Plot")  
    )   
  )
)

错误是标题中的错误。你可以帮帮我吗？此外，有没有办法将数据放入Shiny应用程序，以便在启动应用程序时加载它们？非常感谢提前

R有光泽，下标出界

0 个答案: