Dar roberd10, Rds containing Minerals and their features

StudentData/README.md

@@ -18,14 +18,15 @@ _You may need to use a more creative path name to read an Rds in the StudentData
 
 **pixl_sol_coordinates.Rds** has all of the data in samples_pixl_wide.Rds with the latitude, longitude and sol found from the analysts notebook.
 
-**libs_v1** all the libs data with the columns renamed (meta data capitalized) so that they match with the other datasets and reordered to match with other data sets.
+**v1_libs** all the libs data with the columns renamed (meta data capitalized) so that they match with the other datasets and reordered to match with other data sets.
 
-**pixl_v1** all the pixl data with the columns renamed and reordered to match libs.
+**v1_pixl** all the pixl data with the columns renamed and reordered to match libs.
 
-**sherloc_v1** all the sherloc data, but after it's been turned into a data frame in the same format as sherloc.
+**v1_sherloc** all the sherloc data, but after it's been turned into a data frame in the same format as sherloc.
 
-**lithology_v1** all the lithology data with the columns renamed and reordered to match sherloc.
+**v1_lithology** all the lithology data with the columns renamed and reordered to match sherloc.
 
-**sample_meta** all the meta data for the samples. This can be appended to pixl, sherloc, and lithology.
+**v1_sample_meta** all the meta data for the samples. This can be appended to pixl, sherloc, and lithology.
+
+**v1_mineral_classes** data set containing all the minerals along with features of the minerals (Such as: Oxide/Chlorite/Sulfate/etc, and Aqueous/Not-Aqueous).
 
-**libs_typed.Rds** the libs data with a "type" column added that contains descriptors of the scct samples, as well as other sample descriptors from the analysts notebook

StudentData/mineral_classes.Rmd

@@ -0,0 +1,42 @@
+
+# Importing data frames
+```{r}
+
+# Mineral names
+lithology.df <- readRDS("~/DAR-Mars-F24/StudentData/v1_lithology.Rds")
+Mineral <- colnames(lithology.df[,-1])
+
+# Aqueous or not
+Aqueuous <- c(NA,NA,NA,NA,  # "Plagioclase", "Sulfate", "Ca-sulfate", "Hydrated Ca-sulfate"
+              NA,NA,NA,NA,  # "Mg-sulfate", "Hydrated Sulfates", "Hydrated Mg-Fe sulfate", Perchlorates"
+              NA,NA,NA,NA,  # "Na-perchlorate", "Amorphous Silicate", "Phosphate", "Pyroxene"
+              NA,NA,NA,NA,  # "Olivine", "Carbonate", "Fe-Mg carbonate", "Hydrated Carbonates"
+              NA,NA,NA,NA,  # "Disordered Silicates", "Feldspar", "Quartz", "Apatite"
+              NA,NA,NA,NA,  # "FeTi oxides", "Halite", "Iron oxide", "Hydrated Iron oxide"
+              NA,NA,NA,NA,  # "Organic matter", "Sulfate+Organic matclasster", "Other hydrated phases", "Phyllosilicates" 
+              NA,NA,NA,NA,  # "Chlorite", "Kaolinite (hydrous Al-clay)", "Chromite", "Ilmenite"
+              NA,NA,NA)     # "Zircon/Baddeleyite", "Fe-Mg-clay minerals", "Spinels"
+
+  
+# 
+Type <- c("NA","Sulfate","Sulfate","Sulfate",
+         "Sulfate","Sulfate","Sulfate","Perchlorate",
+         "Perchlorate","Silicate","Phosphate","NA",
+         "NA","Carbonate","Carbonate","Catbonate",
+         "Silicate","NA","NA","Apatite",
+         "Oxide","Halite","Oxide","Oxide",
+         "NA","Sulfate","NA","Silicate",
+         "Chlorite", "Kaolinite", "Chromite", "Ilmenite",
+         "NA","NA","NA")
+Type <- as.factor(Type)
+```
+
+# Creating info data frame
+```{r}
+minerals.df <- data.frame(Mineral,Type,Aqueuous)
+```
+
+# Saving new data frames
+```{r}
+saveRDS(minerals.df, "v1_mineral_classes.Rds")
+```