Homework-9

#R script Homework 9 March 26_2025
library(devtools)

## Carregando pacotes exigidos: usethis

install_github('ngotelli/upscaler')

## Using GitHub PAT from the git credential store.

## Skipping install of 'upscaler' from a github remote, the SHA1 (7ec4f3bc) has not changed since last install.
##   Use `force = TRUE` to force installation

library(upscaler)
library(stringr)
library(tidyverse)

## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.4     ✔ purrr     1.0.2
## ✔ forcats   1.0.0     ✔ readr     2.1.5
## ✔ ggplot2   3.5.1     ✔ tibble    3.2.1
## ✔ lubridate 1.9.4     ✔ tidyr     1.3.1

## ── 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(sqldf)

## Carregando pacotes exigidos: gsubfn
## Carregando pacotes exigidos: proto
## Carregando pacotes exigidos: RSQLite

x<-list.files("C:/Users/jujud/OneDrive/Documentos/Computational Biology/Assignments")
subfolders <- x
for(i in 1:10){
  print(x[i])
  CleanedData<-list.files(
    path = list.files(),
    pattern=".brd_countdata.",
    full.names=TRUE)
  print(CleanedData)
}

## [1] "_site.yml"
##  [1] "NEON.D01.BART.DP1.10003.001.2015-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2015-06.basic.20241118T065914Z.csv"
##  [2] "NEON.D01.BART.DP1.10003.001.2016-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2016-06.basic.20241118T142515Z.csv"
##  [3] "NEON.D01.BART.DP1.10003.001.2017-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2017-06.basic.20241118T043125Z.csv"
##  [4] "NEON.D01.BART.DP1.10003.001.2018-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2018-06.basic.20241118T105926Z.csv"
##  [5] "NEON.D01.BART.DP1.10003.001.2019-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2019-06.basic.20241118T064156Z.csv"
##  [6] "NEON.D01.BART.DP1.10003.001.2020-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2020-06.basic.20241118T184512Z.csv"
##  [7] "NEON.D01.BART.DP1.10003.001.2020-07.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2020-07.basic.20241118T010504Z.csv"
##  [8] "NEON.D01.BART.DP1.10003.001.2021-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2021-06.basic.20241118T105538Z.csv"
##  [9] "NEON.D01.BART.DP1.10003.001.2022-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2022-06.basic.20241118T033934Z.csv"
## [10] "NEON.D01.BART.DP1.10003.001.2023-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2023-06.basic.20241118T091043Z.csv"
## [1] "4loops.feb18.2025.R"
##  [1] "NEON.D01.BART.DP1.10003.001.2015-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2015-06.basic.20241118T065914Z.csv"
##  [2] "NEON.D01.BART.DP1.10003.001.2016-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2016-06.basic.20241118T142515Z.csv"
##  [3] "NEON.D01.BART.DP1.10003.001.2017-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2017-06.basic.20241118T043125Z.csv"
##  [4] "NEON.D01.BART.DP1.10003.001.2018-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2018-06.basic.20241118T105926Z.csv"
##  [5] "NEON.D01.BART.DP1.10003.001.2019-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2019-06.basic.20241118T064156Z.csv"
##  [6] "NEON.D01.BART.DP1.10003.001.2020-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2020-06.basic.20241118T184512Z.csv"
##  [7] "NEON.D01.BART.DP1.10003.001.2020-07.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2020-07.basic.20241118T010504Z.csv"
##  [8] "NEON.D01.BART.DP1.10003.001.2021-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2021-06.basic.20241118T105538Z.csv"
##  [9] "NEON.D01.BART.DP1.10003.001.2022-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2022-06.basic.20241118T033934Z.csv"
## [10] "NEON.D01.BART.DP1.10003.001.2023-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2023-06.basic.20241118T091043Z.csv"
## [1] "about.Rmd"
##  [1] "NEON.D01.BART.DP1.10003.001.2015-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2015-06.basic.20241118T065914Z.csv"
##  [2] "NEON.D01.BART.DP1.10003.001.2016-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2016-06.basic.20241118T142515Z.csv"
##  [3] "NEON.D01.BART.DP1.10003.001.2017-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2017-06.basic.20241118T043125Z.csv"
##  [4] "NEON.D01.BART.DP1.10003.001.2018-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2018-06.basic.20241118T105926Z.csv"
##  [5] "NEON.D01.BART.DP1.10003.001.2019-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2019-06.basic.20241118T064156Z.csv"
##  [6] "NEON.D01.BART.DP1.10003.001.2020-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2020-06.basic.20241118T184512Z.csv"
##  [7] "NEON.D01.BART.DP1.10003.001.2020-07.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2020-07.basic.20241118T010504Z.csv"
##  [8] "NEON.D01.BART.DP1.10003.001.2021-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2021-06.basic.20241118T105538Z.csv"
##  [9] "NEON.D01.BART.DP1.10003.001.2022-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2022-06.basic.20241118T033934Z.csv"
## [10] "NEON.D01.BART.DP1.10003.001.2023-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2023-06.basic.20241118T091043Z.csv"
## [1] "April 10_ggplot4_colors.R"
##  [1] "NEON.D01.BART.DP1.10003.001.2015-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2015-06.basic.20241118T065914Z.csv"
##  [2] "NEON.D01.BART.DP1.10003.001.2016-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2016-06.basic.20241118T142515Z.csv"
##  [3] "NEON.D01.BART.DP1.10003.001.2017-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2017-06.basic.20241118T043125Z.csv"
##  [4] "NEON.D01.BART.DP1.10003.001.2018-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2018-06.basic.20241118T105926Z.csv"
##  [5] "NEON.D01.BART.DP1.10003.001.2019-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2019-06.basic.20241118T064156Z.csv"
##  [6] "NEON.D01.BART.DP1.10003.001.2020-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2020-06.basic.20241118T184512Z.csv"
##  [7] "NEON.D01.BART.DP1.10003.001.2020-07.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2020-07.basic.20241118T010504Z.csv"
##  [8] "NEON.D01.BART.DP1.10003.001.2021-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2021-06.basic.20241118T105538Z.csv"
##  [9] "NEON.D01.BART.DP1.10003.001.2022-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2022-06.basic.20241118T033934Z.csv"
## [10] "NEON.D01.BART.DP1.10003.001.2023-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2023-06.basic.20241118T091043Z.csv"
## [1] "April_1_2025.R"
##  [1] "NEON.D01.BART.DP1.10003.001.2015-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2015-06.basic.20241118T065914Z.csv"
##  [2] "NEON.D01.BART.DP1.10003.001.2016-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2016-06.basic.20241118T142515Z.csv"
##  [3] "NEON.D01.BART.DP1.10003.001.2017-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2017-06.basic.20241118T043125Z.csv"
##  [4] "NEON.D01.BART.DP1.10003.001.2018-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2018-06.basic.20241118T105926Z.csv"
##  [5] "NEON.D01.BART.DP1.10003.001.2019-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2019-06.basic.20241118T064156Z.csv"
##  [6] "NEON.D01.BART.DP1.10003.001.2020-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2020-06.basic.20241118T184512Z.csv"
##  [7] "NEON.D01.BART.DP1.10003.001.2020-07.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2020-07.basic.20241118T010504Z.csv"
##  [8] "NEON.D01.BART.DP1.10003.001.2021-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2021-06.basic.20241118T105538Z.csv"
##  [9] "NEON.D01.BART.DP1.10003.001.2022-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2022-06.basic.20241118T033934Z.csv"
## [10] "NEON.D01.BART.DP1.10003.001.2023-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2023-06.basic.20241118T091043Z.csv"
## [1] "april15.R"
##  [1] "NEON.D01.BART.DP1.10003.001.2015-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2015-06.basic.20241118T065914Z.csv"
##  [2] "NEON.D01.BART.DP1.10003.001.2016-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2016-06.basic.20241118T142515Z.csv"
##  [3] "NEON.D01.BART.DP1.10003.001.2017-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2017-06.basic.20241118T043125Z.csv"
##  [4] "NEON.D01.BART.DP1.10003.001.2018-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2018-06.basic.20241118T105926Z.csv"
##  [5] "NEON.D01.BART.DP1.10003.001.2019-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2019-06.basic.20241118T064156Z.csv"
##  [6] "NEON.D01.BART.DP1.10003.001.2020-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2020-06.basic.20241118T184512Z.csv"
##  [7] "NEON.D01.BART.DP1.10003.001.2020-07.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2020-07.basic.20241118T010504Z.csv"
##  [8] "NEON.D01.BART.DP1.10003.001.2021-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2021-06.basic.20241118T105538Z.csv"
##  [9] "NEON.D01.BART.DP1.10003.001.2022-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2022-06.basic.20241118T033934Z.csv"
## [10] "NEON.D01.BART.DP1.10003.001.2023-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2023-06.basic.20241118T091043Z.csv"
## [1] "Assignments.Rproj"
##  [1] "NEON.D01.BART.DP1.10003.001.2015-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2015-06.basic.20241118T065914Z.csv"
##  [2] "NEON.D01.BART.DP1.10003.001.2016-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2016-06.basic.20241118T142515Z.csv"
##  [3] "NEON.D01.BART.DP1.10003.001.2017-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2017-06.basic.20241118T043125Z.csv"
##  [4] "NEON.D01.BART.DP1.10003.001.2018-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2018-06.basic.20241118T105926Z.csv"
##  [5] "NEON.D01.BART.DP1.10003.001.2019-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2019-06.basic.20241118T064156Z.csv"
##  [6] "NEON.D01.BART.DP1.10003.001.2020-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2020-06.basic.20241118T184512Z.csv"
##  [7] "NEON.D01.BART.DP1.10003.001.2020-07.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2020-07.basic.20241118T010504Z.csv"
##  [8] "NEON.D01.BART.DP1.10003.001.2021-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2021-06.basic.20241118T105538Z.csv"
##  [9] "NEON.D01.BART.DP1.10003.001.2022-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2022-06.basic.20241118T033934Z.csv"
## [10] "NEON.D01.BART.DP1.10003.001.2023-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2023-06.basic.20241118T091043Z.csv"
## [1] "Atomicvector2.R"
##  [1] "NEON.D01.BART.DP1.10003.001.2015-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2015-06.basic.20241118T065914Z.csv"
##  [2] "NEON.D01.BART.DP1.10003.001.2016-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2016-06.basic.20241118T142515Z.csv"
##  [3] "NEON.D01.BART.DP1.10003.001.2017-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2017-06.basic.20241118T043125Z.csv"
##  [4] "NEON.D01.BART.DP1.10003.001.2018-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2018-06.basic.20241118T105926Z.csv"
##  [5] "NEON.D01.BART.DP1.10003.001.2019-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2019-06.basic.20241118T064156Z.csv"
##  [6] "NEON.D01.BART.DP1.10003.001.2020-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2020-06.basic.20241118T184512Z.csv"
##  [7] "NEON.D01.BART.DP1.10003.001.2020-07.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2020-07.basic.20241118T010504Z.csv"
##  [8] "NEON.D01.BART.DP1.10003.001.2021-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2021-06.basic.20241118T105538Z.csv"
##  [9] "NEON.D01.BART.DP1.10003.001.2022-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2022-06.basic.20241118T033934Z.csv"
## [10] "NEON.D01.BART.DP1.10003.001.2023-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2023-06.basic.20241118T091043Z.csv"
## [1] "class 18 march.R"
##  [1] "NEON.D01.BART.DP1.10003.001.2015-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2015-06.basic.20241118T065914Z.csv"
##  [2] "NEON.D01.BART.DP1.10003.001.2016-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2016-06.basic.20241118T142515Z.csv"
##  [3] "NEON.D01.BART.DP1.10003.001.2017-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2017-06.basic.20241118T043125Z.csv"
##  [4] "NEON.D01.BART.DP1.10003.001.2018-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2018-06.basic.20241118T105926Z.csv"
##  [5] "NEON.D01.BART.DP1.10003.001.2019-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2019-06.basic.20241118T064156Z.csv"
##  [6] "NEON.D01.BART.DP1.10003.001.2020-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2020-06.basic.20241118T184512Z.csv"
##  [7] "NEON.D01.BART.DP1.10003.001.2020-07.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2020-07.basic.20241118T010504Z.csv"
##  [8] "NEON.D01.BART.DP1.10003.001.2021-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2021-06.basic.20241118T105538Z.csv"
##  [9] "NEON.D01.BART.DP1.10003.001.2022-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2022-06.basic.20241118T033934Z.csv"
## [10] "NEON.D01.BART.DP1.10003.001.2023-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2023-06.basic.20241118T091043Z.csv"
## [1] "Class 27 feb 2025.R"
##  [1] "NEON.D01.BART.DP1.10003.001.2015-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2015-06.basic.20241118T065914Z.csv"
##  [2] "NEON.D01.BART.DP1.10003.001.2016-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2016-06.basic.20241118T142515Z.csv"
##  [3] "NEON.D01.BART.DP1.10003.001.2017-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2017-06.basic.20241118T043125Z.csv"
##  [4] "NEON.D01.BART.DP1.10003.001.2018-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2018-06.basic.20241118T105926Z.csv"
##  [5] "NEON.D01.BART.DP1.10003.001.2019-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2019-06.basic.20241118T064156Z.csv"
##  [6] "NEON.D01.BART.DP1.10003.001.2020-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2020-06.basic.20241118T184512Z.csv"
##  [7] "NEON.D01.BART.DP1.10003.001.2020-07.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2020-07.basic.20241118T010504Z.csv"
##  [8] "NEON.D01.BART.DP1.10003.001.2021-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2021-06.basic.20241118T105538Z.csv"
##  [9] "NEON.D01.BART.DP1.10003.001.2022-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2022-06.basic.20241118T033934Z.csv"
## [10] "NEON.D01.BART.DP1.10003.001.2023-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2023-06.basic.20241118T091043Z.csv"

years <- (2015:2023)

for (i in 1:10) {
  print(CleanedData[i])
  raw_data <- read.csv(CleanedData[i], na.strings = c("","NA")) 
  clean_data <- raw_data[complete.cases(raw_data["scientificName"]),                ] 
  write.csv(CleanedData,paste0("CleanedData", years[i], ".csv"))

}

## [1] "NEON.D01.BART.DP1.10003.001.2015-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2015-06.basic.20241118T065914Z.csv"
## [1] "NEON.D01.BART.DP1.10003.001.2016-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2016-06.basic.20241118T142515Z.csv"
## [1] "NEON.D01.BART.DP1.10003.001.2017-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2017-06.basic.20241118T043125Z.csv"
## [1] "NEON.D01.BART.DP1.10003.001.2018-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2018-06.basic.20241118T105926Z.csv"
## [1] "NEON.D01.BART.DP1.10003.001.2019-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2019-06.basic.20241118T064156Z.csv"
## [1] "NEON.D01.BART.DP1.10003.001.2020-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2020-06.basic.20241118T184512Z.csv"
## [1] "NEON.D01.BART.DP1.10003.001.2020-07.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2020-07.basic.20241118T010504Z.csv"
## [1] "NEON.D01.BART.DP1.10003.001.2021-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2021-06.basic.20241118T105538Z.csv"
## [1] "NEON.D01.BART.DP1.10003.001.2022-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2022-06.basic.20241118T033934Z.csv"
## [1] "NEON.D01.BART.DP1.10003.001.2023-06.basic.20250129T000730Z.RELEASE-2025/NEON.D01.BART.DP1.10003.001.brd_countdata.2023-06.basic.20241118T091043Z.csv"

glimpse(clean_data)

## Rows: 513
## Columns: 24
## $ uid                     <chr> "1e96def8-6567-4daa-864f-1b7527b635f6", "5faaf…
## $ namedLocation           <chr> "BART_016.birdGrid.brd", "BART_016.birdGrid.br…
## $ domainID                <chr> "D01", "D01", "D01", "D01", "D01", "D01", "D01…
## $ siteID                  <chr> "BART", "BART", "BART", "BART", "BART", "BART"…
## $ plotID                  <chr> "BART_016", "BART_016", "BART_016", "BART_016"…
## $ plotType                <chr> "distributed", "distributed", "distributed", "…
## $ pointID                 <int> 3, 3, 3, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1…
## $ startDate               <chr> "2023-06-16T10:25Z", "2023-06-16T10:25Z", "202…
## $ boutNumber              <int> 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1…
## $ eventID                 <chr> "BRD.BART.2023.1", "BRD.BART.2023.1", "BRD.BAR…
## $ pointCountMinute        <int> 1, 1, 1, 1, 2, 1, 4, 1, 1, 1, 4, 1, 3, 2, 5, 6…
## $ targetTaxaPresent       <chr> "Y", "Y", "Y", "Y", "Y", "Y", "Y", "Y", "Y", "…
## $ taxonID                 <chr> "OVEN", "REVI", "WIWR", "BHVI", "BLBW", "WIWR"…
## $ scientificName          <chr> "Seiurus aurocapilla", "Vireo olivaceus", "Tro…
## $ taxonRank               <chr> "species", "species", "species", "species", "s…
## $ vernacularName          <chr> "Ovenbird", "Red-eyed Vireo", "Winter Wren", "…
## $ observerDistance        <int> 34, 28, 42, 26, 27, 55, 33, 21, 30, 19, 32, 22…
## $ detectionMethod         <chr> "singing", "singing", "singing", "singing", "s…
## $ visualConfirmation      <chr> "No", "No", "No", "No", "No", "No", "No", "No"…
## $ sexOrAge                <chr> "Unknown", "Unknown", "Unknown", "Unknown", "U…
## $ clusterSize             <int> 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1…
## $ clusterCode             <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA…
## $ identifiedBy            <chr> "KKLAP", "KKLAP", "KKLAP", "KKLAP", "KKLAP", "…
## $ identificationHistoryID <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA…

#To try to calculate abundance and richness per year tried to add a colunm with the year that is linked to the file but wasn`t able to troubleshoot.

Homework-9

Juliana Dau

2025-05-07