Realtors owning at least 1% of listings in since 2010 and their combined market share
data2 = prop.table(table(data$`List Desig Agt 1 - Agent Name`))
data2[data2>.01]
##
## Amy Brattebo - PREC Dan Flokstra Danny Evans
## 0.01449814 0.01710037 0.01933086
## Don Munro - PREC Douglas Mitten Eleanor Wrigley - PREC
## 0.01598513 0.01747212 0.02379182
## Gary Hooge - PREC Leo Ronse Mercia McKitrick
## 0.02788104 0.05576208 0.01635688
## Peter Iwasiuk Tracey Bosch - PREC Will Rempel
## 0.03531599 0.07397770 0.01263941
sum(data2[data2>.01])
## [1] 0.3301115
Realtors owning at least 1% of sales in since 2010 and their combined market share
data3 = filter(data, Status == "S")
data3 = prop.table(table(data3$`List Desig Agt 1 - Agent Name`))
data3[data3>.01]
##
## Amy Brattebo - PREC Dan Flokstra Danny Evans
## 0.01430615 0.01573677 0.01931330
## Don Munro - PREC Douglas Mitten Eleanor Wrigley - PREC
## 0.01287554 0.01502146 0.03147353
## Gary Hooge - PREC Joe Varing - PREC Leo Ronse
## 0.03791130 0.01001431 0.06151645
## Mercia McKitrick Peter Iwasiuk Steve Klassen - PREC
## 0.01788269 0.02861230 0.01072961
## Tracey Bosch - PREC Will Rempel
## 0.09012876 0.01859800
sum(data3[data3>.01])
## [1] 0.3841202
Realtors owning at least 1% of expired listings in since 2010 and their combined market share
data4 = filter(data, Status == "X")
data4 = prop.table(table(data4$`List Desig Agt 1 - Agent Name`))
data4[data4>.01]
##
## Dan Flokstra Danny Evans Don Munro - PREC
## 0.02127660 0.01861702 0.01861702
## Douglas Mitten Eleanor Wrigley - PREC Garry Reimer - PREC
## 0.02304965 0.01595745 0.01241135
## Gary Hooge - PREC Leo Ronse Mercia McKitrick
## 0.01950355 0.04964539 0.01684397
## Paul Frost Peter Iwasiuk Sarina Han PREC*
## 0.01152482 0.04875887 0.01152482
## Tracey Bosch - PREC
## 0.05585106
sum(data4[data4>.01])
## [1] 0.3235816
Realtors owning at least 1% of listings in since 2015 and their combined market share
data5 = filter(data, `List Date` > "2015-01-01")
data5 = prop.table(table(data5$`List Desig Agt 1 - Agent Name`))
data5[data5>.01]
##
## Amy Brattebo - PREC Dan Flokstra Danny Evans
## 0.02242152 0.01537476 0.02049968
## Don Munro - PREC Douglas Mitten Eleanor Wrigley - PREC
## 0.01409353 0.01729660 0.03074952
## Gary Hooge - PREC Leo Ronse Mercia McKitrick
## 0.02434337 0.04548366 0.01089045
## Nick Costantino Nicole Langfield Peter Iwasiuk
## 0.01153107 0.01024984 0.02562460
## Tracey Bosch - PREC Will Rempel
## 0.07303011 0.01601537
sum(data5[data5>.01])
## [1] 0.3376041
Realtors owning at least 1% of listings in since 2017 and their combined market share
data6 = filter(data, `List Date` > "2017-01-01")
data6 = prop.table(table(data6$`List Desig Agt 1 - Agent Name`))
data6[data6>.01]
##
## Amy Brattebo - PREC Dan Flokstra Danny Evans
## 0.03216080 0.01507538 0.01507538
## Don Munro - PREC Douglas Mitten Eleanor Wrigley - PREC
## 0.01407035 0.01608040 0.03115578
## Gary Hooge - PREC Joan Hansen Leo Ronse
## 0.01809045 0.01005025 0.05226131
## Mercia McKitrick Peter Iwasiuk Tracey Bosch - PREC
## 0.01206030 0.02311558 0.05728643
## Will Rempel
## 0.01608040
sum(data6[data6>.01])
## [1] 0.3125628
Realtors owning at least 1% of listings for 2020 and their combined market share
data7 = filter(data, `List Date` > "2020-01-01")
data7 = prop.table(table(data7$`List Desig Agt 1 - Agent Name`))
data7[data7>.01]
##
## Amy Brattebo - PREC Danny Evans Don Munro - PREC
## 0.04620462 0.01320132 0.01650165
## Douglas Mitten Duncan J Moffat Eleanor Wrigley - PREC
## 0.01320132 0.01320132 0.01320132
## Emily Sandhack PREC* Guy Biggar - PREC Harjot Riarh - PREC
## 0.02310231 0.01650165 0.01320132
## Ishwinder Ghag - PREC Joan Hansen Leo Ronse
## 0.01650165 0.01320132 0.05940594
## Nicole Nong Rajin Gill - PREC Ryan Hai You PREC*
## 0.01320132 0.01650165 0.01320132
## Sherry Saran - PREC Tracey Bosch - PREC Wells Macey
## 0.01650165 0.05940594 0.01320132
## Will Rempel
## 0.01650165
sum(data7[data7>.01])
## [1] 0.4059406