Question

我想构建一个允许我在2个离散变量图上切换变量的应用程序，但是执行时出现错误：

解析错误（文件，keep.source = FALSE，srcfile = src，编码=   enc）：C：\ Users \ HH Portable \ Desktop \ Dossier R \ Jeux de   données\ Thai / ui.R：13：0：输入11意外结束：
  mainPanel（plotOutput（'plot1'））12：）^警告：错误   sourceUTF8：错误来源   C：\ Users \ HHPORT〜1 \ AppData \ Local \ Temp \ RtmpekudB9 \ fileab876054ad6 [否   可用的堆栈跟踪]

library(shiny)

# ----- UI ----------------------------
pageWithSidebar(

  headerPanel('Representer les variables'),
  sidebarPanel(
    selectInput('xcol', 'X Variable', names(the)),
    selectInput('ycol', 'Y Variable', names(the)
       ),
  mainPanel(plotOutput('plot1'))
)

#----- Server.r ------------------------------
library(shiny)
library(ggplot2)
# ---- Server ----------------------------------
# ---- ggplot with options ------------------------
server=shinyServer(function(input, output, session) {
  output$plot1 <- renderPlot({
    ggplot(the, aes(x=input$xcol, ..count..*100/sum(..count..))) + 
      geom_bar(aes(fill = input$ycol), position = "fill") +
      geom_text(aes( label = scales::percent(..prop..),y= ..prop.. ), 
                stat= "count", vjust = -.5)
      })
})

Answer 1

请尝试在extension UITextField { class func connectFields(fields: [UITextField]) { guard let last = fields.last else { return } // To reset the targets in case you call this method again to change the connected fields fields.forEach { $0.removeTarget(nil, action: nil, for: .editingDidEndOnExit) } for i in 0 ..< fields.count - 1 { fields[i].returnKeyType = .next fields[i].addTarget(fields[i + 1], action: #selector(UIResponder.becomeFirstResponder), for: .editingDidEndOnExit) } last.returnKeyType = .continue last.addTarget(last, action: #selector(UIResponder.resignFirstResponder), for: .editingDidEndOnExit) } }周围使用get()，因为input$...和input$xcol是字符串，而input$ycol不接受字符串。

下次您发布问题时，请为其他人添加一个可复制的小示例，以帮助您解决。

希望这会有所帮助。

aes()

Rshiny有2种离散变量：为什么不起作用？

1 个答案: