Un donut d’étudiants

On travaille sur les données d’inscriptions suivantes :

Mention de bac Effectif
S 45537
ES 13667
o 9775
T 6069
L 4051
Pro 1089

Des effectifs ventilés par domaine et mention

Un diagramme explicatif

Un graphique ggplot2 dynamique

Le soleil explose…

… et les étudiants coulent !

LS0tCnRpdGxlOiAiRG9jdW1lbnQgYXJjaGktY29uZmlkZW50aWVsIgphdXRob3I6ICJNb2kiCmRhdGU6ICIwOS8wMy8yMDIxIgpvdXRwdXQ6IAogIGh0bWxfZG9jdW1lbnQ6CiAgICB0b2M6IHRydWUKICAgIHRvY19mbG9hdDogdHJ1ZQogICAgY29kZV9kb3dubG9hZDogdHJ1ZQogICAgc2VsZl9jb250YWluZWQ6IHRydWUKICAgIHRoZW1lOiBmbGF0bHkKLS0tCgpgYGB7ciBzZXR1cCwgaW5jbHVkZT1GQUxTRX0Ka25pdHI6Om9wdHNfY2h1bmskc2V0KAogIGNhY2hlID0gRkFMU0UsICAgIyBHw6hyZSBsJ3V0aWxpc2F0aW9uIGR1IGNhY2hlIHBvdXIgbCfDqXZhbHVhdGlvbiBkdSBjb2RlIChUUlVFL0ZBTFNFKQogIGVycm9yID0gRkFMU0UsICAgIyBEb2l0LW9uIGFycsOqdGVyIGwnZXjDqWN1dGlvbiBkw6hzIGxhIHByZW1pw6hyZSBlcnJldXIgPyAoVFJVRS9GQUxTRSkKICBlY2hvID0gRkFMU0UsICAgICMgR8OocmUgbCdhZmZpY2hhZ2UgZHUgY29kZSAoVFJVRS9GQUxTRSkKICB3YXJuaW5nID0gRkFMU0UsICMgR8OocmUgbCdhZmZpY2hhZ2UgZGVzIHdhcm5pbmdzIGRlIFIgKFRSVUUvRkFMU0UpCiAgbWVzc2FnZSA9IEZBTFNFICAjIEfDqHJlIGwnYWZmaWNoYWdlIGRlcyBtZXNzYWdlcyBkZSBSIChUUlVFL0ZBTFNFKQogICkKYGBgCgoKIyMgVW4gZG9udXQgZCfDqXR1ZGlhbnRzIAoKYGBge3IgaW1wb3J0MX0KCmxvYWQoIi4uL2RhdGEvdW0xOC5SRGF0YSIpCgpgYGAKCk9uIHRyYXZhaWxsZSBzdXIgbGVzIGRvbm7DqWVzIGQnaW5zY3JpcHRpb25zIHN1aXZhbnRlcyA6CgpgYGB7ciBkYXRhfQoKcm1hcmtkb3duOjpwYWdlZF90YWJsZSh1bTE4LCBvcHRpb25zID0gbGlzdChtYXgucHJpbnQgPSAxMDApKQoKYGBgCgpgYGB7ciBkb251dH0KCmxpYnJhcnkoImRwbHlyIikKCmtuaXRyOjprYWJsZShjb3VudCh1bTE4LCBiYWNfYWJyLCBzb3J0ID0gVFJVRSksIGNvbC5uYW1lcyA9IGMoIk1lbnRpb24gZGUgYmFjIiwgIkVmZmVjdGlmIiksIGFsaWduID0gImxyIiwgZm9ybWF0ID0gImh0bWwiLCB0YWJsZS5hdHRyID0gInN0eWxlPSd3aWR0aDozMCU7bWFyZ2luLWxlZnQ6YXV0bzttYXJnaW4tcmlnaHQ6YXV0bzsnIikKCmxpYnJhcnkoImdncGxvdDIiKQoKbGFicyA8LSBhcy5kYXRhLmZyYW1lKHJldih0YWJsZSh1bTE4JGJhY19hYnIpKSkKbWlkIDwtIGMoMCwgY3Vtc3VtKGxhYnMkRnJlcSkpCmxhYnMkeSA8LSBtaWRbLWxlbmd0aChtaWQpXSArIGRpZmYobWlkKSAvIDIKCmdncGxvdCh1bTE4LCBhZXMoYW5uZWVfdW5pdiwgZmlsbCA9IGJhY19hYnIpKSArCiAgZ2VvbV9iYXIoY29sb3IgPSAid2hpdGUiKSArCiAgZ2VvbV9sYWJlbChkYXRhID0gbGFicywgYWVzKHggPSAyMDE4LCB5ID0geSwgbGFiZWwgPSBWYXIxKSwgaW5oZXJpdC5hZXMgPSBGQUxTRSkgKwogIGNvb3JkX3BvbGFyKCJ5IiwgZGlyZWN0aW9uID0gLTEpICsKICB4bGltKDIwMTYuNDUsIDIwMTguNDUpICsKICB0aGVtZV92b2lkKCkgKwogIGxhYnMoZmlsbCA9ICJUeXBlIGRlIGJhYyIpCgpgYGAKCgojIyBEZXMgZWZmZWN0aWZzIHZlbnRpbMOpcyBwYXIgZG9tYWluZSBldCBtZW50aW9uCgoKIyMjIFVuIGRpYWdyYW1tZSBleHBsaWNhdGlmCgpgYGB7ciBub21ub21sfQoKbGlicmFyeSgibm9tbm9tbCIpCgpgYGAKCmBgYHtub21ub21sfQojc3Ryb2tlOiBibHVlCiMuYm94OiBmaWxsPSNhOGNhZmYgZGFzaGVkIHZpc3VhbD1lbGxpcHNlCiMuY2lyYzogZmlsbD0jM2I1NDdhIHN0cm9rZT13aGl0ZSB2aXN1YWw9ZWxsaXBzZQoKW0VmZmVjdGlmXS1bPGJveD5Eb21haW5lXQpbRG9tYWluZV0tWzxjaXJjPk1lbnRpb25dCmBgYAoKCiMjIyBVbiBncmFwaGlxdWUgYGdncGxvdDJgIGR5bmFtaXF1ZQoKYGBge3IgcGxvdGx5LWdncGxvdH0KCmxpYnJhcnkoInBsb3RseSIpCgpnZ3Bsb3QodW0xOCwgIGFlcyh4ID0gYmFjX3JlZ3JvdXAsIHkgPSBwcmVtX2luc2NfdW5pdl9mciwgY29sb3IgPSBiYWNfcmVncm91cCkpICsKICBnZW9tX2JveHBsb3QoKSArCiAgeWxpbSgxOTgwLCAyMDIwKSArCiAgdGhlbWVfY2xhc3NpYygpICsKICBsYWJzKHRpdGxlID0gIlF1ZWxsZSBlc3QgbCdhbm7DqWUgZGUgcHJlbWnDqHJlIGluc2NyaXB0aW9uIMOgIGwndW5pdmVyc2l0w6ksIHNlbG9uIGxhIGZpbGnDqHJlIGR1IGJhYyA/IiwKICAgICAgIHN1YnRpdGxlID0gIihkb25uw6llcyBwb3VyIGxlcyBpbnNjcmlwdGlvbnMgw6AgbCdVbml2ZXJzaXTDqSBkZSBNb250cGVsbGllciAyMDE44oCTMjAxOSkiLAogICAgICAgeCA9ICJUeXBlIGRlIGJhY2NhbGF1csOpYXQiLAogICAgICAgeSA9ICJBbm7DqWUgKHRyb25xdcOpZSDDoCBwYXJ0aXIgZGUgMTk4MCIpICsKICB0aGVtZShsZWdlbmQucG9zaXRpb24gPSAibm9uZSIsCiAgICAgICAgYXhpcy50ZXh0LnggPSBlbGVtZW50X3RleHQoYW5nbGUgPSAtNDUsIHZqdXN0ID0gMC4xLCBoanVzdCA9IDAuMSkpIC0+IGdnCgpnZ3Bsb3RseShnZykKCmBgYAoKCiMjIyBMZSBzb2xlaWwgZXhwbG9zZeKApgogICAgCmBgYHtyIHBsb3RseS1zdW5idXJzdC10ZXN0fQoKcGxvdF9seSgKICB0eXBlID0gInN1bmJ1cnN0IiwKICBsYWJlbHMgID0gYygiQSIsICJCIiwgIkMiLCAiQTEiLCAiQTIiLCAiQTMiLCAiQjEiLCAiQjIiLCAiQzEiKSwKICBwYXJlbnRzID0gYygiUmFjaW5lIiwgIlJhY2luZSIsICJSYWNpbmUiLCAiQSIsICJBIiwgIkEiLCAiQiIsICJCIiwgIkMiKSwKICB2YWx1ZXMgID0gYygzMCwgMjAsIDEwLCAxMCwgNiwgNCwgMTAsIDQsIDMpLAogIGJyYW5jaHZhbHVlcyA9ICJ0b3RhbCIKKQoKYGBgCgoKYGBge3IgcGxvdGx5LXN1bmJ1cnN0fQoKdW0xOCAlPiUgCiAgZmlsdGVyKCFpcy5uYShkb21fYWJyKSkgJT4lIAogIGNvdW50KGRvbV9hYnIsIHNvcnQgPSBUUlVFKSAtPiBkb20KCnVtMTggJT4lIAogIGZpbHRlcighaXMubmEoZG9tX2FicikpICU+JSAKICBjb3VudChkb21fYWJyLCBtZW5fYWJyKSAlPiUgCiAgZmlsdGVyKG4gPiAyMDAgJiAhaXMubmEobWVuX2FicikpICU+JSAKICBhcnJhbmdlKGRvbV9hYnIsIGRlc2MobikpIC0+IG1lbnRpb25zCgpwbG90X2x5KAogIHR5cGUgPSAic3VuYnVyc3QiLAogIGxhYmVscyA9IGMoZG9tJGRvbV9hYnIsIG1lbnRpb25zJG1lbl9hYnIpLAogIHBhcmVudHMgPSBjKHJlcCgiIiwgbnJvdyhkb20pKSwgbWVudGlvbnMkZG9tX2FiciksCiAgdmFsdWVzID0gYyhkb20kbiwgbWVudGlvbnMkbiksCiAgYnJhbmNodmFsdWVzID0gInRvdGFsIiwKICBpbnNpZGV0ZXh0b3JpZW50YXRpb24gPSAicmFkaWFsIgopCgpgYGAKCgojIyMg4oCmIGV0IGxlcyDDqXR1ZGlhbnRzIGNvdWxlbnQgIQoKYGBge3IgcGxvdGx5LXNhbmtleS10ZXN0fQoKcGxvdF9seSgKICB0eXBlID0gInNhbmtleSIsCiAgbm9kZSA9IGxpc3QoICMgTGlzdGUgZGVzIG7Fk3VkcwogICAgIyBJbmRleCAgICAgMCAgICAgMSAgICAgMiAgICAgMyAgICAgNCAgICAgNSAgICAgNiAgICAgNwogICAgbGFiZWwgPSBjKCJBMSIsICJBMiIsICJCMSIsICJCMiIsICJCMSIsICJCMiIsICJBMSIsICJBMiIpICMgw4l0aXF1ZXR0ZXMKICApLAogIGxpbmsgPSBsaXN0KCAjIExpc3RlIGRlcyBmbHV4IChub21icmUgZGlmZsOpcmVudCBkZXMgbsWTdWRzKQogICAgc291cmNlID0gYygwLCAwLCAxLDEsMiwyLDMsMyw0LDUpLCAjIEluZGV4IGRlcyBuxZN1ZHMgc291cmNlcyAow6AgcGFydGlyIGRlIDApCiAgICB0YXJnZXQgPSBjKDIsIDMsIDQsNSw2LDcsNiw3LDYsNiksICMgSW5kZXggZGVzIG7Fk3VkcyBjaWJsZXMgKMOgIHBhcnRpciBkZSAwKQogICAgdmFsdWUgPSAgYygxMiwxMCw4LDMsNSw1LDcsMSwxLDMpICAjIFZhbGV1ciBkdSBmbHV4CiAgKQopCgpgYGAKCgpgYGB7ciBwbG90bHktc2Fua2V5LXVtfQoKIyB0YWJsZSh1bTE4JHRlbW9pbl9kaXApCiMgc3VtKGlzLm5hKHVtMTgkdGVtb2luX2RpcCkpCiMgc3VtKGlzLm5hKHVtMTgkZGlwX3Jlc2RpcCkpCnVtMTggJT4lIAogIGZpbHRlcihkb21fYWJyICE9ICJBTEwiKSAlPiUgCiAgY291bnQoZG9tX2FiciwgdGVtb2luX2RpcCkgJT4lIAogIGZpbHRlcighaXMubmEoZG9tX2FicikgJiAhaXMubmEodGVtb2luX2RpcCkpICU+JSAKICBhcnJhbmdlKGRvbV9hYnIsIGRlc2ModGVtb2luX2RpcCkpIC0+IHJldQoKdW0xOCRhY2EgPC0gaWZlbHNlKHVtMTgkaW5zMTlfYWNhZXRhID09IDExLCBUUlVFLCBGQUxTRSkKIyB0YWJsZSh1bTE4JGFjYSkKdW0xOCAlPiUgCiAgZmlsdGVyKGRvbV9hYnIgIT0gIkFMTCIpICU+JSAKICBjb3VudChkb21fYWJyLCB0ZW1vaW5fZGlwLCBhY2EpICU+JSAKICBmaWx0ZXIoIWlzLm5hKGRvbV9hYnIpICYgIWlzLm5hKHRlbW9pbl9kaXApICYgIWlzLm5hKGFjYSkpICU+JSAKICBhcnJhbmdlKGRvbV9hYnIsIGRlc2ModGVtb2luX2RpcCksIGRlc2MoYWNhKSkgLT4gcmV1MgoKcGxvdF9seSgKICB0eXBlID0gInNhbmtleSIsCiAgbm9kZSA9IGxpc3QoICMgTGlzdGUgZGVzIG7Fk3VkcwogICAgIyAiREVHIiAiRFAiICAiU0hTIiAiU1QiICAiU1RTIiAiTyIgICAiTiIgICAiTyIgICAiTiIgICAiTyIgICAiTiIgICAiTyIgICAiTiIgICAiTyIgICAiTiIgICAiVCIgICAiRiIKICAgICMgICAgMCAgICAgMSAgICAyICAgICAgMyAgICA0ICAgIDUgICAgIDYgICAgIDcgICAgIDggICAgIDkgICAgIDEwICAgIDExICAgIDEyICAgIDEzICAgIDE0ICAgIDE1ICAgIDE2CiAgICBsYWJlbCA9IGModW5pcXVlKHJldSRkb21fYWJyKSwgcmV1JHRlbW9pbl9kaXAsICJNcGwiLCAiTyIpICMgw4l0aXF1ZXR0ZXMKICApLAogIGxpbmsgPSBsaXN0KCAjIExpc3RlIGRlcyBmbHV4IChub21icmUgZGlmZsOpcmVudCBkZXMgbsWTdWRzKQogICAgc291cmNlID0gYyhyZXAoMDo0LCBlYWNoID0gMiksIDU6MTQsIDU6MTQpLCAjIEluZGV4IGRlcyBuxZN1ZHMgc291cmNlcyAow6AgcGFydGlyIGRlIDApCiAgICB0YXJnZXQgPSBjKDU6MTQsIHJlcCgxNSwgMTApLCByZXAoMTYsIDEwKSksICMgSW5kZXggZGVzIG7Fk3VkcyBjaWJsZXMgKMOgIHBhcnRpciBkZSAwKQogICAgdmFsdWUgPSAgYyhyZXUkbiwgcmV1MiRuW3JldTIkYWNhXSwgcmV1MiRuWyFyZXUyJGFjYV0pICAjIFZhbGV1ciBkdSBmbHV4CiAgKQopCgpgYGAKCg==