[我正在提取财务数据,并试图将其输出得井井有条。我对动物园功能不熟悉。尝试使正收益为绿色,负收益为红色,我收到以下错误:
在Zoo中的警告(cd,order.by = index(x),...):如果“ order.by”中的索引项不是唯一的,则某些用于“ zoo”对象的方法将不起作用
library(tidyverse)
library(tidyquant)
library(shiny)
#Stock assignments
stock_1<-'AMZN'
stock_2<-'CMG'
stock_3<-'TSS'
stock_4<-'FB'
stock_5<-'T'
#Creating Input Boxes for Stocks and Weights of the Portfolio
ui <- fluidPage(
titlePanel('Portfolio Daily Returns'),
sidebarLayout(
sidebarPanel(
fluidRow(
column(6,textInput("S1",h3('Input Stock 1'),stock_1)),
column(6,numericInput("w1",h3("Input Weight 1"),.25))
),
fluidRow(
column(6,textInput("S2",h3('Input Stock 2'),stock_2)),
column(6,numericInput("w2",h3("Input Weight 2"),.25))
),
fluidRow(
column(6,textInput("S3",h3('Input Stock 3'),stock_3)),
column(6,numericInput("w3",h3("Input Weight 3"),.2))
),
fluidRow(
column(6,textInput("S4",h3('Input Stock 4'),stock_4)),
column(6,numericInput("w4",h3("Input Weight 4"),.2))
),
fluidRow(
column(6,textInput("S5",h3('Input Stock 5'),stock_5)),
column(6,numericInput("w5",h3("Input Weight 5"),.1))
),
dateRangeInput("D",h3("Input Start and End Dates"),
'2019-09-01',Sys.Date())
),
mainPanel(plotOutput("plot"))
)
)
#Shows daily volatility of your portfolio returns. Set for the last month but can adjust
server <- function(input,output){
dataInput <- reactive({
dat <- tq_get(c(input$S1,input$S2,input$S3,input$S4,input$S5),from=input$D[1],to=input$D[2])%>%
group_by(symbol)%>%
tq_transmute(select=volume,mutate_fun = periodReturn,period='daily',
col_rename = 'Daily_Vol')%>%
tq_portfolio(assets_col=symbol,returns_col = Daily_Vol,weights=c(
input$w1,input$w2,input$w3,input$w4,input$w5),col_rename = 'Port_Vol')
dat$sign = ifelse(dat$Port_Vol >= 0, "positive", "negative")
return(dat)
})
output$plot <- renderPlot({
ggplot(dataInput(),aes(x=date,y=Port_Vol))+geom_col()
scale_fill_manual(values = c("positive"="green","negative"="red"))
})
}
shinyApp(ui=ui,server=server)
这是获取带有红色和绿色条形图的解决方案。首先更改dat $ sign分配语句以匹配以下内容:
dat$sign = ifelse(dat$Port_Vol >= 0, TRUE, FALSE)
然后更改renderPlot语句以匹配以下内容:
output$plot <- renderPlot({
dat <- dataInput()
ggplot(dat,aes(x=date,y=Port_Vol,fill=sign))+geom_col()+
scale_fill_manual(values = c("red","green"))
})
运行代码时没有收到“ zoo”错误,因此我无法帮助您解决该问题。您可能要确保在您的计算机上更新了Zoo库。