totalLandscapeSummary <- function(universe, subUniverse, benchmarkKeywords) {
sum(esgTable$esgCount)
sum(esgTable$fundsCount)
sum(esgTable$esgCount)/sum(esgTable$fundsCount)
sum(esgTable$esgAUM)/sum(esgTable$AUM)
}
plotCountRatioForSubUniverse <- function(universe, subuniverse, benchmarkKeywords) {
esgTable %>%
ggplot(aes(x=provider, y=esgRatio, fill=provider)) +
geom_bar(stat="identity") +
geom_label(fill='white',aes(label=round(esgRatio, digits=4))) +
fillTheme
}
plotAUMRatioForSubUniverse <- function(universe, subuniverse, benchmarkKeywords) {
esgTable %>%
ggplot(aes(x=provider, y=aumRatio, fill=provider)) +
geom_bar(stat="identity") +
geom_label(fill='white',aes(label=round(aumRatio, digits=4))) +
fillTheme
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.