data('FundamentalData_Q1_2018')
Data=as.matrix(FundamentalData_Q1_2018$Data)
Cls = FundamentalData_Q1_2018$Cls
Class1Data = matrix(NA, nrow = nrow(Data), ncol = 2)
Class2Data = matrix(NA, nrow = nrow(Data), ncol = 2)
Class1Data[which(Cls==1), ] = Data[which(Cls==1), c("TotalAssets", "TotalLiabilities")]
Class2Data[which(Cls==2), ] = Data[which(Cls==2), c("TotalAssets", "TotalLiabilities")]
YMatrix = cbind(Class1Data,
Class2Data)
#Option 1: character vector
ClassErrorbar(c("TotalRevenue","GrossProfit"),
YMatrix, c
(1,1,2,2),
ClassNames=c("Class 1", "Class 2"),
main="ClassErrorbar of Q1 2018 for total revenue and gross profit",
xlab="GrossProfit/TotalRevenue",
ylab="Median +- std",
WhiskerWidth = 1)
#Option 2: numerical vector
ClassErrorbar(c(1,2),
YMatrix,
c(1,1,2,2),
ClassNames=c("Class 1", "Class 2"),
main="ClassErrorbar of Q1 2018 for total revenue and gross profit",
xlab="GrossProfit/TotalRevenue",
ylab="Median +- std",
WhiskerWidth = 1)
#Option 3: numerical vector + line
if (FALSE) {
#arbitrary data
Y_someOtherData=cbind(YMatrix,YMatrix,
YMatrix,YMatrix)
some_values=c(2,3,4,5,6,8,9,10)
ClassErrorbar(some_values,
Y_someOtherData,
c(1,1,2,2),
ClassNames=c("Class 1", "Class 2"),
main="ClassErrorbar of Q1 2018 for total revenue and gross profit",
xlab="GrossProfit/TotalRevenue",
ylab="Median +- std",
WhiskerWidth = 1)$ggobj+
geom_smooth(method="auto", se=F, fullrange=F, level=0.95)
}
Run the code above in your browser using DataLab