R 交互式闪亮应用//错误：提供给连续缩放的离散值

我使用以下代码从quantmod下载了一些财务数据（2016年每天的收盘价）：

library(quantmod)
DJ30_smbl_list = c("AAPL", "AXP", "BA", "CAT", "CSCO", "CVX","DWDP", "DIS", "GE",
               "GS", "HD", "IBM", "INTC", "JNJ", "JPM", "KO", "MCD", "MMM",
               "MRK", "MSFT", "NKE", "PFE", "PG", "TRV", "UNH", "UTX", "V",
               "VZ", "WMT", "XOM")

# use a for loop to import closing price to DJIA
DJIA <- c()
for(j in DJ30_smbl_list){
DJIA<- cbind(DJIA, getSymbols(j, auto.assign = F, from =   "2016-01-01", to = "2017-01-01")[,4])
    }
colnames(DJIA) = DJ30_smbl_list

ui=fluidPage(
titlePanel("Correlation of Stocks"),
selectInput(inputId="stock",label="Choose stock 1:",c("AAPL", "AXP", "BA", "CAT", "CSCO", "CVX", "DWDP", "DIS", "GE",
               "GS", "HD", "IBM", "INTC", "JNJ", "JPM", "KO", "MCD", "MMM",
               "MRK", "MSFT", "NKE", "PFE", "PG", "TRV", "UNH", "UTX", "V",
               "VZ", "WMT", "XOM")),
selectInput(inputId="stock2",label="Choose stock 2:",c("AAPL", "AXP", "BA", "CAT", "CSCO", "CVX", "DWDP", "DIS", "GE",
               "GS", "HD", "IBM", "INTC", "JNJ", "JPM", "KO", "MCD", "MMM",
               "MRK", "MSFT", "NKE", "PFE", "PG", "TRV", "UNH", "UTX", "V",
               "VZ", "WMT", "XOM")),
plotOutput(outputId="scatter"))
server=function(input,output){
output$scatter<-renderPlot({ggplot(DJIA, aes(input$stock, input$stock2)) + geom_point() + scale_x_continuous(input$stock, breaks = seq(0, 150,10))+ scale_y_continuous(input$stock2, breaks = seq(0, 150,by = 10))+ theme_bw()+labs(title="STOCKS")})
}
shinyApp(ui=ui,server=server)
```

库（quantmod）
DJ30_smbl_list=c（“AAPL”、“AXP”、“BA”、“CAT”、“CSCO”、“CVX”、“DWDP”、“DIS”、“GE”，
“GS”、“HD”、“IBM”、“INTC”、“JNJ”、“JPM”、“KO”、“MCD”、“MMM”，
“MRK”、“MSFT”、“NKE”、“PFE”、“PG”、“TRV”、“UNH”、“UTX”、“V”，
“VZ”、“WMT”、“XOM”）
#使用for循环将收盘价导入DJIA
DJIA您忘记了
ggplot
美学中的
get

渲染函数应如下所示：

server=function(input,output){

  output$scatter<-renderPlot({
    ggplot(DJIA, aes(get(input$stock), get(input$stock2))) + 
     geom_point() + 
     scale_x_continuous(input$stock, breaks = seq(0, 150,10))+ 
     scale_y_continuous(input$stock2, breaks = seq(0, 150,by = 10))+ 
    theme_bw()+
     labs(title="STOCKS")})

server=功能（输入、输出）{
输出$scatter非常感谢！这似乎可以解决问题。我对R相当陌生，所以我一直在努力解决这个问题！解决了