This is an R Markdown Notebook. When you execute code within the notebook, the results appear beneath the code.

Try executing this chunk by clicking the Run button within the chunk or by placing your cursor inside it and pressing Ctrl+Shift+Enter.

source(here::here("crawler/autorias/getAutoresConjuntos.R"))

id_reforma <- 2192459

autoriasConjuntas <- generateAutoriasConjuntas(id_reforma)
match <- autoriasConjuntas[[1]]
nodes <- autoriasConjuntas[[2]]
edges <- autoriasConjuntas[[3]]  

Grupos de parlamentares por autorias e co-autorias em proposições relacionadas à Reforma da Previdência

  
forceNetwork(
  Links = edges,
  Nodes = nodes,
  Source = "source",
  Target = "target",
  Value = "value",
  NodeID = "nome_eleitoral",
  Group = "group",
  opacity = 0.8,
  zoom = T,
  
  linkColour = "#808080"
  )

É interessante notar que há dois grupos do partido PDT: um deles formado por quatro deputados, todos do Ceará e que aparentemente se isola do outro grupo, composto por deputados de diferentes estados, incluindo um do CE. Além disso, percebe-se a presença de dois grupos formados por deputados de partidos diferentes: um que possui o SOLIDARIEDADE e PV, ambos considerados partidos de esquerda; e o outro mais de direita: PODEMOS e NOVO.

DT::datatable(match)
LS0tCnRpdGxlOiAiUmVmb3JtYSBkYSBQcmV2aWTDqm5jaWEiCm91dHB1dDogaHRtbF9ub3RlYm9vawotLS0KClRoaXMgaXMgYW4gW1IgTWFya2Rvd25dKGh0dHA6Ly9ybWFya2Rvd24ucnN0dWRpby5jb20pIE5vdGVib29rLiBXaGVuIHlvdSBleGVjdXRlIGNvZGUgd2l0aGluIHRoZSBub3RlYm9vaywgdGhlIHJlc3VsdHMgYXBwZWFyIGJlbmVhdGggdGhlIGNvZGUuIAoKVHJ5IGV4ZWN1dGluZyB0aGlzIGNodW5rIGJ5IGNsaWNraW5nIHRoZSAqUnVuKiBidXR0b24gd2l0aGluIHRoZSBjaHVuayBvciBieSBwbGFjaW5nIHlvdXIgY3Vyc29yIGluc2lkZSBpdCBhbmQgcHJlc3NpbmcgKkN0cmwrU2hpZnQrRW50ZXIqLiAKCmBgYHtyfQpzb3VyY2UoaGVyZTo6aGVyZSgiY3Jhd2xlci9hdXRvcmlhcy9nZXRBdXRvcmVzQ29uanVudG9zLlIiKSkKCmlkX3JlZm9ybWEgPC0gMjE5MjQ1OQoKYXV0b3JpYXNDb25qdW50YXMgPC0gZ2VuZXJhdGVBdXRvcmlhc0Nvbmp1bnRhcyhpZF9yZWZvcm1hKQptYXRjaCA8LSBhdXRvcmlhc0Nvbmp1bnRhc1tbMV1dCm5vZGVzIDwtIGF1dG9yaWFzQ29uanVudGFzW1syXV0KZWRnZXMgPC0gYXV0b3JpYXNDb25qdW50YXNbWzNdXSAgCmBgYAoKIyMjIEdydXBvcyBkZSBwYXJsYW1lbnRhcmVzIHBvciBhdXRvcmlhcyBlIGNvLWF1dG9yaWFzIGVtIHByb3Bvc2nDp8O1ZXMgcmVsYWNpb25hZGFzIMOgIFJlZm9ybWEgZGEgUHJldmlkw6puY2lhCgpgYGB7ciB3YXJuaW5nPUZBTFNFLCBtZXNzYWdlPUZBTFNFLCBmaWcuaGVpZ2h0ID0gNiwgZmlnLndpZHRoID0gOSwgZmlnLmFsaWduID0gImNlbnRlciJ9CiAgCmZvcmNlTmV0d29yaygKICBMaW5rcyA9IGVkZ2VzLAogIE5vZGVzID0gbm9kZXMsCiAgU291cmNlID0gInNvdXJjZSIsCiAgVGFyZ2V0ID0gInRhcmdldCIsCiAgVmFsdWUgPSAidmFsdWUiLAogIE5vZGVJRCA9ICJub21lX2VsZWl0b3JhbCIsCiAgR3JvdXAgPSAiZ3JvdXAiLAogIG9wYWNpdHkgPSAwLjgsCiAgem9vbSA9IFQsCiAgCiAgbGlua0NvbG91ciA9ICIjODA4MDgwIgogICkKYGBgCgrDiSBpbnRlcmVzc2FudGUgbm90YXIgcXVlIGjDoSBkb2lzIGdydXBvcyBkbyBwYXJ0aWRvIFBEVDogdW0gZGVsZXMgZm9ybWFkbyBwb3IgcXVhdHJvIGRlcHV0YWRvcywgdG9kb3MgZG8gQ2VhcsOhIGUgcXVlIGFwYXJlbnRlbWVudGUgc2UgaXNvbGEgZG8gb3V0cm8gZ3J1cG8sIGNvbXBvc3RvIHBvciBkZXB1dGFkb3MgZGUgZGlmZXJlbnRlcyBlc3RhZG9zLCBpbmNsdWluZG8gdW0gZG8gQ0UuIEFsw6ltIGRpc3NvLCBwZXJjZWJlLXNlIGEgcHJlc2Vuw6dhIGRlIGRvaXMgZ3J1cG9zIGZvcm1hZG9zIHBvciBkZXB1dGFkb3MgZGUgcGFydGlkb3MgZGlmZXJlbnRlczogdW0gcXVlIHBvc3N1aSBvIFNPTElEQVJJRURBREUgZSBQViwgYW1ib3MgY29uc2lkZXJhZG9zIHBhcnRpZG9zIGRlIGVzcXVlcmRhOyBlIG8gb3V0cm8gbWFpcyBkZSBkaXJlaXRhOiBQT0RFTU9TIGUgTk9WTy4gCgpgYGB7cn0KRFQ6OmRhdGF0YWJsZShtYXRjaCkKCmBgYAoK