У меня всегда возникают проблемы с созданием сложных объектов newTA с помощью Quantmod, но здесь - это пример SO. Мне проще использовать rtsplot. Это пакет для построения объектов xts, но на основе базовых графиков.
Поскольку гистограмма macd - это не что иное, как разница между macd и сигналом macd, вы можете создать свои собственные значения гистограммы:
library(quantmod)
goog <- getSymbols("GOOGL", from = "2019-01-01", auto.assign = F)
goog_macd <- MACD(goog$GOOGL.Close)
goog_macd_his <- goog_macd$macd - goog_macd$signal
library(rtsplot)
layout(c(1,1,1,2))
rtsplot(goog, type = "candle")
rtsplot(goog_macd_his , type = "h", lwd = 2)