Loading [MathJax]/extensions/TeX/newcommand.js
Skip to main content
LibreTexts - Ukrayinska

13: Вибірка в R

\newcommand{\vecs}[1]{\overset { \scriptstyle \rightharpoonup} {\mathbf{#1}} }  \newcommand{\vecd}[1]{\overset{-\!-\!\rightharpoonup}{\vphantom{a}\smash {#1}}} \newcommand{\id}{\mathrm{id}} \newcommand{\Span}{\mathrm{span}} \newcommand{\kernel}{\mathrm{null}\,} \newcommand{\range}{\mathrm{range}\,} \newcommand{\RealPart}{\mathrm{Re}} \newcommand{\ImaginaryPart}{\mathrm{Im}} \newcommand{\Argument}{\mathrm{Arg}} \newcommand{\norm}[1]{\| #1 \|} \newcommand{\inner}[2]{\langle #1, #2 \rangle} \newcommand{\Span}{\mathrm{span}} \newcommand{\id}{\mathrm{id}} \newcommand{\Span}{\mathrm{span}} \newcommand{\kernel}{\mathrm{null}\,} \newcommand{\range}{\mathrm{range}\,} \newcommand{\RealPart}{\mathrm{Re}} \newcommand{\ImaginaryPart}{\mathrm{Im}} \newcommand{\Argument}{\mathrm{Arg}} \newcommand{\norm}[1]{\| #1 \|} \newcommand{\inner}[2]{\langle #1, #2 \rangle} \newcommand{\Span}{\mathrm{span}}

First we load the necessary libraries and set up the NHANES adult dataset

library(tidyverse)
library(ggplot2)
library(knitr)
library(cowplot)

set.seed(123456)
opts_chunk$set(tidy.opts=list(width.cutoff=80))
options(tibble.width = 60)


# load the NHANES data library
library(NHANES)

# create a NHANES dataset without duplicated IDs 
NHANES <-
  NHANES %>%
  distinct(ID, .keep_all = TRUE) 

#create a dataset of only adults
NHANES_adult <- 
  NHANES %>%
  filter( 
    Age >= 18
  ) %>%
  drop_na(Height)