geom_lineを使用して、ggplotの4つのデータ棒グラフに線をプロットする必要があります。

Question

バーグラフは四半期ごとのデータに使用され、そのラインは1年全体のデータになるため、多くの点があるため、エラーが発生し続けます。

唯一の問題は、私が初めて使ったgeom_line関数です。エラーがある - scale_fill_manual（値= Cの（）、 "緑"、 "黄"）+ geom_line（AES（X = DTS2、IN>

エラー：非数値引数は、バイナリオペレータに

t="DG" 
fin=getFinancials(t, auto.assign = F) 
dts = labels(fin$BS$A)[[2]] 
dts2 = paste(substr(dts,1,7),"::",dts, sep="") 
stockprices = getSymbols(t, auto.assign = F) 
price = rep(0,NROW(dts)) 
for(i in 1:NROW(price)) 
{ 
    price[i]=as.vector(last(stockprices[dts2[i],6])) 
} 

yr= as.numeric(substr(dts,1,4)) 
pastyr = yr -2 
betayr = paste(pastyr,"::",yr,sep="") 

os = fin$BS$A["Total Common Shares Outstanding", ] 
gw= fin$BS$A["Goodwill, Net", ] 
ta= fin$BS$A["Total Assets", ] 
td= fin$BS$A["Total Debt", ] 
ni= fin$IS$A["Net Income", ] 
btax = fin$IS$A["Income Before Tax", ] 
atax = fin$IS$A["Income After Tax",] 

intpaid = fin$CF$A["Cash Interest Paid, Supplemental",] 
gw[is.na(gw)]=0 
intpaid[is.na(intpaid)]=0 
taa = (ta - gw)/os 

Rd = rep(0,NROW(dts)) 

for(i in 1:NROW(dts)) 
{ 
    if(td[i]!=0) 
    { 
    Rd[i] = intpaid[i]/td[i] 
    } 
} 


gspc = getSymbols("^GSPC", auto.assign = F) 
gs5 = getSymbols("GS5", src = "FRED", auto.assign = F) 

marketRisk = rep(0,NROW(dts)) 
riskFree = rep(0,NROW(dts)) 
beta = rep(0,NROW(dts)) 

for(i in 1:NROW(dts)) 
{ 
marketRisk[i]= mean(yearlyReturn(gspc[betayr[i]])) 
riskFree[i] = mean(gs5[betayr[i]]) 
gspc.weekly = weeklyReturn(gspc[betayr[i]]) 

stockprices.weekly = weeklyReturn(stockprices[betayr[i]]) 
beta[i] = CAPM.beta(stockprices.weekly,gspc.weekly) 
} 

Re = (riskFree/100) + beta * (marketRisk-(riskFree/100)) 

E = os*price 
V=E+td 
Tc = (btax - atax)/btax 
wacc = (E/V)*Re + (td/V)*Rd*(1-Tc) 
margin = (ni/wacc)/os - taa 

taadf = data.frame(dts,val = taa,cat="ta") 
margindf = data.frame(dts,val = margin ,cat="margin") 

mdf=rbind(margindf,taadf) 

#linrng = paste(dts[NROW(dts)],"::",dts[1],sep="") 

#dfdt = data.frame(stockprices[linrng,6]) 
#dfdt2 = data.frame(dt = labels(dfdt)[[1]],dfdt$AAPL.Adjusted,cat="taa") 
#names(dfdt2)=c("dt,price,cat") 
pricedf = data.frame(as.vector((stockprices[dts2[i],6]))) 
ggplot(mdf, aes(x=dts,y=val,fill=cat)) + geom_bar(stat="identity",color="black") 
    scale_fill_manual(values = c("green","yellow")) + 
    geom_line(aes(x=dts2, y=stockprices), stat = "identity", 
    position = "identity", na.rm = FALSE, show.legend = NA, 
    inherit.aes = TRUE) 

Answer 1

ノート、オブジェクトstockpricesはAn ‘xts’ objectある。だから、あなたはggplotスケール内で使用することはできません。私は、コードを表示するためにstockpricesオブジェクトの拳変数を選んだが、あなたは別のものを欲しいprobabli。

library(dplyr) 
library(quantmod) 
library(PerformanceAnalytics) 
library(ggplot2) 

stockprices_df <- as.data.frame(stockprices) %>% 
    mutate(date = rownames(.)) %>% 
    filter(date %in% dts) 

ggplot() + 
    geom_col(
    data = mdf, 
    aes(x = dts,y = val,fill = cat) 
) + 
    geom_line(
    data = stockprices_df, 
    aes(x = date, y = DG.Open, group = 1) 
) + 
    scale_fill_manual(values = c("green","yellow")) 

[