BT Proposal Graphics

library(stats)
library(ggplot2)
require(graphics)

BTProp_types <- read.csv("~/OneDrive/Documents/NaMax Limited 2015/G4H/BT/BT Proposal Graphics/BTProp_types.csv")
# Legend
## FM = Fund manager
## IFL = IFA
## MB = Bank
## WM = Wealth Manager
##
## L = Large (for banks - medium)
## S = Small
# Initial investigation
# Exchange v Forex
p <- ggplot(BTProp_types, aes(XCL_H , FX_H, colour = Type)) 

p + geom_point() + ggtitle("Exchange vs Forex - High")

#
p <- ggplot(BTProp_types, aes(XCL_H , AN_H, colour = Type)) 

p + geom_point() + ggtitle("Exchange vs Analytics - High")

p <- ggplot(BTProp_types, aes(XCL_H , OM_H, colour = Type)) 

p + geom_point() + ggtitle("Exchange vs Order Management - High")

p <- ggplot(BTProp_types, aes(XCL_H , BRO_H, colour = Type)) 

p + geom_point() + ggtitle("Exchange vs Brokerage - High")

p <- ggplot(BTProp_types, aes(XCL_H , CLR_H, colour = Type)) 

p + geom_point() + ggtitle("Exchange vs Clearing - High")