Trabalho final
Eliseu Batista, Lucas Costa e Lucas Guimarães
04/08/2020
Introdução
O trabalho consiste na analise de duas bases contendo dados de fundos de investimento coletadas no software Economatica, disponivel gratuitamente na Universidade Federal da Paraíba (UFPB). A primeira base contem dados administrativos de 498 fundos, como: nome do fundo, taxa de administração, classificação Anbima, empresa gestora e outros. A segunda base contem os retornos mensais desses 498 fundos e de 3 benchmarks (Ibovespa, IBRX 100 e IBRX 50) relativos ao período de janeiro de 2010 até dezembro de 2019.
Objetivo do trabalho
O estudo tem como objetivo identificar possíveis padrões entre as variáveis qualitativas (e.g.: taxa de administração, empresa gestora) e os retornos dos fundos.
Pacotes utilizados
Para realizar o trabalho, utilizamos os seguintes pacotes
dplyrpara manipulação dos dadosreadxlpara importar as planilhas em xlsxlubridatepara manipulação de datasnaniarpara manipular os dados faltantesggplot2para elaboração de gráficos
require(dplyr)
require(readxl)
require(naniar)
require(lubridate)
require(ggplot2)Base_fundos <- read_excel("Base de dados atualizada.xlsx", sheet = "Sheet1")
Retornos <- read_excel("Retorno Base de dados atualizada.xlsx", sheet = "Sheet1")Vamos observar a estrutura dos dados
glimpse(Base_fundos)## Observations: 498
## Variables: 14
## $ ...1 <dbl> 1, 2, 3, 4, 5, 6, 7, 8, ...
## $ Nome <chr> "3 Fs FIA Invest no Exte...
## $ Classe <lgl> NA, NA, NA, NA, NA, NA, ...
## $ `Pais Sede` <chr> "BR", "BR", "BR", "BR", ...
## $ Tipo <chr> "Fundo", "Fundo", "Fundo...
## $ Situação <chr> "ativo", "ativo", "ativo...
## $ CNPJ <chr> "08038847000177", "09599...
## $ Classificação_A <chr> "Ações Invest. no Exteri...
## $ Empresa_g <chr> "Reliance Asset", "JMalu...
## $ `Data de inÃcio\r\nda situação atual` <dttm> 2006-11-23, 2008-06-30,...
## $ Taxa_adm <chr> "0.53", "2", "2", "1.5",...
## $ Qualificado <chr> "Sim", "Não", "Não", "Si...
## $ `Retorno total` <dbl> 1.5610090, 1.7757977, 2....
## $ CAGR <dbl> 0.09860383, 0.10748737, ...Classificação dos fundos
De acordo com a Anbima https://www.anbima.com.br/data/files/87/C2/AA/DD/742085106351AF7569A80AC2/NovaClassificacaoDeFundosANBIMA_apresentacao_1_.pdf, existem três níveis para classificar os fundos de investimento, o primeiro nível é quanto a classe de ativos, onde os fundos de investimento podem ser divididos em quatro grandes grupos: renda fixa, ações, multimercado e cambiais. O segundo nível é em relação ao tipo de gestão e riscos (e.g.: ativos, indexados, investimentos no exterior). Já o terceiro nível, é classificado conforme a estratégia (e.g.: ações de crescimento, ações de valor) Para a elaboração do nosso estudo, utilizamos apenas a classe de fundos de ações, caracterizados por investirem mais de 67% em renda variável (ações à vista, certificados de depósito de ações, bônus ou recibos de subscrição, entre outros). Dessa forma, a nossa base de dados é dividida, de acordo com a classificação da Anbima, da seguinte forma.
Base_fundos %>%
select(Classificação_A) %>%
table() %>%
sort()## .
## Ações Setoriais Ações Sustentabilidade/Governança
## 17 17
## Ações Dividendos Ações Small Caps
## 22 22
## Ações Valor/Crescimento Ações Indexados
## 33 38
## Ações Invest. no Exterior Ações Ãndice Ativo
## 56 104
## Ações Livre
## 189Base_fundos %>%
group_by(Classificação_A) %>%
summarise(n = n()) %>%
ggplot() +
geom_col(aes(x = Classificação_A, y = n,
color = Classificação_A, fill = Classificação_A),
show.legend = TRUE) +
scale_x_discrete(labels = NULL) +
labs(x = "Classificação Anbima", y = "Número") +
ggtitle("Distribuição classificação fundos")
Empresas gestoras
A partir da análise das empresas gestoras, é possível inferir que os grandes bancos de varejo do Brasil são também os mais presentes no segmento de asset management. Dos cinco maiores bancos do mercado brasileiro (Banco do Brasil, Bradesco, Caixa, Itaú e Santander), quatro lideram o ranking de empresas com mais fundos de ações.
emp_fundos <- Base_fundos %>%
select(Empresa_g) %>%
table() %>%
sort(decreasing = TRUE) %>%
head(5)
emp_fundos ## .
## Bram Bradesco Asset Management SA Dtvm
## 60
## Itau Unibanco SA
## 43
## BB Dtvm S.A
## 35
## Santander Brasil Gestao de Recursos Ltda
## 20
## Credit Suisse Hedging Griffo Wm S.A.
## 13Fundos qualificados ou não
Para uma análise completa, vamos entender o significado de fundos qualificados. Fundos restritos aos investidores qualificados são aqueles que apenas essa categoria de investidor pode investir. Para se tornar um investidor qualificado, o cidadão deve possuir alguma certificação do mercado financeiro ou mais de 1 milhão de reais aplicados em renda variável.
fundos_quali <- Base_fundos %>%
select(Empresa_g, Qualificado) %>%
filter(Qualificado == "Sim") %>%
table()
fundos_quali## Qualificado
## Empresa_g Sim
## 3r Gestora de Recursos Ltda 1
## Alaska Investimentos 1
## Alfa 1
## Andbank Gestao de Patrimonio Financeiro 3
## Apolo Investimentos Ltda 1
## Argucia Capital Management 1
## Arrow G Capital Consultoria e Gestao de 1
## Athena Capital Gestao de Recursos Ltda 1
## Atmos Capital 3
## Az Quest Investimentos 2
## Bahia Am Renda Variavel 1
## Banco Classico SA 1
## BB Dtvm S.A 3
## Bc Gestao Recursos Ltda 2
## BNP Paribas Asset 4
## BNY Mellon Alocacao de Patrimonio 3
## Bogari Capital 1
## Bram Bradesco Asset Management SA Dtvm 10
## Brasif Gestao Internacional Ltda 1
## Bresser Administracao de Recursos Ltda 1
## BTG Pactual 1
## BTG Pactual Wm Gestao de Recursos Ltda 10
## Carpa Gestora de Recursos Ltda 3
## Ceres Fund.Seg Social 1
## Cfo Administracao de Recursos Ltda 6
## Constellation Investim e Particip Ltda 2
## Cox Gestao de Recursos Ltda 3
## Credit Suisse Hedging Griffo Wm S.A. 12
## Ctm Investimentos Ltda 1
## Dynamo Administracao de Recursos Ltda 5
## Fama Investimentos 2
## Fator Adm 2
## Funcef 1
## Fundacao Cesp 3
## Fundacao Vale do Rio Doce Valia 1
## Gf Gestao de Recursos S A 4
## Gl Asset Gestao de Ativos Ltda 1
## Gps Planejamento Financeiro 3
## Guepardo Investimentos Ltda 3
## Guide Gestao 4
## Gwi Asset Management SA 1
## Hix Investimentos Ltda 1
## Iguana Investimentos Ltda 1
## Inter Acao Administracao de Recursos Ltd 1
## Ip Gestao de Recursos 3
## Itau Dtvm 10
## Itau Unibanco SA 7
## Jardim Botanico Partners Inv Ltda 1
## Jgp Gestao de Credito Ltda 1
## Jgp Gestao de Recursos Ltda 1
## Jpp Gestao de Recursos 1
## Lapb Gestao de Recursos Financeiros Ltda 2
## Leblon Equities Gestao de Recursos Ltda 1
## Loyall Investimentos Ltda 1
## Luxor Investimentos Ltda 1
## Maua Investimentos Ltda 1
## Maxiplan Ltda. 1
## Milestones Adm de Recursos Ltda 1
## Necton Investimentos 1
## Occam Brasil Gestao de Recursos Ltda 1
## Pacifico Administracao de Recursos Ltda 2
## Perfin Administracao de Recursos Ltda 2
## Pessoa Fisica Galgo 2
## Pessoas Fisicas 3
## Planner 1
## Polo Capital Gest de Recursos 2
## Porto Seguro Investimentos Ltda. 1
## Pragma 2
## Quadrante Investimentos 1
## Rafter Investimentos 2
## Real Investor Gestao de Recursos Ltda 1
## Reliance Asset 2
## Rio Verde Investimentos 1
## Safra Asset Management Ltda 2
## Saga Gestao de Inv Fin Ltda 2
## Santander Brasil Asset Manag Dtvm SA 1
## Santander Brasil Gestao de Recursos Ltda 4
## Set Investimentos 1
## Sfa Investimentos Ltda 1
## Skopos Investimentos Ltda 2
## Spn Gestao de Investimentos 1
## Squadra Investimentos 4
## Sul America Investimentos Gestora de Rec 1
## Taboaco, Nieckele e Associados 2
## Tarpon Gestora de Recursos S.A 5
## Tempo Capital 3
## Teorema Gestao de Ativos Ltda 1
## Trilha Investimentos 1
## Turim 21 Investimentos Ltda 1
## UBS Brasil Adm de Valores Mobiliarios 2
## UBS Consenso Investimentos Ltda 7
## Unity Capital 1
## Uv Gestora 6
## Velt Partnes Investimentos Ltda 4
## Ventor Investimentos 1
## Verde Asset Management S.A. 1
## Vinci Equities Gestora de Recursos Ltda 2
## Visao Prev 1
## Vitra Gestao de Patrimonio 1
## Votorantim Asset 1
## Western Asset 1fundos_n_quali <- Base_fundos %>%
select(Empresa_g, Qualificado) %>%
filter(Qualificado == "Não") %>%
table()
fundos_n_quali## Qualificado
## Empresa_g Não
## 4um Gestao de Recursos Ltda 1
## Alfa 3
## Ams Capital Ltda 1
## Argucia Capital Management 1
## ARX Investimentos Ltda 3
## Az Quest Investimentos 3
## Azimut Brasil Wealth Management 1
## Bahia Am Renda Variavel 2
## Banco J Safra SA 1
## Banrisul Corretora 5
## BB Dtvm S.A 32
## BNB 1
## BNP Paribas Asset 3
## Bogari Capital 1
## Bram Bradesco Asset Management SA Dtvm 50
## BRB Dtvm 2
## BTG Pactual 3
## Caixa 8
## Coinvalores Cctvm Ltda 1
## Constancia Investimentos 1
## Constellation Investim e Particip Ltda 1
## Credit Suisse Hedging Griffo Wm S.A. 1
## Dlm Invista Gestao de Recursos 1
## Eagle Capital Consultoria 1
## Elite 1
## Fama Investimentos 2
## Fator Adm 1
## Finacap Cons Financeira 2
## Franklin Templeton Investimentos Brasil 3
## Fundamental Investimentos Ltda 1
## Geral Investimentos Gestao de Recursos 1
## Gf Gestao de Recursos S A 4
## Ggr Gestao de Recursos 1
## Grou Capital Ltda 1
## Gti Administracao de Recursos Ltda 1
## Guepardo Investimentos Ltda 1
## Icatu Vanguarda Gestao de Recursos 2
## Impacto Investimentos Ltda 1
## Investment One Partners Gestao de Rec. 1
## Itau Dtvm 2
## Itau Unibanco SA 36
## Jgp Gestao de Recursos Ltda 3
## JMalucelli Investimentos 1
## Joule Gestao de Recursos e Val. Mob. Ltd 1
## Leblon Equities Gestao de Recursos Ltda 1
## Mapfre Dtvm SA 2
## Mercantil do Brasil Corretora S A Ctvm 1
## Meta Asset Management SA 1
## Mint Capital 1
## Mirae Asset Gestao de Recursos Ltda 1
## Modulo Capital Gestao de Recursos Ltda 1
## Mogno Capital Investimentos 1
## Oceana Investimentos 1
## Opp Asset Adm de Rec de Terceiros Ltda 2
## Perfin Administracao de Recursos Ltda 1
## Planner 1
## Porto Seguro Investimentos Ltda. 1
## Prismainvest 1
## Queluz Asset Management 1
## Rafter Investimentos 1
## Reag Gestora 1
## Rio Verde Investimentos 1
## Safra Asset Management Ltda 10
## Santander Brasil Gestao de Recursos Ltda 16
## Schroder Brasil 1
## Set Investimentos 1
## Sharp Capital Gestora de Recursos 1
## Socopa Sociedade Corretora Paulista 1
## Solidus Administradora de Patrimonio Ltd 1
## Squadra Investimentos 3
## Studio Investimentos 2
## Tempo Capital 2
## Trio Capital 1
## Tropico Investimentos e Participacoes 1
## Verde Asset Management S.A. 3
## Vinci Equities Gestora de Recursos Ltda 2
## Western Asset 7
## Xp Asset Management 1lbs <- c("Não qualificados", "Qualificados")
soma <- c(sum(fundos_n_quali), sum(fundos_quali))
pct <- round(soma / sum(soma)*100)
lbs <- paste(lbs, pct)
lbs <- paste(lbs,"%",sep="")
pie(soma,labels = lbs, col=rainbow(length(lbs)),
main="Fundos qualificados ou não")
Taxa de Administração dos Fundos
A partir de agora, será analisado a taxa de administração de cada fundo e de cada empresa gestora. Essa taxa é o pagamento que os cotistas do fundo fazem pelo trabalho de gestão do fundo, e ela é aplicada sobre o patrimônio do fundo mais a rentabilidade. Portanto, no geral, a partir dos dados encontrados, poderemos identificar quais são àqueles fundos com menores taxa de administração. O que representa um menor custo para o cotista. Contudo, isso é apenas o começo de uma análise mais apronfundada sobre cada fundo de investimento. O que iremos realizar, nesse momento, é apenas um filtro, separando os fundos em grupos.
taxa_adm <- Base_fundos %>%
select(Empresa_g,Taxa_adm) %>%
group_by()
taxa_adm <- taxa_adm %>%
replace_with_na(replace = list(Taxa_adm = c("-")))
taxa_adm$Taxa_adm <- as.numeric(taxa_adm$Taxa_adm)
taxa_adm <- na.omit(taxa_adm)
taxa_m_gestora <- taxa_adm %>%
select(Empresa_g, Taxa_adm) %>%
group_by(Empresa_g) %>%
summarise(taxa_media = mean(Taxa_adm)) %>%
arrange(desc(taxa_media)) %>%
head(5)
taxa_m_gestora## # A tibble: 5 x 2
## Empresa_g taxa_media
## <chr> <dbl>
## 1 Sharp Capital Gestora de Recursos 3.44
## 2 BRB Dtvm 3
## 3 Coinvalores Cctvm Ltda 3
## 4 Prismainvest 3
## 5 Trio Capital 3Separando os fundos em 3 diferentes faixas de taxa de administração
(inf = inferior a 0,5 ; med = entre 0,5 e 1,5 ; sup = superior a 1,5)
taxa_adm_fundos <- Base_fundos %>%
select(Nome ,Taxa_adm) %>%
group_by()
taxa_adm_fundos <- taxa_adm_fundos %>%
replace_with_na(replace = list(Taxa_adm = c("-")))
taxa_adm_fundos$Taxa_adm <- as.numeric(taxa_adm_fundos$Taxa_adm)
taxa_adm_fundos <- na.omit(taxa_adm_fundos)
taxa_adm_inf <- taxa_adm_fundos %>%
filter(Taxa_adm <= 0.5 ) %>%
arrange(desc(Taxa_adm))
taxa_adm_inf## # A tibble: 144 x 2
## Nome Taxa_adm
## <chr> <dbl>
## 1 Agrisus FIA Invest no Exterior 0.5
## 2 Alsan Fundo de Investimentos Acoes 0.5
## 3 BNP Paribas Ace Ibrx Fc FIA 0.5
## 4 Bp Celi FIA Ie 0.5
## 5 Finacap FIA 0.5
## 6 Geracao Futuro Fc FIA 0.5
## 7 Ggr Supernova FIA 0.5
## 8 Nic Kids FICFIA 0.5
## 9 Sant FICFI Selecao Max Acoes 0.5
## 10 Bulls FIA 0.46
## # ... with 134 more rowstaxa_adm_med <- taxa_adm_fundos %>%
filter(Taxa_adm > 0.5 & Taxa_adm <= 1.5) %>%
arrange(desc(Taxa_adm))
taxa_adm_med## # A tibble: 121 x 2
## Nome Taxa_adm
## <chr> <dbl>
## 1 AAA Acoes FIC FIA 1.5
## 2 ARX FIA 1.5
## 3 Banrisul Dividendos FIA 1.5
## 4 BB Acoes Ibovespa Indexado Fc FI 1.5
## 5 BB Acoes Ibrx Indexado Fc FI 1.5
## 6 Bradesco FI em Pibbs I - Acoes 1.5
## 7 Bradesco FI Pibbss II - Acoes 1.5
## 8 Bradesco FIA Ibx Plus 1.5
## 9 Bradesco H Fc FIA Small Caps 1.5
## 10 Bradesco H FI em Pibb - Acoes Ibrx-50 1.5
## # ... with 111 more rowstaxa_adm_sup <- taxa_adm_fundos %>%
filter(Taxa_adm > 1.5) %>%
arrange(desc(Taxa_adm))
taxa_adm_sup## # A tibble: 121 x 2
## Nome Taxa_adm
## <chr> <dbl>
## 1 Banrisul Acoes FI 5
## 2 BTG Pactual Mult Acoes FIA 4
## 3 Santander Fc FI Dividendos Acoes 3.5
## 4 Santander Fc FI Selecao Acoes 3.5
## 5 Safra Exportacao FIA 3.45
## 6 Sharp Ibovespa Ativo Feeder Fc FIA 3.44
## 7 Bradesco H Fc FIA Acumulacao 3.3
## 8 Argucia Income FIA 3
## 9 ARX Income FIA 3
## 10 Coinvalores FIA 3
## # ... with 111 more rowsExiste relaçãoo entre a taxa de administração e o retorno dos fundos?
Vamos agora analisar o retorno dos fundos em comparação com a taxa de administração
Base_fundos$Taxa_adm <- as.numeric(Base_fundos$Taxa_adm, na.rm = TRUE)
Base_fundos$Taxa_adm[Base_fundos$Taxa_adm ==0 ]<- NA
Base_fundos %>%
mutate(
Taxa_adm = round(Taxa_adm, digits = 2),
CAGR = CAGR *100,
teste = CAGR - Taxa_adm,
ind_teste = ifelse(teste > 0, "Bom", "Ruim")
) %>%
filter(!is.na("Bom")) %>%
ggplot() +
geom_point(aes(x = CAGR, y = Taxa_adm, color = ind_teste ), shape = 15) +
labs(x = "Retorno anual composto", y = "Taxa de administraæ¼ã¸·æ¼ã¸³o")
Conclução
Por fim, o nosso estudo teve como objetivo analisar a dinâmica do mercado de fundos de ações brasileiros. Nesse estudo, verificamos que as instituições financeiras predominantes no setor de varejo também possuem grande participação na área de asset management. Nosso estudo também identificou que a taxa de administração não possui relação com o retorno do fundo