Import data

# csv file
data <- read_csv("Apply it #2.xlsx")
data
## # A tibble: 1 × 1
##   `<?xml version="1.0" encoding="UTF-8" standalone="yes"?>`                     
##   <chr>                                                                         
## 1 "<Types xmlns=\"http://schemas.openxmlformats.org/package/2006/content-types\…
# excel file
data <- read_excel("Apply it #2.xlsx")

State one question

data <- read_csv("Apply it #2.xlsx")
data
## # A tibble: 1 × 1
##   `<?xml version="1.0" encoding="UTF-8" standalone="yes"?>`                     
##   <chr>                                                                         
## 1 "<Types xmlns=\"http://schemas.openxmlformats.org/package/2006/content-types\…
data <- read_csv("Apply it #2.xlsx")
data
## # A tibble: 1 × 1
##   `<?xml version="1.0" encoding="UTF-8" standalone="yes"?>`                     
##   <chr>                                                                         
## 1 "<Types xmlns=\"http://schemas.openxmlformats.org/package/2006/content-types\…
# Plot data


# Interpret