作者empireisme (empireisme)
看板R_Language
標題[問題]用shiny來作圖(無法發布)本機端可以動
時間Tue Mar 10 01:30:15 2020
我心血來潮寫了一個可以簡易計算儲蓄險的function
require(ggplot2)
#year <- 20 #你要繳納幾年
#restyear <- 40 #繳完後還可以活多久
#yearget <- 12 #一年得到多少錢
#yearpay <- 10 #一年繳多少錢
#rate <- 0.02 #你認為的市場利率
npvplot <- function(yearpay=10,yearget=12,rate=0.02,year=20,restyear=40
){
npv<-function(yearpay=10,yearget=12,rate=0.02,year=20,restyear=40){
benefit<- sum( yearget/ ( (1+rate)^seq(year-1, year+restyear-1) ) )
cost <- sum ( yearpay/ ( (1+rate)^seq(0, year-1 ) ) )
return( benefit-cost )
}
benefit <- vector("numeric",length = 50)
for(i in 1:50){
benefit[i]<- npv(yearpay=10,yearget=12,rate=0.02,year=20,i)
}
restlife <- c(1:50)
dat <- data.frame(restlife,benefit)
qplot(restlife,benefit,geom = "line")
}
npvplot()
這個function會畫出 繳費完後每多活一年，NPV的淨值會如何變化的圖
但是我想把它做成shiny
但是不知道為何沒又error但是畫出來的圖形都是一條水平線
library(plotly)
library(shiny)
library(ggplot2)
ui <- fluidPage(
titlePanel(title=h4("簡易儲蓄險NPV計算()", align="center")),
actionButton("go", "Go"),
numericInput("yearpay", "一年要繳多少錢(萬)", 10),
numericInput("year", "要繳幾年", 20),
numericInput("yearget", "期滿後一年可得的報酬(萬)", 12),
numericInput("restyear", "期滿後預期可活幾年", 40),
numericInput("rate", "你認為的通貨膨脹率", 0.02),
plotOutput("plot")
)
server <- function(input, output) {
npvplot <- function(yearpay,yearget,rate,year,restyear){
npv<-function(yearpay,yearget,rate,year,restyear){
benefit<- sum( yearget/ ( (1+rate)^seq(year-1, year+restyear-1) ) )
cost <- sum ( yearpay/ ( (1+rate)^seq(0, year-1 ) ) )
return( benefit-cost )
}
benefit <- vector("numeric",length = 50)
for(i in 1:50){
benefit[i]<- npv(yearpay,yearget,rate,year,i)
}
restlife <- c(1:50)
dat <- data.frame(restlife,benefit)
return(dat )
#qplot(restlife,benefit,geom = "line")
}
value<- eventReactive(input$go, {
npvplot(input$yearpay,input$year,input$yearget,input$restyear,input$rate)
})
output$plot <- renderPlot({
ggplot(value(),aes(x=restlife,y=benefit))+geom_line()
})
}
shinyApp(ui, server)
想請問各位大神是哪裡出錯了
附上改正
https://pastebin.com/K6NA8DUL
目前是local可以動 但是無法發布 出現 error
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 219.91.75.186 (臺灣)
※ 文章網址: https://webptt.com/m.aspx?n=bbs/R_Language/M.1583775019.A.83D.html
1F：→ cywhale: 你輸入的順序和你的function順序錯了，改一下就可以03/10 11:56
2F：→ andrew43: 圖沒錯。你的npvplot()就是回傳這樣的dataframe。03/10 11:59
3F：→ cywhale: ..input$yearget,input$rate,input$year,input$restyear,03/10 12:02
附上改正的程式碼
https://pastebin.com/K6NA8DUL
後來改正後就可以用了 真的是順序錯誤 但是我發現 本地端可以用 卻無法發布
The application failed to start (exited with code 1).
Error in value[[3L]](cond) : there is no package called ‘plotly’
Calls: local ... tryCatch -> tryCatchList -> tryCatchOne -> <Anonymous>
停止執行
出現這個error 請問該如何處理
我有裝plotly阿
※ 編輯: empireisme (219.91.75.186 臺灣), 03/10/2020 13:08:01
※ 編輯: empireisme (219.91.75.186 臺灣), 03/10/2020 13:23:15
※ 編輯: empireisme (219.91.75.186 臺灣), 03/10/2020 13:32:21
我發現沒有中文就可以
但只有英文的話可以成功
想請問該如何處理
※ 編輯: empireisme (219.91.75.186 臺灣), 03/10/2020 14:19:43