Research paper data selection

R Markdown

library(tidyverse)

## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.2.1     ✔ readr     2.2.0
## ✔ forcats   1.0.1     ✔ stringr   1.6.0
## ✔ ggplot2   4.0.3     ✔ tibble    3.3.1
## ✔ lubridate 1.9.5     ✔ tidyr     1.3.2
## ✔ purrr     1.2.2     
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

library(readxl)

district <-read_excel("district (2).xls")

data<-district %>% select(DPETECOP,DA0912DR21R)

summary(data)

##     DPETECOP       DA0912DR21R    
##  Min.   :  0.00   Min.   :-1.000  
##  1st Qu.: 47.95   1st Qu.: 0.000  
##  Median : 61.90   Median : 0.400  
##  Mean   : 60.75   Mean   : 1.243  
##  3rd Qu.: 77.15   3rd Qu.: 1.400  
##  Max.   :100.00   Max.   :50.500  
##                   NAs    :112

data1<-data%>% na.omit()

hist(data$DPETECOP)

hist(data$DA0912DR21R)

I created a summary of STUDENTS: % ECONOMICALLY DISADVANTAGED and ANNUAL DROPOUT RATE GR. 9-12 (2020-21). The i put them in a histogram.

plot(data1$DPETECOP,data1$DA0912DR21R)

cor(data1$DPETECOP,data1$DA0912DR21R)

## [1] 0.2440435

I then plotted them and compared the data. It looks like there is a weak correlation between percent of economically disadvantaged and annual drop out rate.