<\/p>\n
In deze tutorial wordt uitgelegd wanneer en hoe u de jitter-<\/strong> functie in R voor puntenwolken kunt gebruiken.<\/span><\/p>\n Spreidingsdiagrammen<\/strong> zijn uitstekend geschikt voor het visualiseren van de relatie tussen twee continue variabelen. Het volgende spreidingsdiagram helpt ons bijvoorbeeld de relatie tussen lengte en gewicht voor 100 atleten te visualiseren:<\/span><\/p>\n Soms willen we echter misschien de relatie visualiseren tussen een continue variabele en een andere bijna<\/em> continue variabele.<\/span><\/p>\n Stel dat we bijvoorbeeld de volgende gegevensset hebben die het aantal wedstrijden weergeeft dat een basketbalspeler is begonnen gedurende de eerste tien wedstrijden van een seizoen, samen met het gemiddelde aantal punten per wedstrijd:<\/span><\/p>\n Punten per spel<\/em> zijn een continue variabele, maar gestarte spellen<\/em> zijn een discrete variabele. Als we proberen een spreidingsdiagram van deze twee variabelen te maken, ziet het er zo uit:<\/span><\/p>\n Op basis van dit spreidingsdiagram kunnen we zeggen dat het begin van het spel<\/em> en het gemiddelde aantal punten per spel<\/em> een positieve relatie hebben, maar het is een beetje moeilijk om de individuele punten in het plot te zien, omdat veel ervan elkaar overlappen.<\/span><\/p>\n Met behulp van de Jitter-<\/strong> functie kunnen we wat „ruis“ toevoegen aan de gegenereerde variabelensets op de X-as,<\/em> zodat we de afzonderlijke punten op de grafiek duidelijker kunnen zien:<\/span><\/p>\n We kunnen optioneel een numeriek argument aan jitter toevoegen om nog meer ruis aan de gegevens toe te voegen:<\/span><\/p>\n We moeten echter oppassen dat we niet te veel jitter toevoegen, omdat dit de originele gegevens te veel zou kunnen vervormen:<\/span><\/p>\n Instabiliteit is vooral handig wanneer een van de niveaus van de discrete variabele veel meer waarden heeft dan de andere niveaus.<\/span><\/p>\n In de volgende dataset zijn er bijvoorbeeld driehonderd basketbalspelers die aan twee van de eerste vijf wedstrijden van het seizoen zijn begonnen, maar slechts ongeveer 100 spelers die aan 1, 3, 4 of 5 wedstrijden zijn begonnen: Wanneer we het aantal gespeelde games visualiseren in verhouding tot de gemiddelde punten per game, kunnen we zeggen dat er meer spelers zijn die 2 games hebben gespeeld, maar het is moeilijk om precies te zeggen hoeveel anderen<\/em> 2 games hebben gespeeld:<\/span><\/p>\n Zodra we echter jitter toevoegen aan de variabele voor het begin van het spel<\/em> , kunnen we zien hoeveel extra spelers 2 games zijn gestart:<\/span><\/p>\n Als u de hoeveelheid jitter iets verhoogt, wordt dit verschil nog duidelijker:<\/span><\/p>\n Jitter alleen voor visualisaties<\/strong><\/span><\/p>\n<\/h3>\n Zoals eerder vermeld, voegt jitter willekeurige ruis toe aan gegevens, wat nuttig kan zijn als we gegevens in een puntenwolk willen visualiseren. Door de jitterfunctie te gebruiken, kunnen we een beter beeld krijgen van de werkelijke onderliggende relatie tussen twee variabelen in een dataset.<\/span><\/p>\n Bij het gebruik van statistische analyses zoals regressie heeft het echter geen zin om willekeurige ruis toe te voegen aan de variabelen in een dataset, omdat dit de resultaten van een analyse zou be\u00efnvloeden.<\/span><\/p>\n Jitter is dus alleen bedoeld om te worden gebruikt voor datavisualisatie, niet voor data-analyse.<\/span><\/p>\n","protected":false},"excerpt":{"rendered":" In deze tutorial wordt uitgelegd wanneer en hoe u de jitter- functie in R voor puntenwolken kunt gebruiken. Wanneer jitter gebruiken? Spreidingsdiagrammen zijn uitstekend geschikt voor het visualiseren van de relatie tussen twee continue variabelen. Het volgende spreidingsdiagram helpt ons bijvoorbeeld de relatie tussen lengte en gewicht voor 100 atleten te visualiseren: #define vectors of […]<\/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-478","post","type-post","status-publish","format-standard","hentry","category-gids"],"yoast_head":"\n Wanneer jitter gebruiken?<\/strong><\/span><\/h3>\n
#define vectors of heights and weights\n<\/span>weights <- runif(100, 160, 240) \nheights <- (weights\/3) + rnorm(100)\n\n#create data frame of heights and weights\n<\/span>data <- as.data.frame(cbind(weights, heights))\n\n#view first six rows of data frame\n<\/span>head(data)\n\n# weights heights\n#1 170.8859 57.20745\n#2 183.2481 62.01162\n#3 235.6884 77.93126\n#4 231.9864 77.12520\n#5 200.8562 67.93486\n#6 169.6987 57.54977\n#create scatterplot of heights vs weights\n<\/span>plot(data$weights, data$heights, pch = 16, col = 'steelblue')<\/strong><\/pre>\n #create data frame<\/span>\ngames_started <- sample(1:10, 300, TRUE)\npoints_per_game <- 3*games_started + rnorm(300)\ndata <- as.data.frame(cbind(games_started, points_per_game))\n\n#view first six rows of data frame\n<\/span>head(data)\n\n# games_started points_per_game\n#1 9 25.831554\n#2 9 26.673983\n#3 10 29.850948\n#4 4 12.024353\n#5 4 11.534192\n#6 1 4.383127<\/strong><\/pre>\n #create scatterplot of games started vs average points per game\n<\/span>plot(data$games_started, data$points_per_game, pch = 16, col = 'steelblue')<\/strong><\/pre>\n #add jitter to games started\n<\/em><\/span>plot( jitter<\/span> (data$games_started), data$points_per_game, pch = 16, col = 'steelblue')<\/strong><\/pre>\n #add jitter to games started\n<\/em><\/span>plot( jitter<\/span> (data$games_started, 2<\/span> ), data$points_per_game, pch = 16, col = 'steelblue')<\/strong><\/pre>\n plot( jitter<\/span> (data$games_started, 20<\/span> ), data$points_per_game, pch = 16, col = 'steelblue')<\/strong><\/pre>\n Jittering zorgt voor een beter zicht op gegevens<\/strong><\/span><\/h3>\n
<\/span><\/p>\n games_started <- sample(1:5, 100, TRUE)\npoints_per_game <- 3*games_started + rnorm(100)\ndata <- as.data.frame(cbind(games_started, points_per_game))\n\ngames_twos <- rep(2, 200)\npoints_twos <- 3*games_twos + rnorm(200)\ndata_twos <- as.data.frame(cbind(games_twos, points_twos))\nnames(data_twos) <- c('games_started', 'points_per_game')\n\nall_data <- rbind(data, data_twos)<\/strong><\/pre>\n plot(all_data$games_started, all_data$points_per_game, pch = 16, col = 'steelblue')<\/strong><\/pre>\n
plot( jitter<\/span> (all_data$games_started), all_data$points_per_game,\n pch=16, col='steelblue')<\/strong><\/pre>\n plot( jitter<\/span> (all_data$games_started, 1.5<\/span> ), all_data$points_per_game,\n pch=16, col='steelblue')<\/strong><\/pre>\n\n