Need Help Organizing Data

HABSaremyjam · August 6, 2021, 4:32pm

Hello awesome contributors,

I have a daunting task ahead that I honestly don't even know where to begin. I have a dataset where the parameters and values that I want sorted into columns are all jumbled together. Currently the dataset is 4 columns: SITE_ID, LINE, PARAMETER, RESULTS. These are the parameters that I want as column headers, with their respective results in the columns themselves. What I want is for the dataset to look like: SITE_ID, CAST, DEPTH, TEMPERATURE, DO, PH, CONDUCTIVITY, LIGHT_AMB, LIGHT_UW. And then I want the results column to become what is underneath those headers. I have tried filtering and subsetting, but somehow I need R to recognize a column header and then put all the results associated with that parameter in their own columns. And I need those results to be ordered consecutively, as indicated by the "LINE" column.

I hope this makes sense - it may not. I'm going to continue trying to figure it out on my own, but if anyone has any insight on how to go about it, that would be soooo helpful.

Thanks so much!

gbs501 <- structure(list(SITE_ID = c("GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
"GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501"
), LINE = c("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", 
"11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", 
"22", "23", "24", "25", "26", "0", "1", "1", "2", "3", "4", "5", 
"6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", 
"17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "1", 
"2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", 
"14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", 
"25", "26", "0", "0", "0", "1", "2", "3", "4", "5", "6", "7", 
"8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", 
"19", "20", "21", "22", "23", "24", "25", "26", "1", "2", "3", 
"4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", 
"16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", 
"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", 
"13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", 
"24", "25", "26", "1", "2", "3", "4", "5", "6", "7", "8", "9", 
"10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", 
"21", "22", "23", "24", "25", "26", "0", "0", "0", "0", "0", 
"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", 
"13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", 
"24", "25", "26"), PARAMETER = c("CAST", "CAST", "CAST", "CAST", 
"CAST", "CAST", "CAST", "CAST", "CAST", "CAST", "CAST", "CAST", 
"CAST", "CAST", "CAST", "CAST", "CAST", "CAST", "CAST", "CAST", 
"CAST", "CAST", "CAST", "CAST", "CAST", "CAST", "CLEAR_TO_BOTTOM", 
"COMMENT", "CONDUCTIVITY", "CONDUCTIVITY", "CONDUCTIVITY", "CONDUCTIVITY", 
"CONDUCTIVITY", "CONDUCTIVITY", "CONDUCTIVITY", "CONDUCTIVITY", 
"CONDUCTIVITY", "CONDUCTIVITY", "CONDUCTIVITY", "CONDUCTIVITY", 
"CONDUCTIVITY", "CONDUCTIVITY", "CONDUCTIVITY", "CONDUCTIVITY", 
"CONDUCTIVITY", "CONDUCTIVITY", "CONDUCTIVITY", "CONDUCTIVITY", 
"CONDUCTIVITY", "CONDUCTIVITY", "CONDUCTIVITY", "CONDUCTIVITY", 
"CONDUCTIVITY", "CONDUCTIVITY", "DEPTH", "DEPTH", "DEPTH", "DEPTH", 
"DEPTH", "DEPTH", "DEPTH", "DEPTH", "DEPTH", "DEPTH", "DEPTH", 
"DEPTH", "DEPTH", "DEPTH", "DEPTH", "DEPTH", "DEPTH", "DEPTH", 
"DEPTH", "DEPTH", "DEPTH", "DEPTH", "DEPTH", "DEPTH", "DEPTH", 
"DEPTH", "DISAPPEARS_1", "DISAPPEARS_2", "DISAPPEARS_3", "DO", 
"DO", "DO", "DO", "DO", "DO", "DO", "DO", "DO", "DO", "DO", "DO", 
"DO", "DO", "DO", "DO", "DO", "DO", "DO", "DO", "DO", "DO", "DO", 
"DO", "DO", "DO", "LIGHT_AMB", "LIGHT_AMB", "LIGHT_AMB", "LIGHT_AMB", 
"LIGHT_AMB", "LIGHT_AMB", "LIGHT_AMB", "LIGHT_AMB", "LIGHT_AMB", 
"LIGHT_AMB", "LIGHT_AMB", "LIGHT_AMB", "LIGHT_AMB", "LIGHT_AMB", 
"LIGHT_AMB", "LIGHT_AMB", "LIGHT_AMB", "LIGHT_AMB", "LIGHT_AMB", 
"LIGHT_AMB", "LIGHT_AMB", "LIGHT_AMB", "LIGHT_AMB", "LIGHT_AMB", 
"LIGHT_AMB", "LIGHT_AMB", "LIGHT_UW", "LIGHT_UW", "LIGHT_UW", 
"LIGHT_UW", "LIGHT_UW", "LIGHT_UW", "LIGHT_UW", "LIGHT_UW", "LIGHT_UW", 
"LIGHT_UW", "LIGHT_UW", "LIGHT_UW", "LIGHT_UW", "LIGHT_UW", "LIGHT_UW", 
"LIGHT_UW", "LIGHT_UW", "LIGHT_UW", "LIGHT_UW", "LIGHT_UW", "LIGHT_UW", 
"LIGHT_UW", "LIGHT_UW", "LIGHT_UW", "LIGHT_UW", "LIGHT_UW", "PH", 
"PH", "PH", "PH", "PH", "PH", "PH", "PH", "PH", "PH", "PH", "PH", 
"PH", "PH", "PH", "PH", "PH", "PH", "PH", "PH", "PH", "PH", "PH", 
"PH", "PH", "PH", "REAPPEARS_1", "REAPPEARS_2", "REAPPEARS_3", 
"SECCHI_TIME", "STATION_DEPTH", "TEMPERATURE", "TEMPERATURE", 
"TEMPERATURE", "TEMPERATURE", "TEMPERATURE", "TEMPERATURE", "TEMPERATURE", 
"TEMPERATURE", "TEMPERATURE", "TEMPERATURE", "TEMPERATURE", "TEMPERATURE", 
"TEMPERATURE", "TEMPERATURE", "TEMPERATURE", "TEMPERATURE", "TEMPERATURE", 
"TEMPERATURE", "TEMPERATURE", "TEMPERATURE", "TEMPERATURE", "TEMPERATURE", 
"TEMPERATURE", "TEMPERATURE", "TEMPERATURE", "TEMPERATURE"), 
    RESULT = c("DOWN", "DOWN", "DOWN", "DOWN", "DOWN", "DOWN", 
    "DOWN", "DOWN", "DOWN", "DOWN", "DOWN", "DOWN", "DOWN", "UP", 
    "UP", "UP", "UP", "UP", "UP", "UP", "UP", "UP", "UP", "UP", 
    "UP", "UP", "N", "Forgot cap on Amb light sensor resulting in low readings.", 
    "308.4", "308.6", "308.8", "308.6", "309.1", "309.6", "308.9", 
    "309.0", "306.2", "293.4", "287.0", "285.5", "287.7", "287.9", 
    "289.6", "298.1", "306.5", "311.8", "312.2", "311.8", "311.7", 
    "311.0", "310.6", "310.7", "310.9", "311.1", "0.1", "0.5", 
    "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", 
    "11", "10", "9", "8", "7", "6", "5", "4", "3", "2", "1", 
    "0.5", "0.1", "2.3", "2.2", "2.2", "9.5", "9.4", "9.6", "9.5", 
    "9.4", "9.2", "9.0", "8.7", "6.3", "4.8", "2.3", "2.1", "2.0", 
    "2.0", "2.0", "2.4", "4.9", "6.8", "8.5", "8.9", "9.4", "9.5", 
    "9.6", "9.8", "9.8", "9.7", "203.9", "204.1", "204.0", "203.9", 
    "204.2", "204.2", "204.2", "204.0", "204.2", "204.1", "204.2", 
    "204.2", "204.2", "204.1", "204.2", "204.1", "204.1", "204.6", 
    "204.3", "204.3", "204.4", "204.3", "204.4", "204.4", "204.6", 
    "204.4", "1003.4", "957.9", "695.9", "397.4", "127.1", "64.3", 
    "31.7", "15.1", "8.0", "3.8", "2.3", "0.9", "0.2", "0.3", 
    "0.9", "2.2", "3.8", "7.3", "15.0", "30.5", "64.8", "122.3", 
    "267.9", "973.1", "748.3", "967.4", "8.58", "8.59", "8.61", 
    "8.62", "8.62", "8.62", "8.61", "8.59", "8.41", "8.22", "8.11", 
    "8.02", "7.94", "7.93", "7.86", "7.80", "7.90", "8.10", "8.38", 
    "8.52", "8.58", "8.62", "8.66", "8.68", "8.69", "8.70", "2.0", 
    "2.0", "2.0", "09:47", "11.4", "22.0", "22.0", "22.0", "22.0", 
    "21.8", "21.8", "21.8", "21.6", "20.4", "18.1", "17.2", "16.3", 
    "15.7", "15.7", "15.6", "16.4", "18.5", "20.3", "21.0", "21.3", 
    "21.5", "21.6", "21.7", "21.8", "21.8", "21.9")), row.names = c(NA, 
-218L), class = c("tbl_df", "tbl", "data.frame"))

jrmuirhead · August 7, 2021, 2:55am

Hi @HABSaremyjam,
I would take the approach of pivoting the data from long to wide format, and changing the format of columns to numeric (including LINE).

library("tidyr")
library("dplyr")
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union

# Pivot data from long format to wide, and select only the variables needed
# for the next step.

gbs501_wide <- gbs501 %>%
  pivot_wider(id_cols = c(SITE_ID, LINE), names_from = PARAMETER,
    values_from = RESULT) %>%
  select(SITE_ID, CAST, LINE, DEPTH, TEMPERATURE, DO, PH, CONDUCTIVITY,
    LIGHT_AMB, LIGHT_UW)

# Convert everything from LINE to LIGHT_UW from character format to numeric.
# Sort the data by LINE

gbs501_wide <- gbs501_wide %>%
  mutate(across(.cols = LINE:LIGHT_UW, as.numeric)) %>%
  arrange(LINE)

gbs501_wide

#> # A tibble: 27 × 10
#>    SITE_ID     CAST   LINE DEPTH TEMPERATURE    DO    PH CONDUCTIVITY LIGHT_AMB
#>    <chr>       <chr> <dbl> <dbl>       <dbl> <dbl> <dbl>        <dbl>     <dbl>
#>  1 GBA20-10501 <NA>      0  NA          NA    NA   NA             NA        NA 
#>  2 GBA20-10501 DOWN      1   0.1        22     9.5  8.58         308.      204.
#>  3 GBA20-10501 DOWN      2   0.5        22     9.4  8.59         309.      204.
#>  4 GBA20-10501 DOWN      3   1          22     9.6  8.61         309.      204 
#>  5 GBA20-10501 DOWN      4   2          22     9.5  8.62         309.      204.
#>  6 GBA20-10501 DOWN      5   3          21.8   9.4  8.62         309.      204.
#>  7 GBA20-10501 DOWN      6   4          21.8   9.2  8.62         310.      204.
#>  8 GBA20-10501 DOWN      7   5          21.8   9    8.61         309.      204.
#>  9 GBA20-10501 DOWN      8   6          21.6   8.7  8.59         309       204 
#> 10 GBA20-10501 DOWN      9   7          20.4   6.3  8.41         306.      204.
#> # … with 17 more rows, and 1 more variable: LIGHT_UW <dbl>

^{Created on 2021-08-06 by the reprex package (v2.0.1)}

technocrat · August 7, 2021, 5:15am

This will get you started by creating 8 data frames named after the desired variables.

suppressPackageStartupMessages({
  library(dplyr)
})
gbs501 <- data.frame(SITE_ID = c("GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", 
                                                         "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501", "GBA20-10501"
), LINE = c("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", 
            "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", 
            "22", "23", "24", "25", "26", "0", "1", "1", "2", "3", "4", "5", 
            "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", 
            "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "1", 
            "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", 
            "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", 
            "25", "26", "0", "0", "0", "1", "2", "3", "4", "5", "6", "7", 
            "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", 
            "19", "20", "21", "22", "23", "24", "25", "26", "1", "2", "3", 
            "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", 
            "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", 
            "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", 
            "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", 
            "24", "25", "26", "1", "2", "3", "4", "5", "6", "7", "8", "9", 
            "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", 
            "21", "22", "23", "24", "25", "26", "0", "0", "0", "0", "0", 
            "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", 
            "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", 
            "24", "25", "26"), PARAMETER = c("CAST", "CAST", "CAST", "CAST", 
                                             "CAST", "CAST", "CAST", "CAST", "CAST", "CAST", "CAST", "CAST", 
                                             "CAST", "CAST", "CAST", "CAST", "CAST", "CAST", "CAST", "CAST", 
                                             "CAST", "CAST", "CAST", "CAST", "CAST", "CAST", "CLEAR_TO_BOTTOM", 
                                             "COMMENT", "CONDUCTIVITY", "CONDUCTIVITY", "CONDUCTIVITY", "CONDUCTIVITY", 
                                             "CONDUCTIVITY", "CONDUCTIVITY", "CONDUCTIVITY", "CONDUCTIVITY", 
                                             "CONDUCTIVITY", "CONDUCTIVITY", "CONDUCTIVITY", "CONDUCTIVITY", 
                                             "CONDUCTIVITY", "CONDUCTIVITY", "CONDUCTIVITY", "CONDUCTIVITY", 
                                             "CONDUCTIVITY", "CONDUCTIVITY", "CONDUCTIVITY", "CONDUCTIVITY", 
                                             "CONDUCTIVITY", "CONDUCTIVITY", "CONDUCTIVITY", "CONDUCTIVITY", 
                                             "CONDUCTIVITY", "CONDUCTIVITY", "DEPTH", "DEPTH", "DEPTH", "DEPTH", 
                                             "DEPTH", "DEPTH", "DEPTH", "DEPTH", "DEPTH", "DEPTH", "DEPTH", 
                                             "DEPTH", "DEPTH", "DEPTH", "DEPTH", "DEPTH", "DEPTH", "DEPTH", 
                                             "DEPTH", "DEPTH", "DEPTH", "DEPTH", "DEPTH", "DEPTH", "DEPTH", 
                                             "DEPTH", "DISAPPEARS_1", "DISAPPEARS_2", "DISAPPEARS_3", "DO", 
                                             "DO", "DO", "DO", "DO", "DO", "DO", "DO", "DO", "DO", "DO", "DO", 
                                             "DO", "DO", "DO", "DO", "DO", "DO", "DO", "DO", "DO", "DO", "DO", 
                                             "DO", "DO", "DO", "LIGHT_AMB", "LIGHT_AMB", "LIGHT_AMB", "LIGHT_AMB", 
                                             "LIGHT_AMB", "LIGHT_AMB", "LIGHT_AMB", "LIGHT_AMB", "LIGHT_AMB", 
                                             "LIGHT_AMB", "LIGHT_AMB", "LIGHT_AMB", "LIGHT_AMB", "LIGHT_AMB", 
                                             "LIGHT_AMB", "LIGHT_AMB", "LIGHT_AMB", "LIGHT_AMB", "LIGHT_AMB", 
                                             "LIGHT_AMB", "LIGHT_AMB", "LIGHT_AMB", "LIGHT_AMB", "LIGHT_AMB", 
                                             "LIGHT_AMB", "LIGHT_AMB", "LIGHT_UW", "LIGHT_UW", "LIGHT_UW", 
                                             "LIGHT_UW", "LIGHT_UW", "LIGHT_UW", "LIGHT_UW", "LIGHT_UW", "LIGHT_UW", 
                                             "LIGHT_UW", "LIGHT_UW", "LIGHT_UW", "LIGHT_UW", "LIGHT_UW", "LIGHT_UW", 
                                             "LIGHT_UW", "LIGHT_UW", "LIGHT_UW", "LIGHT_UW", "LIGHT_UW", "LIGHT_UW", 
                                             "LIGHT_UW", "LIGHT_UW", "LIGHT_UW", "LIGHT_UW", "LIGHT_UW", "PH", 
                                             "PH", "PH", "PH", "PH", "PH", "PH", "PH", "PH", "PH", "PH", "PH", 
                                             "PH", "PH", "PH", "PH", "PH", "PH", "PH", "PH", "PH", "PH", "PH", 
                                             "PH", "PH", "PH", "REAPPEARS_1", "REAPPEARS_2", "REAPPEARS_3", 
                                             "SECCHI_TIME", "STATION_DEPTH", "TEMPERATURE", "TEMPERATURE", 
                                             "TEMPERATURE", "TEMPERATURE", "TEMPERATURE", "TEMPERATURE", "TEMPERATURE", 
                                             "TEMPERATURE", "TEMPERATURE", "TEMPERATURE", "TEMPERATURE", "TEMPERATURE", 
                                             "TEMPERATURE", "TEMPERATURE", "TEMPERATURE", "TEMPERATURE", "TEMPERATURE", 
                                             "TEMPERATURE", "TEMPERATURE", "TEMPERATURE", "TEMPERATURE", "TEMPERATURE", 
                                             "TEMPERATURE", "TEMPERATURE", "TEMPERATURE", "TEMPERATURE"), 
RESULT = c("DOWN", "DOWN", "DOWN", "DOWN", "DOWN", "DOWN", 
           "DOWN", "DOWN", "DOWN", "DOWN", "DOWN", "DOWN", "DOWN", "UP", 
           "UP", "UP", "UP", "UP", "UP", "UP", "UP", "UP", "UP", "UP", 
           "UP", "UP", "N", "Forgot cap on Amb light sensor resulting in low readings.", 
           "308.4", "308.6", "308.8", "308.6", "309.1", "309.6", "308.9", 
           "309.0", "306.2", "293.4", "287.0", "285.5", "287.7", "287.9", 
           "289.6", "298.1", "306.5", "311.8", "312.2", "311.8", "311.7", 
           "311.0", "310.6", "310.7", "310.9", "311.1", "0.1", "0.5", 
           "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", 
           "11", "10", "9", "8", "7", "6", "5", "4", "3", "2", "1", 
           "0.5", "0.1", "2.3", "2.2", "2.2", "9.5", "9.4", "9.6", "9.5", 
           "9.4", "9.2", "9.0", "8.7", "6.3", "4.8", "2.3", "2.1", "2.0", 
           "2.0", "2.0", "2.4", "4.9", "6.8", "8.5", "8.9", "9.4", "9.5", 
           "9.6", "9.8", "9.8", "9.7", "203.9", "204.1", "204.0", "203.9", 
           "204.2", "204.2", "204.2", "204.0", "204.2", "204.1", "204.2", 
           "204.2", "204.2", "204.1", "204.2", "204.1", "204.1", "204.6", 
           "204.3", "204.3", "204.4", "204.3", "204.4", "204.4", "204.6", 
           "204.4", "1003.4", "957.9", "695.9", "397.4", "127.1", "64.3", 
           "31.7", "15.1", "8.0", "3.8", "2.3", "0.9", "0.2", "0.3", 
           "0.9", "2.2", "3.8", "7.3", "15.0", "30.5", "64.8", "122.3", 
           "267.9", "973.1", "748.3", "967.4", "8.58", "8.59", "8.61", 
           "8.62", "8.62", "8.62", "8.61", "8.59", "8.41", "8.22", "8.11", 
           "8.02", "7.94", "7.93", "7.86", "7.80", "7.90", "8.10", "8.38", 
           "8.52", "8.58", "8.62", "8.66", "8.68", "8.69", "8.70", "2.0", 
           "2.0", "2.0", "09:47", "11.4", "22.0", "22.0", "22.0", "22.0", 
           "21.8", "21.8", "21.8", "21.6", "20.4", "18.1", "17.2", "16.3", 
           "15.7", "15.7", "15.6", "16.4", "18.5", "20.3", "21.0", "21.3", 
           "21.5", "21.6", "21.7", "21.8", "21.8", "21.9"))



unique(gbs501[,3])
#>  [1] "CAST"            "CLEAR_TO_BOTTOM" "COMMENT"         "CONDUCTIVITY"   
#>  [5] "DEPTH"           "DISAPPEARS_1"    "DISAPPEARS_2"    "DISAPPEARS_3"   
#>  [9] "DO"              "LIGHT_AMB"       "LIGHT_UW"        "PH"             
#> [13] "REAPPEARS_1"     "REAPPEARS_2"     "REAPPEARS_3"     "SECCHI_TIME"    
#> [17] "STATION_DEPTH"   "TEMPERATURE"

desired <- c("CAST","CONDUCTIVITY","DEPTH","DO","LIGHT_AMB","LIGHT_UW","PH","TEMPERATURE")

dta <- gbs501 %>% 
  select(-SITE_ID) %>%
  filter(PARAMETER %in% desired) %>% 
  group_by(PARAMETER) %>% 
  group_split()

for(i in seq_along(dta)) assign(desired[i], dta[[i]])

#EXAMPLE
id_col <- data.frame(SITE_ID = rep("GBA20-10501",26))
DO %>% 
  select(RESULT) %>%
  rename(DO = RESULT) %>%
  mutate(DO = as.numeric(DO)) %>%
  cbind(id_col,.)
#>        SITE_ID  DO
#> 1  GBA20-10501 9.5
#> 2  GBA20-10501 9.4
#> 3  GBA20-10501 9.6
#> 4  GBA20-10501 9.5
#> 5  GBA20-10501 9.4
#> 6  GBA20-10501 9.2
#> 7  GBA20-10501 9.0
#> 8  GBA20-10501 8.7
#> 9  GBA20-10501 6.3
#> 10 GBA20-10501 4.8
#> 11 GBA20-10501 2.3
#> 12 GBA20-10501 2.1
#> 13 GBA20-10501 2.0
#> 14 GBA20-10501 2.0
#> 15 GBA20-10501 2.0
#> 16 GBA20-10501 2.4
#> 17 GBA20-10501 4.9
#> 18 GBA20-10501 6.8
#> 19 GBA20-10501 8.5
#> 20 GBA20-10501 8.9
#> 21 GBA20-10501 9.4
#> 22 GBA20-10501 9.5
#> 23 GBA20-10501 9.6
#> 24 GBA20-10501 9.8
#> 25 GBA20-10501 9.8
#> 26 GBA20-10501 9.7

HABSaremyjam · August 7, 2021, 11:23pm

Oh my god, this is beautiful. I actually had gotten to the "pivot_wider" part on my own but couldn't figure out how to use the the arguments within the function! Thank you SO much for your help with this, this will help exponentially going forward! <3 <3

system · August 14, 2021, 11:23pm

This topic was automatically closed 7 days after the last reply. New replies are no longer allowed.

If you have a query related to it or one of the replies, start a new topic and refer back with a link.