Advertisement
Guest User

Untitled

a guest
Dec 17th, 2017
83
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.91 KB | None | 0 0
  1. ---
  2. title: "Análise de dados com R"
  3. subtitle: "Estudo de Caso: Czech Bank"
  4. date: "25 de Novembro de 2017"
  5. author:
  6. - name: "André Ferreira Bem"
  7. - name: "Augusto Gonçalves"
  8. - name: "Fernando D'Imperio"
  9. - name: "Marcos Vinício de Siqueira"
  10. affiliation: "Fundação Getulio Vargas - FGV"
  11. output:
  12. html_document: default
  13. ---
  14.  
  15. ```{r setup, include=FALSE}
  16. knitr::opts_chunk$set(echo = TRUE, fig.align='center',fig.height=5,fig.width=6)
  17.  
  18. #Instalar os seguintes pacotes:
  19. package.requirements <- c("ggplot2", "dplyr", "kableExtra", "knitr", "corrplot", "readxl", "GGally")
  20. #install.packages(package.requirements)
  21.  
  22. # Loads all libraries
  23. lapply(package.requirements, library, character.only = TRUE)
  24.  
  25. ```
  26.  
  27. ---
  28.  
  29. ### 1. ESTUDO DE CASO
  30.  
  31. Este trabalho visa auxiliar os gerentes de um banco Czech a entender melhor seus clientes para que os mesmos tenham condições de oferecer melhores serviços aos seus melhores clientes.
  32.  
  33. Para esta análise, foi disponibilizado a base de dados do Czech Bank contendo informações de .
  34.  
  35. Estes base contém as seguintes tabelas:
  36.  
  37. ```{r echo=TRUE, message=FALSE}
  38.  
  39. TABELAS <- c ("Client (Clientes)",
  40. "Account (Contas)",
  41. "Disposition (Vínculos Clientes x Contas)",
  42. "Demograph (Informações Geográficas)",
  43. "Credit Card (Cartões de Crédito)",
  44. "Loan (Empréstimos)",
  45. "Permanent order (Ordens Permanentes)",
  46. "Transactions (Transações)")
  47.  
  48. kable(
  49. TABELAS,
  50. format = "html",
  51. align="c",
  52. caption = "Tabela 1 - Base de dados"
  53. ) %>%
  54. kable_styling(
  55. bootstrap_options = c("striped","hover","condensed"),
  56. font_size = 10
  57. ) %>%
  58. column_spec(
  59. column = 12,
  60. border_left = T,
  61. border_right = T,
  62. color = "red",
  63. bold = T
  64. ) %>%
  65. row_spec(
  66. row = 8:10,
  67. background = "lightblue"
  68. )
  69.  
  70.  
  71. ```
  72. ---
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement