BrainShark Audit Analysis
Lydia Maher
Change in Folders -Visuals
Presentation.Creation.4 <- read.delim("~/BrainShark Documents/Presentation Creation 4.CSV")
brain4 <- Presentation.Creation.4
folderzcount <- table(brain4$FolderName)
par(mar=c(6,3,2,1))
barplot(folderzcount, las = 2, main = "Frequency of Use of Folder Names", cex.names = 0.75, col = "blue")
folderzcount2 <- folderzcount[-c(1,9, 27:46)]
par(mar=c(6,3,2,1))
barplot(folderzcount2, las = 2, main = "Frequency of Use of Folder Names", cex.names = 0.75, col = "blue")
par(mar=c(12,3,2,1))
barplot(folderzcount2, las = 2, main = "Frequency of Use of Folder Names", cex.names = 0.75, col = "blue")
Change in Folders -Raw Numbers
folderzcount##
## Meltwater Group
## 207
## Meltwater Group : Admin Folder
## 40
## Meltwater Group : Buying Centers
## 6
## Meltwater Group : Client Acquisition
## 8
## Meltwater Group : Client Growth
## 5
## Meltwater Group : Client Success
## 26
## Meltwater Group : Client Success : CS Reporting & Tools
## 2
## Meltwater Group : Content Partnerships
## 4
## Meltwater Group : Courses : Courses subfolder
## 150
## Meltwater Group : Engineering
## 10
## Meltwater Group : External Resources
## 29
## Meltwater Group : HiPo 2015
## 5
## Meltwater Group : Human Resources: MDs & ADs : HR Tech
## 1
## Meltwater Group : Industry
## 10
## Meltwater Group : Interviews
## 7
## Meltwater Group : IT
## 12
## Meltwater Group : IT : SuperAdmin
## 1
## Meltwater Group : Legal
## 2
## Meltwater Group : Management Training
## 18
## Meltwater Group : New Hire Training
## 7
## Meltwater Group : Products
## 11
## Meltwater Group : Products : Fairhair
## 7
## Meltwater Group : Products : Legacy -Meltwater Buzz
## 23
## Meltwater Group : Products : Legacy -Meltwater News
## 12
## Meltwater Group : Products : Media Contacts
## 1
## Meltwater Group : Sales Training
## 10
## Meltwater Group : Users : andrew.revels@meltwater.com
## 1
## Meltwater Group : Users : belen.aleman@meltwater.com
## 6
## Meltwater Group : Users : bryan.pensirikul@meltwater.com
## 26
## Meltwater Group : Users : chris.regester@meltwater.com
## 71
## Meltwater Group : Users : david.fallon@meltwater.com
## 71
## Meltwater Group : Users : Elinor.rodger@meltwater.com
## 1
## Meltwater Group : Users : jessi.brandt@meltwater.com
## 1
## Meltwater Group : Users : keely.whitmer@meltwater.com
## 7
## Meltwater Group : Users : keely.whitmer@meltwater.com : Jamie's Folder
## 1
## Meltwater Group : Users : kristin.pitman@meltwater.com
## 1
## Meltwater Group : Users : kusal.desilva@meltwater.com
## 1
## Meltwater Group : Users : luis.carranza@meltwater.com
## 2
## Meltwater Group : Users : mike.anderson@meltwater.com
## 1
## Meltwater Group : Users : mikko.honkanen@meltwater.com
## 1
## Meltwater Group : Users : mimrah.mahmood@meltwater.com
## 2
## Meltwater Group : Users : rick.bradley@meltwater.com
## 1
## Meltwater Group : Users : ryan.ng@meltwater.com
## 1
## Meltwater Group : Users : stacy.power@meltwater.com
## 1
## Meltwater Group : Users : timea.bara@meltwater.com
## 10
## Meltwater Group : Users : tove.iggstrom@meltwater.com
## 14Summary of Views
Presentation.Creation.4.wo.courses <- read.csv("~/BrainShark Documents/Presentation Creation 4 wo courses.CSV")
brain5 <- Presentation.Creation.4.wo.courses
summary(brain5$Total.Views)## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 1.00 34.25 62.50 100.10 115.80 1514.00 3#number of videos now in the public stream
length(brain5$PresentationID)## [1] 217