{"id":474,"date":"2023-07-29T19:13:06","date_gmt":"2023-07-29T19:13:06","guid":{"rendered":"https:\/\/statorials.org\/nl\/bumpplot-in-r-met-behulp-van-ggplot2\/"},"modified":"2023-07-29T19:13:06","modified_gmt":"2023-07-29T19:13:06","slug":"bumpplot-in-r-met-behulp-van-ggplot2","status":"publish","type":"post","link":"https:\/\/statorials.org\/nl\/bumpplot-in-r-met-behulp-van-ggplot2\/","title":{"rendered":"Hoe u eenvoudig een reli\u00ebfplot in r kunt maken met ggplot2"},"content":{"rendered":"

<\/p>\n

\n

Een bumpdiagram<\/strong> is een soort diagram dat de rangschikking van verschillende groepen in de loop van de tijd weergeeft in plaats van absolute waarden om de volgorde van de groepen te benadrukken in plaats van de hoeveelheid verandering.<\/span><\/p>\n

In deze tutorial wordt uitgelegd hoe u eenvoudig een bumpplot in R kunt maken met behulp van ggplot2.<\/span><\/p>\n

Voorbeeld: een reli\u00ebfafbeelding maken<\/span><\/strong><\/h2>\n

Om een bumpdiagram in R te maken, moeten we eerst twee pakketten laden: dplyr<\/strong> en ggplot2<\/strong> :<\/span><\/p>\n

 library(ggplot2) #for creating bump chart<\/span>\nlibrary(dplyr) #for manipulating data<\/span><\/strong><\/pre>\n
 Vervolgens maken we enkele gegevens om mee te werken:<\/span><\/p>\n
 #set the seed to make this example reproducible<\/span>\nset.seed(10)\n\ndata <- data.frame(team = rep(LETTERS[1:5], each = 10),\n                   random_num = runif(50),\n                   day = rep(1:10, 5))\n\ndata <- data %>%\n  group_by(day) %>%\n  arrange(day, desc(random_num), team) %>% \n  mutate(rank = row_number()) %>%\n  A group()\n\nhead(data)\n\n# team random_num day rank          \n#1 C 0.865 1 1\n#2 B 0.652 1 2\n#3 D 0.536 1 3\n#4 A 0.507 1 4\n#5 E 0.275 1 5\n#6 C 0.615 2 1<\/strong><\/pre>\n
 Deze database toont eenvoudigweg de \u201cranglijst\u201d van vijf verschillende teams over een periode van tien dagen.<\/span><\/p>\n
 We kunnen ggplot2 gebruiken om een voortgangsgrafiek te maken om de rangschikking van elk team gedurende elke dag gedurende deze periode te visualiseren:<\/span><\/p>\n
 ggplot(data, aes(x = day, y = rank, group = team)) +\n  geom_line(aes(color = team, alpha = 1), size = 2) +\n  geom_point(aes(color = team, alpha = 1), size = 4) +\n  scale_y_reverse(breaks = 1:nrow(data))<\/strong><\/pre>\n
 Dit bumpdiagram geeft de gegevens weer in het gewenste formaat, maar het is behoorlijk lelijk. Met een paar esthetische veranderingen kunnen we dit schilderij veel beter maken.<\/span><\/p>\n
 Stileer de afbeelding van de bult<\/span><\/strong><\/h2>\n
 Om het uiterlijk van de grafiek te verbeteren, kunnen we het volgende thema gebruiken, gemaakt door Dominik Koch<\/a> :<\/span><\/p>\n
 my_theme <- function() {\n\n  # Colors\n  color.background = \"white\"\n  color.text = \"#22211d\"\n\n  # Begin construction of chart\n  theme_bw(base_size=15) +\n\n    # Format background colors\n    theme(panel.background = element_rect(fill=color.background,\n                                          color=color.background)) +\n    theme(plot.background = element_rect(fill=color.background,\n                                          color=color.background)) +\n    theme(panel.border = element_rect(color=color.background)) +\n    theme(strip.background = element_rect(fill=color.background,\n                                          color=color.background)) +\n\n    # Format the grid\n    theme(panel.grid.major.y = element_blank()) +\n    theme(panel.grid.minor.y = element_blank()) +\n    theme(axis.ticks = element_blank()) +\n\n    # Format the legend\n    theme(legend.position = \"none\") +\n\n    # Format title and axis labels\n    theme(plot.title = element_text(color=color.text, size=20, face = \"bold\")) +\n    theme(axis.title.x = element_text(size=14, color=\"black\", face = \"bold\")) +\n    theme(axis.title.y = element_text(size=14, color=\"black\", face = \"bold\",\n                                          vjust=1.25)) +\n    theme(axis.text.x = element_text(size=10, vjust=0.5, hjust=0.5,\n                                          color = color.text)) +\n    theme(axis.text.y = element_text(size=10, color = color.text)) +\n    theme(strip.text = element_text(face = \"bold\")) +\n\n    # Plot margins\n    theme(plot.margin = unit(c(0.35, 0.2, 0.3, 0.35), \"cm\"))\n}<\/strong><\/pre>\n
 We maken het bumpdiagram opnieuw, maar deze keer verwijderen we de legenda, voegen we enkele diagramlabels toe en gebruiken we het thema dat in de bovenstaande code is gedefinieerd:<\/span><\/p>\n
 ggplot(data, aes(x = as.factor(day), y = rank, group = team)) +\n  geom_line(aes(color = team, alpha = 1), size = 2) +\n  geom_point(aes(color = team, alpha = 1), size = 4) +\n  geom_point(color = \"#FFFFFF\", size = 1) +\n  scale_y_reverse(breaks = 1:nrow(data)) + \n  scale_x_discrete(breaks = 1:10) +\n  theme(legend.position = 'none') +\n  geom_text(data = data %>% filter(day == \"1\"),\n            aes(label = team, x = 0.5), hjust = .5,\n            fontface = \"bold\", color = \"#888888\", size = 4) +\n  geom_text(data = data %>% filter(day == \"10\"),\n            aes(label = team, x = 10.5), hjust = 0.5,\n            fontface = \"bold\", color = \"#888888\", size = 4) +\n  labs(x = 'Day', y = 'Rank', title = 'Team Ranking by Day') +\n  my_theme()<\/strong><\/pre>\n
 We kunnen ook eenvoudig een van de rijen markeren door een scale_color_manual()<\/strong> argument toe te voegen. In de volgende code maken we bijvoorbeeld de lijn van team A paars en alle andere lijnen grijs:<\/span><\/p>\n
 ggplot(data, aes(x = as.factor(day), y = rank, group = team)) +\n  geom_line(aes(color = team, alpha = 1), size = 2) +\n  geom_point(aes(color = team, alpha = 1), size = 4) +\n  geom_point(color = \"#FFFFFF\", size = 1) +\n  scale_y_reverse(breaks = 1:nrow(data)) + \n  scale_x_discrete(breaks = 1:10) +\n  theme(legend.position = 'none') +\n  geom_text(data = data %>% filter(day == \"1\"),\n            aes(label = team, x = 0.5), hjust = .5,\n            fontface = \"bold\", color = \"#888888\", size = 4) +\n  geom_text(data = data %>% filter(day == \"10\"),\n            aes(label = team, x = 10.5), hjust = 0.5,\n            fontface = \"bold\", color = \"#888888\", size = 4) +\n  labs(x = 'Day', y = 'Rank', title = 'Team Ranking by Day') +\n  my_theme() +\n  scale_color_manual(values = c('purple', 'grey', 'grey', 'grey', 'grey'))<\/span><\/strong><\/pre>\n
 We kunnen ook meerdere regels markeren als we dat willen:<\/span><\/p>\n
 ggplot(data, aes(x = as.factor(day), y = rank, group = team)) +\n  geom_line(aes(color = team, alpha = 1), size = 2) +\n  geom_point(aes(color = team, alpha = 1), size = 4) +\n  geom_point(color = \"#FFFFFF\", size = 1) +\n  scale_y_reverse(breaks = 1:nrow(data)) + \n  scale_x_discrete(breaks = 1:10) +\n  theme(legend.position = 'none') +\n  geom_text(data = data %>% filter(day == \"1\"),\n            aes(label = team, x = 0.5), hjust = .5,\n            fontface = \"bold\", color = \"#888888\", size = 4) +\n  geom_text(data = data %>% filter(day == \"10\"),\n            aes(label = team, x = 10.5), hjust = 0.5,\n            fontface = \"bold\", color = \"#888888\", size = 4) +\n  labs(x = 'Day', y = 'Rank', title = 'Team Ranking by Day') +\n  my_theme() +\n  scale_color_manual(values = c('purple', 'steelblue', 'grey', 'grey', 'grey'))<\/span><\/strong><\/pre>\n","protected":false},"excerpt":{"rendered":"
Een bumpdiagram is een soort diagram dat de rangschikking van verschillende groepen in de loop van de tijd weergeeft in plaats van absolute waarden om de volgorde van de groepen te benadrukken in plaats van de hoeveelheid verandering. In deze tutorial wordt uitgelegd hoe u eenvoudig een bumpplot in R kunt maken met behulp van […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[11],"tags":[],"class_list":["post-474","post","type-post","status-publish","format-standard","hentry","category-gids"],"yoast_head":"\nHoe u eenvoudig een bumpdiagram in R kunt maken met ggplot2 - Statorials<\/title>\n<meta name=\"description\" content=\"In deze tutorial wordt uitgelegd hoe u eenvoudig een bumpplot in R kunt maken met behulp van ggplot2.\" \/>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/statorials.org\/nl\/bumpplot-in-r-met-behulp-van-ggplot2\/\" \/>\n<meta property=\"og:locale\" content=\"de_DE\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Hoe u eenvoudig een bumpdiagram in R kunt maken met ggplot2 - Statorials\" \/>\n<meta property=\"og:description\" content=\"In deze tutorial wordt uitgelegd hoe u eenvoudig een bumpplot in R kunt maken met behulp van ggplot2.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/statorials.org\/nl\/bumpplot-in-r-met-behulp-van-ggplot2\/\" \/>\n<meta property=\"og:site_name\" content=\"Statorials\" \/>\n<meta property=\"article:published_time\" content=\"2023-07-29T19:13:06+00:00\" \/>\n<meta name=\"author\" content=\"Dr.benjamin anderson\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Verfasst von\" \/>\n\t<meta name=\"twitter:data1\" content=\"Dr.benjamin anderson\" \/>\n\t<meta name=\"twitter:label2\" content=\"Gesch\u00e4tzte Lesezeit\" \/>\n\t<meta name=\"twitter:data2\" content=\"4\u00a0Minuten\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\/\/schema.org\",\"@graph\":[{\"@type\":\"WebPage\",\"@id\":\"https:\/\/statorials.org\/nl\/bumpplot-in-r-met-behulp-van-ggplot2\/\",\"url\":\"https:\/\/statorials.org\/nl\/bumpplot-in-r-met-behulp-van-ggplot2\/\",\"name\":\"Hoe u eenvoudig een bumpdiagram in R kunt maken met ggplot2 - Statorials\",\"isPartOf\":{\"@id\":\"https:\/\/statorials.org\/nl\/#website\"},\"datePublished\":\"2023-07-29T19:13:06+00:00\",\"dateModified\":\"2023-07-29T19:13:06+00:00\",\"author\":{\"@id\":\"https:\/\/statorials.org\/nl\/#\/schema\/person\/d4b8842173cca1bb62cdec41860e4219\"},\"description\":\"In deze tutorial wordt uitgelegd hoe u eenvoudig een bumpplot in R kunt maken met behulp van ggplot2.\",\"breadcrumb\":{\"@id\":\"https:\/\/statorials.org\/nl\/bumpplot-in-r-met-behulp-van-ggplot2\/#breadcrumb\"},\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/statorials.org\/nl\/bumpplot-in-r-met-behulp-van-ggplot2\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/statorials.org\/nl\/bumpplot-in-r-met-behulp-van-ggplot2\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Thuis\",\"item\":\"https:\/\/statorials.org\/nl\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Hoe u eenvoudig een reli\u00ebfplot in r kunt maken met ggplot2\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\/\/statorials.org\/nl\/#website\",\"url\":\"https:\/\/statorials.org\/nl\/\",\"name\":\"Statorials\",\"description\":\"Uw gids voor statistische competentie\",\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\/\/statorials.org\/nl\/?s={search_term_string}\"},\"query-input\":\"required name=search_term_string\"}],\"inLanguage\":\"de\"},{\"@type\":\"Person\",\"@id\":\"https:\/\/statorials.org\/nl\/#\/schema\/person\/d4b8842173cca1bb62cdec41860e4219\",\"name\":\"Dr.benjamin anderson\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\/\/statorials.org\/nl\/#\/schema\/person\/image\/\",\"url\":\"http:\/\/statorials.org\/nl\/wp-content\/uploads\/2023\/10\/Dr.-Benjamin-Anderson-96x96.jpg\",\"contentUrl\":\"http:\/\/statorials.org\/nl\/wp-content\/uploads\/2023\/10\/Dr.-Benjamin-Anderson-96x96.jpg\",\"caption\":\"Dr.benjamin anderson\"},\"description\":\"Ik ben Benjamin, een gepensioneerde hoogleraar statistiek die nu een toegewijde Statorials-lesgever is. Ik heb uitgebreide ervaring en expertise op het gebied van statistiek en ik ben vastbesloten om mijn kennis te delen met studenten via Statorials. Lees verder\",\"sameAs\":[\"http:\/\/statorials.org\/nl\"]}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"Hoe u eenvoudig een bumpdiagram in R kunt maken met ggplot2 - Statorials","description":"In deze tutorial wordt uitgelegd hoe u eenvoudig een bumpplot in R kunt maken met behulp van ggplot2.","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/statorials.org\/nl\/bumpplot-in-r-met-behulp-van-ggplot2\/","og_locale":"de_DE","og_type":"article","og_title":"Hoe u eenvoudig een bumpdiagram in R kunt maken met ggplot2 - Statorials","og_description":"In deze tutorial wordt uitgelegd hoe u eenvoudig een bumpplot in R kunt maken met behulp van ggplot2.","og_url":"https:\/\/statorials.org\/nl\/bumpplot-in-r-met-behulp-van-ggplot2\/","og_site_name":"Statorials","article_published_time":"2023-07-29T19:13:06+00:00","author":"Dr.benjamin anderson","twitter_card":"summary_large_image","twitter_misc":{"Verfasst von":"Dr.benjamin anderson","Gesch\u00e4tzte Lesezeit":"4\u00a0Minuten"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"WebPage","@id":"https:\/\/statorials.org\/nl\/bumpplot-in-r-met-behulp-van-ggplot2\/","url":"https:\/\/statorials.org\/nl\/bumpplot-in-r-met-behulp-van-ggplot2\/","name":"Hoe u eenvoudig een bumpdiagram in R kunt maken met ggplot2 - Statorials","isPartOf":{"@id":"https:\/\/statorials.org\/nl\/#website"},"datePublished":"2023-07-29T19:13:06+00:00","dateModified":"2023-07-29T19:13:06+00:00","author":{"@id":"https:\/\/statorials.org\/nl\/#\/schema\/person\/d4b8842173cca1bb62cdec41860e4219"},"description":"In deze tutorial wordt uitgelegd hoe u eenvoudig een bumpplot in R kunt maken met behulp van ggplot2.","breadcrumb":{"@id":"https:\/\/statorials.org\/nl\/bumpplot-in-r-met-behulp-van-ggplot2\/#breadcrumb"},"inLanguage":"de","potentialAction":[{"@type":"ReadAction","target":["https:\/\/statorials.org\/nl\/bumpplot-in-r-met-behulp-van-ggplot2\/"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/statorials.org\/nl\/bumpplot-in-r-met-behulp-van-ggplot2\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Thuis","item":"https:\/\/statorials.org\/nl\/"},{"@type":"ListItem","position":2,"name":"Hoe u eenvoudig een reli\u00ebfplot in r kunt maken met ggplot2"}]},{"@type":"WebSite","@id":"https:\/\/statorials.org\/nl\/#website","url":"https:\/\/statorials.org\/nl\/","name":"Statorials","description":"Uw gids voor statistische competentie","potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/statorials.org\/nl\/?s={search_term_string}"},"query-input":"required name=search_term_string"}],"inLanguage":"de"},{"@type":"Person","@id":"https:\/\/statorials.org\/nl\/#\/schema\/person\/d4b8842173cca1bb62cdec41860e4219","name":"Dr.benjamin anderson","image":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/statorials.org\/nl\/#\/schema\/person\/image\/","url":"http:\/\/statorials.org\/nl\/wp-content\/uploads\/2023\/10\/Dr.-Benjamin-Anderson-96x96.jpg","contentUrl":"http:\/\/statorials.org\/nl\/wp-content\/uploads\/2023\/10\/Dr.-Benjamin-Anderson-96x96.jpg","caption":"Dr.benjamin anderson"},"description":"Ik ben Benjamin, een gepensioneerde hoogleraar statistiek die nu een toegewijde Statorials-lesgever is. Ik heb uitgebreide ervaring en expertise op het gebied van statistiek en ik ben vastbesloten om mijn kennis te delen met studenten via Statorials. Lees verder","sameAs":["http:\/\/statorials.org\/nl"]}]}},"yoast_meta":{"yoast_wpseo_title":"","yoast_wpseo_metadesc":"","yoast_wpseo_canonical":""},"_links":{"self":[{"href":"https:\/\/statorials.org\/nl\/wp-json\/wp\/v2\/posts\/474","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/statorials.org\/nl\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/statorials.org\/nl\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/statorials.org\/nl\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/statorials.org\/nl\/wp-json\/wp\/v2\/comments?post=474"}],"version-history":[{"count":0,"href":"https:\/\/statorials.org\/nl\/wp-json\/wp\/v2\/posts\/474\/revisions"}],"wp:attachment":[{"href":"https:\/\/statorials.org\/nl\/wp-json\/wp\/v2\/media?parent=474"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/statorials.org\/nl\/wp-json\/wp\/v2\/categories?post=474"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/statorials.org\/nl\/wp-json\/wp\/v2\/tags?post=474"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}