first commit

2024-05-15 20:02:16 -06:00
commit 2f41835c36
1034 changed files with 297835 additions and 0 deletions
--- a/Plots/.RData
+++ b/Plots/.RData
--- a/Plots/.Rhistory
+++ b/Plots/.Rhistory
@@ -0,0 +1,332 @@
+library(readr)
+ns41nT2019A <- read_table("ns41nT2019A.txt",
+col_types = cols(`293.094583` = col_double()))
+View(ns41nT2019A)
+format(date_decimal(306.0529))
+library(lubridate)
+format(date_decimal(306.0529))
+format(date_decimal(306.0529), %Y/%m/%d)
+format(date_decimal(306.0529), "%Y/%m/%d")
+format(date_decimal(2019.3060529), "%Y/%m/%d")
+format(date_decimal(306.0529), "%m/%d")
+294.0918/365
+format(date_decimal(2019.080573), "%Y/%m/%d")
+format(date_decimal(2019.80573), "%Y/%m/%d")
+294/365
+format(date_decimal(2019.8054795), "%Y/%m/%d")
+295.0890/365
+format(date_decimal(2019.808463), "%Y/%m/%d")
+p<-year(2019)+days(294.0918)
+days(294.0918)
+year(2019)
+ddays(294.0918)
+p<-dyear(2019)+ddays(294.0918)
+p<-dyears(2019)+ddays(294.0918)
+p
+p<-days(294.0918)
+year(2019)
+year(2019, origin=2019)
+as.date(294.0918, origin="2019-01-01")
+as.Date(294.0918, origin="2019-01-01")
+as_datetime(294.0918, origin="2019-01-01")
+as_datetime(ddays(294.0918), origin="2019-01-01")
+library(lubridate)
+library(tidyverse)
+ns41nT2019A <- read_table("ns41nT2019A.txt",
+     col_types = cols(`293.094583` = col_double()))
+ns41nT2019A <- read_table("ns41nT2019A.txt", col_types = cols(`293.094583` = col_double()))
+ns41nT2019A <- read_table("ns41nT2019A.txt")
+ns41nT2019A <- read_table("ns41nT2019A.txt")
+View(ns41nT2019A)
+ns41nT2019A <- read_table("ns41nT2019A.txt",
+col_names = FALSE)
+View(ns41nT2019A)
+A <- read_table("ns41nT2019A.txt",
+col_names = FALSE)
+View(A)
+A <- A>%> rename_all("Date", "Electron Temperature", "Electron Density")
+A <- A %>% rename_all("Date", "Electron Temperature", "Electron Density")
+A <- A %>% rename(Date=X1, Electron_Temperature=X2, Electron_Density=X3)
+sapply(A, as.Date(A[Date], origin="2019-01-01"))
+sapply(A, as.Date(A[Date], origin="2019-01-01"))
+A["Date"]
+sapply(A["Date"], as.Date(A[Date], origin="2019-01-01"))
+lapply(A["Date"], as.Date(A[Date], origin="2019-01-01"))
+lapply(A["Date"], as.Date(A["Date"], origin="2019-01-01"))
+as.Date(A["Date"])
+as.Date(A["Date"], origin="2019-01-01")
+as.Date(A, origin="2019-01-01")
+as.Date(A[0], origin="2019-01-01")
+lapply(A["Date"], as.Date(origin="2019-01-01"))
+lapply(A["Date"], function(x) as.Date(x ,origin="2019-01-01"))
+A["Date"] <- lapply(A["Date"], function(x) as.Date(x ,origin="2019-01-01"))
+View(A)
+A
+ggplot(A, aes(Electron_Temperature, Electron_Density))
+ggplot(A, aes(Electron_Temperature, Electron_Density)) +
+geom_line()
+ggplot(A, aes(A["Date"], Electron_Density)) +
+geom_line()
+ggplot(A, aes(Date, Electron_Density)) +
+geom_line()
+ggplot(A, aes(Date, Electron_Temperature)) +
+geom_line()
+ggplot(A, aes(Date, Electron_Density)) +
+geom_line()
+ggplot(A, aes(Date, Electron_Density)) +
+geom_line() +
+scale_x_log10()
+ggplot(A, aes(Electron_Density, Date)) +
+geom_line() +
+scale_x_log10()
+ggplot(A, aes(Date, Electron_Density)) +
+geom_line() +
+scale_y_log10
+ggplot(A, aes(Date, Electron_Density)) +
+geom_line() +
+scale_y_log10()
+B <- read_table("ns41nT2019B.txt",
+col_names = FALSE)
+C <- read_table("ns41nT2019C.txt",
+col_names = FALSE)
+D <- read_table("ns41nT2019D.txt",
+col_names = FALSE)
+View(B)
+B <- B %>% rename(Date=X1, Electron_Temperature=X2, Electron_Density=X3)
+c <- C %>% rename(Date=X1, Electron_Temperature=X2, Electron_Density=X3)
+D <- D %>% rename(Date=X1, Electron_Temperature=X2, Electron_Density=X3)
+A["Date"] <- lapply(A["Date"], function(x) as.Date(x ,origin="2019-01-01"))
+B["Date"] <- lapply(B["Date"], function(x) as.Date(x ,origin="2019-01-01"))
+C["Date"] <- lapply(C["Date"], function(x) as.Date(x ,origin="2019-01-01"))
+D["Date"] <- lapply(D["Date"], function(x) as.Date(x ,origin="2019-01-01"))
+ggplot() +
+geom_line(A, aes(Date, Electron_Temperature)) +
+geom_line(B, aes(Date, Electron_Temperature))
+ggplot() +
+geom_line(A, aes(Date, Electron_Temperature))
+ggplot() +
+geom_line(A, aes(A, Date, Electron_Temperature), color='red')
+ggplot() +
+geom_line(A, aes(Date, Electron_Temperature), color='red')
+ggplot() +
+geom_line(data=A, aes(x=Date, y=Electron_Temperature), color='red')
+ggplot() +
+geom_line(data=A, aes(x=Date, y=Electron_Temperature), color='red') +
+geom_line(data=B, aes(x=Date, y=Electron_Temperature), color='green') +
+geom_line(data=C, aes(x=Date, y=Electron_Temperature), color='blue') +
+geom_line(data=D, aes(x=Date, y=Electron_Temperature), color='purple')
+View(c)
+View(C)
+A <- read_table("ns41nT2019A.txt",
+col_names = FALSE)
+B <- read_table("ns41nT2019B.txt",
+col_names = FALSE)
+C <- read_table("ns41nT2019C.txt",
+col_names = FALSE)
+D <- read_table("ns41nT2019D.txt",
+col_names = FALSE)
+A <- A %>% rename(Date=X1, Electron_Temperature=X2, Electron_Density=X3)
+B <- B %>% rename(Date=X1, Electron_Temperature=X2, Electron_Density=X3)
+c <- C %>% rename(Date=X1, Electron_Temperature=X2, Electron_Density=X3)
+D <- D %>% rename(Date=X1, Electron_Temperature=X2, Electron_Density=X3)
+A["Date"] <- lapply(A["Date"], function(x) as.Date(x ,origin="2019-01-01"))
+B["Date"] <- lapply(B["Date"], function(x) as.Date(x ,origin="2019-01-01"))
+C["Date"] <- lapply(C["Date"], function(x) as.Date(x ,origin="2019-01-01"))
+D["Date"] <- lapply(D["Date"], function(x) as.Date(x ,origin="2019-01-01"))
+C <- C %>% rename(Date=X1, Electron_Temperature=X2, Electron_Density=X3)
+C["Date"] <- lapply(C["Date"], function(x) as.Date(x ,origin="2019-01-01"))
+ggplot() +
+geom_line(data=A, aes(x=Date, y=Electron_Temperature), color='red') +
+geom_line(data=B, aes(x=Date, y=Electron_Temperature), color='green') +
+geom_line(data=C, aes(x=Date, y=Electron_Temperature), color='blue') +
+geom_line(data=D, aes(x=Date, y=Electron_Temperature), color='purple')
+ggplot() +
+geom_line(data=A, aes(x=Date, y=Electron_Temperature), color='red') +
+geom_line(data=B, aes(x=Date, y=Electron_Temperature), color='green') +
+geom_line(data=C, aes(x=Date, y=Electron_Temperature), color='blue') +
+geom_line(data=D, aes(x=Date, y=Electron_Temperature), color='purple') +
+theme_classic()
+ggplot() +
+geom_line(data=A, aes(x=Date, y=Electron_Temperature), color='red') +
+geom_line(data=B, aes(x=Date, y=Electron_Temperature), color='green') +
+geom_line(data=C, aes(x=Date, y=Electron_Temperature), color='blue') +
+geom_line(data=D, aes(x=Date, y=Electron_Temperature), color='purple') +
+theme_bw()
+ggplot() +
+geom_line(data=A, aes(x=Date, y=Electron_Temperature), color='red') +
+geom_line(data=B, aes(x=Date, y=Electron_Temperature), color='green') +
+geom_line(data=C, aes(x=Date, y=Electron_Temperature), color='blue') +
+geom_line(data=D, aes(x=Date, y=Electron_Temperature), color='purple') +
+theme_bw() +
+ggtitle("Electron Temperature at 4 Magnetic-equator Crossings during 20 Oct 2019 through 15 Feb 2020")
+ggplot() +
+geom_line(data=A, aes(x=Date, y=Electron_Temperature), color='red') +
+geom_line(data=B, aes(x=Date, y=Electron_Temperature), color='green') +
+geom_line(data=C, aes(x=Date, y=Electron_Temperature), color='blue') +
+geom_line(data=D, aes(x=Date, y=Electron_Temperature), color='purple') +
+theme_bw() +
+ggtitle("Electron Temperature at 4 Magnetic-equator Crossings during 20 Oct 2019 through 15 Feb 2020") +
+ylab("Electron temperature:  MeV")
+ggplot() +
+geom_line(data=A, aes(x=Date, y=Electron_Temperature), color='red') +
+geom_line(data=B, aes(x=Date, y=Electron_Temperature), color='brown') +
+geom_line(data=C, aes(x=Date, y=Electron_Temperature), color='blue') +
+geom_line(data=D, aes(x=Date, y=Electron_Temperature), color='purple') +
+theme_bw() +
+ggtitle("Electron Temperature at 4 Magnetic-equator Crossings during 20 Oct 2019 through 15 Feb 2020") +
+ylab("Electron temperature:  MeV")
+ggplot() +
+geom_line(data=A, aes(x=Date, y=Electron_Temperature), color='red') +
+geom_line(data=B, aes(x=Date, y=Electron_Temperature), color='orange') +
+geom_line(data=C, aes(x=Date, y=Electron_Temperature), color='blue') +
+geom_line(data=D, aes(x=Date, y=Electron_Temperature), color='purple') +
+theme_bw() +
+ggtitle("Electron Temperature at 4 Magnetic-equator Crossings during 20 Oct 2019 through 15 Feb 2020") +
+ylab("Electron temperature:  MeV")
+ggplot() +
+geom_line(data=A, aes(x=Date, y=Electron_Temperature), color='red') +
+geom_line(data=B, aes(x=Date, y=Electron_Temperature), color='green') +
+geom_line(data=C, aes(x=Date, y=Electron_Temperature), color='blue') +
+geom_line(data=D, aes(x=Date, y=Electron_Temperature), color='purple') +
+theme_bw() +
+ggtitle("Electron Temperature at 4 Magnetic-equator Crossings during 20 Oct 2019 through 15 Feb 2020") +
+ylab("Electron temperature:  MeV")
+ggplot() +
+geom_line(data=A, aes(x=Date, y=Electron_Temperature), color='red') +
+geom_line(data=B, aes(x=Date, y=Electron_Temperature), color='green') +
+geom_line(data=C, aes(x=Date, y=Electron_Temperature), color='blue') +
+geom_line(data=D, aes(x=Date, y=Electron_Temperature), color='purple') +
+theme_bw(legend.position="right") +
+ggtitle("Electron Temperature at 4 Magnetic-equator Crossings during 20 Oct 2019 through 15 Feb 2020") +
+ylab("Electron temperature:  MeV")
+ggplot() +
+geom_line(data=A, aes(x=Date, y=Electron_Temperature), color='red') +
+geom_line(data=B, aes(x=Date, y=Electron_Temperature), color='green') +
+geom_line(data=C, aes(x=Date, y=Electron_Temperature), color='blue') +
+geom_line(data=D, aes(x=Date, y=Electron_Temperature), color='purple') +
+theme_bw(legend.position="bottom") +
+ggtitle("Electron Temperature at 4 Magnetic-equator Crossings during 20 Oct 2019 through 15 Feb 2020") +
+ylab("Electron temperature:  MeV")
+ggplot() +
+geom_line(data=A, aes(x=Date, y=Electron_Temperature), color='red') +
+geom_line(data=B, aes(x=Date, y=Electron_Temperature), color='green') +
+geom_line(data=C, aes(x=Date, y=Electron_Temperature), color='blue') +
+geom_line(data=D, aes(x=Date, y=Electron_Temperature), color='purple') +
+theme_bw(legend.position="bottom") +
+ggtitle("Electron Temperature at 4 Magnetic-equator Crossings during 20 Oct 2019 through 15 Feb 2020") +
+ylab("Electron temperature:  MeV")
+ggplot() +
+geom_line(data=A, aes(x=Date, y=Electron_Temperature), color='red') +
+geom_line(data=B, aes(x=Date, y=Electron_Temperature), color='green') +
+geom_line(data=C, aes(x=Date, y=Electron_Temperature), color='blue') +
+geom_line(data=D, aes(x=Date, y=Electron_Temperature), color='purple') +
+theme_bw() +
+theme(legend.position="bottom") +
+ggtitle("Electron Temperature at 4 Magnetic-equator Crossings during 20 Oct 2019 through 15 Feb 2020") +
+ylab("Electron temperature:  MeV")
+ggplot() +
+geom_line(data=A, aes(x=Date, y=Electron_Temperature), color='red') +
+geom_line(data=B, aes(x=Date, y=Electron_Temperature), color='green') +
+geom_line(data=C, aes(x=Date, y=Electron_Temperature), color='blue') +
+geom_line(data=D, aes(x=Date, y=Electron_Temperature), color='purple') +
+theme_bw() +
+guides() +
+ggtitle("Electron Temperature at 4 Magnetic-equator Crossings during 20 Oct 2019 through 15 Feb 2020") +
+ylab("Electron temperature:  MeV")
+ggplot() +
+geom_line(data=A, aes(x=Date, y=Electron_Temperature, colour="A")) +
+geom_line(data=B, aes(x=Date, y=Electron_Temperature, colour="B")) +
+geom_line(data=C, aes(x=Date, y=Electron_Temperature, colour="C")) +
+geom_line(data=D, aes(x=Date, y=Electron_Temperature, colour="D")) +
+scale_color_manual(name="Group", values=c("A"="red", "B"="green", "C"="blue", "D"="purple"))
+ggplot() +
+geom_line(data=A, aes(x=Date, y=Electron_Temperature, colour="A")) +
+geom_line(data=B, aes(x=Date, y=Electron_Temperature, colour="B")) +
+geom_line(data=C, aes(x=Date, y=Electron_Temperature, colour="C")) +
+geom_line(data=D, aes(x=Date, y=Electron_Temperature, colour="D")) +
+scale_color_manual(name="Group", values=c("A"="red", "B"="green", "C"="blue", "D"="purple")) +
+theme_bw() +
+guides() +
+ggtitle("Electron Temperature at 4 Magnetic-equator Crossings during 20 Oct 2019 through 15 Feb 2020") +
+ylab("Electron temperature:  MeV")
+ggplot() +
+geom_line(data=A, aes(x=Date, y=Electron_Temperature, colour="A")) +
+geom_line(data=B, aes(x=Date, y=Electron_Temperature, colour="B")) +
+geom_line(data=C, aes(x=Date, y=Electron_Temperature, colour="C")) +
+geom_line(data=D, aes(x=Date, y=Electron_Temperature, colour="D")) +
+scale_color_manual(name="Group", values=c("A"="red", "B"="green", "C"="blue", "D"="purple")) +
+scale_x_date(date_labels = "%b%d%y") +
+theme_bw() +
+guides() +
+ggtitle("Electron Temperature at 4 Magnetic-equator Crossings during 20 Oct 2019 through 15 Feb 2020") +
+ylab("Electron temperature:  MeV")
+ggplot() +
+geom_line(data=A, aes(x=Date, y=Electron_Temperature, colour="A")) +
+geom_line(data=B, aes(x=Date, y=Electron_Temperature, colour="B")) +
+geom_line(data=C, aes(x=Date, y=Electron_Temperature, colour="C")) +
+geom_line(data=D, aes(x=Date, y=Electron_Temperature, colour="D")) +
+scale_color_manual(name="Group", values=c("A"="red", "B"="green", "C"="blue", "D"="purple")) +
+scale_x_date(date_labels = "%m-%d-%y") +
+theme_bw() +
+guides() +
+ggtitle("Electron Temperature at 4 Magnetic-equator Crossings during 20 Oct 2019 through 15 Feb 2020") +
+ylab("Electron temperature:  MeV")
+ggplot() +
+geom_line(data=A, aes(x=Date, y=Electron_Density, colour="A")) +
+geom_line(data=B, aes(x=Date, y=Electron_Density, colour="B")) +
+geom_line(data=C, aes(x=Date, y=Electron_Density, colour="C")) +
+geom_line(data=D, aes(x=Date, y=Electron_Density, colour="D")) +
+scale_color_manual(name="Group", values=c("A"="red", "B"="green", "C"="blue", "D"="purple")) +
+scale_x_date(date_labels = "%m-%d-%y") +
+theme_bw() +
+guides() +
+ggtitle("Electron Density at 4 Magnetic-equator Crossings during 20 Oct 2019 through 15 Feb 2020") +
+ylab(" Electron density e/cm**3")
+ggplot() +
+geom_line(data=A, aes(x=Date, y=Electron_Density, colour="A")) +
+geom_line(data=B, aes(x=Date, y=Electron_Density, colour="B")) +
+geom_line(data=C, aes(x=Date, y=Electron_Density, colour="C")) +
+geom_line(data=D, aes(x=Date, y=Electron_Density, colour="D")) +
+scale_color_manual(name="Group", values=c("A"="red", "B"="green", "C"="blue", "D"="purple")) +
+scale_x_date(date_labels = "%m-%d-%y") +
+scale_y_log10() +
+theme_bw() +
+guides() +
+ggtitle("Electron Density at 4 Magnetic-equator Crossings during 20 Oct 2019 through 15 Feb 2020") +
+ylab(" Electron density e/cm**3")
+library(readr)
+LA_Weather_Data <- read_csv("C:/Users/mdcay/Desktop/LA_Weather_Data.csv")
+View(LA_Weather_Data)
+ggplot() +
+geom_line(data=LA_Weather_Data, aes(x=Date, y=tmax, colour="A")) +
+geom_line(data=LA_Weather_Data, aes(x=Date, y=tmin, colour="B")) +
+scale_color_manual(name="Group", values=c("A"="red", "B"="green")) +
+scale_x_date(date_labels = "%m-%d-%y") +
+theme_bw() +
+guides() +
+ggtitle("Los Alamos Temperatures")
+library(tidyverse)
+ggplot() +
+geom_line(data=LA_Weather_Data, aes(x=Date, y=tmax, colour="A")) +
+geom_line(data=LA_Weather_Data, aes(x=Date, y=tmin, colour="B")) +
+scale_color_manual(name="Group", values=c("A"="red", "B"="green")) +
+scale_x_date(date_labels = "%m-%d-%y") +
+theme_bw() +
+guides() +
+ggtitle("Los Alamos Temperatures")
+ggplot() +
+geom_line(data=LA_Weather_Data, aes(x=Date, y=TMAX, colour="A")) +
+geom_line(data=LA_Weather_Data, aes(x=Date, y=TMIN, colour="B")) +
+scale_color_manual(name="Group", values=c("A"="red", "B"="green")) +
+scale_x_date(date_labels = "%m-%d-%y") +
+theme_bw() +
+guides() +
+ggtitle("Los Alamos Temperatures")
+ggplot() +
+geom_line(data=LA_Weather_Data, aes(x=DATE, y=TMAX, colour="A")) +
+geom_line(data=LA_Weather_Data, aes(x=DATE, y=TMIN, colour="B")) +
+scale_color_manual(name="Group", values=c("A"="red", "B"="green")) +
+scale_x_date(date_labels = "%m-%d-%y") +
+theme_bw() +
+guides() +
+ggtitle("Los Alamos Temperatures")
--- a/Plots/.Rproj.user/CB669F97/pcs/files-pane.pper
+++ b/Plots/.Rproj.user/CB669F97/pcs/files-pane.pper
@@ -0,0 +1,9 @@
+{
+    "sortOrder": [
+        {
+            "columnIndex": 2,
+            "ascending": true
+        }
+    ],
+    "path": "~/Happy Dad/Plots"
+}
--- a/Plots/.Rproj.user/CB669F97/pcs/source-pane.pper
+++ b/Plots/.Rproj.user/CB669F97/pcs/source-pane.pper
@@ -0,0 +1,3 @@
+{
+    "activeTab": 1
+}
--- a/Plots/.Rproj.user/CB669F97/pcs/windowlayoutstate.pper
+++ b/Plots/.Rproj.user/CB669F97/pcs/windowlayoutstate.pper
@@ -0,0 +1,14 @@
+{
+    "left": {
+        "splitterpos": 397,
+        "topwindowstate": "NORMAL",
+        "panelheight": 958,
+        "windowheight": 996
+    },
+    "right": {
+        "splitterpos": 597,
+        "topwindowstate": "NORMAL",
+        "panelheight": 958,
+        "windowheight": 996
+    }
+}
--- a/Plots/.Rproj.user/CB669F97/pcs/workbench-pane.pper
+++ b/Plots/.Rproj.user/CB669F97/pcs/workbench-pane.pper
@@ -0,0 +1,5 @@
+{
+    "TabSet1": 0,
+    "TabSet2": 1,
+    "TabZoom": {}
+}
--- a/Plots/.Rproj.user/CB669F97/rmd-outputs
+++ b/Plots/.Rproj.user/CB669F97/rmd-outputs
@@ -0,0 +1,5 @@
+
+
+
+
+
--- a/Plots/.Rproj.user/CB669F97/saved_source_markers
+++ b/Plots/.Rproj.user/CB669F97/saved_source_markers
@@ -0,0 +1 @@
+{"active_set":"","sets":[]}
--- a/Plots/Density
+++ b/Plots/Density
--- a/Plots/NS41
+++ b/Plots/NS41
@@ -0,0 +1,53 @@
+# NS41 Plots
+# Michael D Cayton
+# August 23, 2023
+# Last update 08-23-2023
+
+library(lubridate)
+library(tidyverse)
+
+A <- read_table("ns41nT2019A.txt", 
+                          col_names = FALSE)
+B <- read_table("ns41nT2019B.txt", 
+                col_names = FALSE)
+C <- read_table("ns41nT2019C.txt", 
+                col_names = FALSE)
+D <- read_table("ns41nT2019D.txt", 
+                col_names = FALSE)
+View(B)
+
+A <- A %>% rename(Date=X1, Electron_Temperature=X2, Electron_Density=X3)
+B <- B %>% rename(Date=X1, Electron_Temperature=X2, Electron_Density=X3)
+C <- C %>% rename(Date=X1, Electron_Temperature=X2, Electron_Density=X3)
+D <- D %>% rename(Date=X1, Electron_Temperature=X2, Electron_Density=X3)
+
+A["Date"] <- lapply(A["Date"], function(x) as.Date(x ,origin="2019-01-01"))
+B["Date"] <- lapply(B["Date"], function(x) as.Date(x ,origin="2019-01-01"))
+C["Date"] <- lapply(C["Date"], function(x) as.Date(x ,origin="2019-01-01"))
+D["Date"] <- lapply(D["Date"], function(x) as.Date(x ,origin="2019-01-01"))
+
+
+ggplot() +
+  geom_line(data=A, aes(x=Date, y=Electron_Temperature, colour="A")) +
+  geom_line(data=B, aes(x=Date, y=Electron_Temperature, colour="B")) +
+  geom_line(data=C, aes(x=Date, y=Electron_Temperature, colour="C")) +
+  geom_line(data=D, aes(x=Date, y=Electron_Temperature, colour="D")) +
+  scale_color_manual(name="Group", values=c("A"="red", "B"="green", "C"="blue", "D"="purple")) +
+  scale_x_date(date_labels = "%m-%d-%y") +
+  theme_bw() +
+  guides() +
+  ggtitle("Electron Temperature at 4 Magnetic-equator Crossings during 20 Oct 2019 through 15 Feb 2020") +
+  ylab("Electron temperature:  MeV")
+  
+ggplot() +
+  geom_line(data=A, aes(x=Date, y=Electron_Density, colour="A")) +
+  geom_line(data=B, aes(x=Date, y=Electron_Density, colour="B")) +
+  geom_line(data=C, aes(x=Date, y=Electron_Density, colour="C")) +
+  geom_line(data=D, aes(x=Date, y=Electron_Density, colour="D")) +
+  scale_color_manual(name="Group", values=c("A"="red", "B"="green", "C"="blue", "D"="purple")) +
+  scale_x_date(date_labels = "%m-%d-%y") +
+  scale_y_log10() +
+  theme_bw() +
+  guides() +
+  ggtitle("Electron Density at 4 Magnetic-equator Crossings during 20 Oct 2019 through 15 Feb 2020") +
+  ylab(" Electron density e/cm**3")
--- a/Plots/Plots.Rproj
+++ b/Plots/Plots.Rproj
@@ -0,0 +1,13 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: Sweave
+LaTeX: pdfLaTeX
--- a/Plots/Temperatrue
+++ b/Plots/Temperatrue
--- a/Plots/ns41nT2019A.txt
+++ b/Plots/ns41nT2019A.txt
@@ -0,0 +1,120 @@
+  293.094583  0.4670  5.563E-05
+  294.091806  0.4712  5.529E-05
+  295.089006  0.4785  5.031E-05
+  296.086250  0.4793  4.554E-05
+  297.083472  0.4820  4.539E-05
+  298.077917  0.2045  2.330E-04
+  299.075139  0.2589  2.347E-03
+  300.072361  0.3063  1.689E-03
+  301.072361  0.3555  1.398E-03
+  302.066806  0.3647  1.243E-03
+  303.066806  0.3994  1.693E-03
+  304.061250  0.3912  1.333E-03
+  305.061250  0.4045  1.287E-03
+  306.058472  0.4085  1.149E-03
+  307.055694  0.4146  1.160E-03
+  308.052917  0.4176  1.063E-03
+  309.050139  0.4223  1.053E-03
+  310.047361  0.4220  8.611E-04
+  311.044583  0.4318  7.973E-04
+  312.041806  0.4333  7.119E-04
+  313.039028  0.4356  6.537E-04
+  314.036250  0.4371  5.767E-04
+  315.033472  0.4452  5.880E-04
+  316.030694  0.4499  4.625E-04
+  317.027917  0.4531  3.968E-04
+  318.025139  0.4514  3.520E-04
+  319.022361  0.4633  3.436E-04
+  320.019583  0.4624  4.624E-04
+  321.016806  0.4617  2.772E-04
+  322.014028  0.4719  2.355E-04
+  323.011250  0.4742  2.236E-04
+  324.008472  0.4766  2.093E-04
+  325.005694  0.4735  1.982E-04
+  326.000139  0.4618  1.431E-04
+  326.997361  0.4618  1.199E-04
+  327.994583  0.4703  1.061E-04
+  328.991806  0.4806  9.576E-05
+  329.989028  0.4864  8.770E-05
+  330.986250  0.4942  8.090E-05
+  331.983472  0.4917  7.362E-05
+  332.980694  0.5003  7.227E-05
+  333.977917  0.4869  6.278E-05
+  334.975139  0.4920  6.395E-05
+  335.972361  0.4859  6.699E-05
+  336.969583  0.4881  6.392E-05
+  337.966806  0.4881  6.509E-05
+  338.964028  0.4872  6.174E-05
+  339.961250  0.4872  6.061E-05
+  340.958472  0.4873  5.581E-05
+  341.955694  0.4875  5.341E-05
+  342.952917  0.4861  5.205E-05
+  343.950139  0.4944  4.644E-05
+  344.947361  0.5005  4.374E-05
+  345.944583  0.5027  3.800E-05
+  346.941806  0.5058  3.559E-05
+  347.939028  0.5104  3.382E-05
+  348.936250  0.5111  3.203E-05
+  349.933472  0.5128  2.863E-05
+  350.930694  0.5202  2.601E-05
+  351.927917  0.5269  2.414E-05
+  352.925139  0.5046  1.539E-05
+  353.922361  0.5039  1.512E-05
+  354.916806  0.5100  1.330E-05
+  355.914028  0.5117  1.230E-05
+  356.911250  0.5193  1.097E-05
+  357.908472  0.5220  1.005E-05
+  358.905694  0.5309  9.420E-06
+  359.902917  0.5239  1.030E-05
+  360.900139  0.5182  1.022E-05
+  361.897361  0.5211  9.637E-06
+  362.894583  0.5193  9.901E-06
+  363.891806  0.5164  1.020E-05
+  364.889028  0.5096  1.183E-05
+  365.886250  0.5085  1.116E-05
+  366.883472  0.5056  1.158E-05
+  367.880694  0.5103  1.067E-05
+  368.880694  0.5123  9.636E-06
+  369.875139  0.5185  7.771E-06
+  370.872361  0.5138  6.356E-06
+  371.869583  0.5151  6.243E-06
+  372.866806  0.5176  5.527E-06
+  373.864028  0.5311  4.362E-06
+  374.861250  0.5303  4.133E-06
+  375.858472  0.5313  4.207E-06
+  376.855694  0.5314  4.083E-06
+  377.852917  0.5345  3.856E-06
+  378.850139  0.5388  3.736E-06
+  379.847361  0.5422  3.526E-06
+  380.844583  0.5397  3.615E-06
+  381.841806  0.5500  2.972E-06
+  382.839028  0.5335  3.845E-06
+  383.836250  0.5332  3.892E-06
+  384.833472  0.5325  3.741E-06
+  385.827917  0.5338  3.744E-06
+  386.825139  0.5358  3.195E-06
+  387.822361  0.5360  3.221E-06
+  388.819583  0.5470  2.771E-06
+  389.816806  0.5373  3.079E-06
+  390.814028  0.5476  2.846E-06
+  391.811250  0.5489  2.684E-06
+  392.808477  0.5487  2.479E-06
+  393.805694  0.5552  2.354E-06
+  394.802917  0.5600  1.910E-06
+  395.800139  0.5568  1.589E-06
+  396.797361  0.5413  1.988E-06
+  397.794583  0.5483  1.752E-06
+  398.791806  0.5513  1.508E-06
+  399.789028  0.5693  1.269E-06
+  400.786250  0.5824  1.108E-06
+  401.783472  0.5848  1.002E-06
+  402.780694  0.5055  2.828E-06
+  403.777917  0.1944  6.425E-05
+  404.775139  0.3604  1.028E-05
+  405.772361  0.3482  1.506E-05
+  406.769583  0.3746  1.350E-05
+  407.766806  0.3739  1.440E-05
+  408.764028  0.3884  1.107E-05
+  409.761250  0.3821  1.459E-05
+  410.758472  0.3777  1.810E-05
+  411.755694  0.3804  1.760E-05
--- a/Plots/ns41nT2019B.txt
+++ b/Plots/ns41nT2019B.txt
@@ -0,0 +1,119 @@
+  293.336250  0.4809  5.357E-05
+  294.333472  0.4863  5.152E-05
+  295.330694  0.4949  5.014E-05
+  296.327917  0.4872  4.507E-05
+  297.325139  0.5059  4.892E-05
+  298.322361  0.0724  2.460E-02
+  299.319583  0.2293  1.665E-03
+  300.316806  0.3059  1.445E-03
+  301.314028  0.3412  6.920E-04
+  302.311250  0.3634  8.519E-04
+  303.308472  0.3832  1.068E-03
+  304.305694  0.3944  1.075E-03
+  305.302917  0.4052  1.022E-03
+  306.300139  0.4115  9.921E-04
+  307.297361  0.4151  9.267E-04
+  308.294583  0.4387  1.196E-03
+  309.291806  0.4267  8.911E-04
+  310.289028  0.4242  7.110E-04
+  311.286250  0.4280  5.862E-04
+  312.283472  0.4402  6.504E-04
+  313.280694  0.4405  5.745E-04
+  314.277917  0.4428  5.183E-04
+  315.275139  0.4553  5.419E-04
+  316.272361  0.4504  3.880E-04
+  317.269583  0.4614  3.883E-04
+  318.266806  0.4651  3.529E-04
+  319.264028  0.4688  4.688E-04
+  320.261250  0.4650  2.834E-04
+  321.258472  0.4695  2.576E-04
+  322.255694  0.4798  2.343E-04
+  323.252917  0.4798  2.235E-04
+  324.250139  0.4838  2.137E-04
+  325.247361  0.4928  2.102E-04
+  326.244583  0.4708  1.479E-04
+  327.241806  0.4823  1.271E-04
+  328.239028  0.4823  1.058E-04
+  329.236250  0.4901  9.617E-05
+  330.230694  0.4977  8.638E-05
+  331.227917  0.5084  8.131E-05
+  332.225139  0.5090  7.555E-05
+  333.222361  0.5107  7.086E-05
+  334.219583  0.5087  6.695E-05
+  335.216806  0.5106  6.442E-05
+  336.214028  0.5082  6.277E-05
+  337.211250  0.5072  6.169E-05
+  338.208472  0.5093  6.099E-05
+  339.205694  0.5056  5.913E-05
+  340.202917  0.5045  5.588E-05
+  341.200139  0.5041  5.516E-05
+  342.197361  0.5047  5.398E-05
+  343.194583  0.5055  4.912E-05
+  344.191806  0.5138  4.702E-05
+  345.189028  0.5131  4.369E-05
+  346.186250  0.5125  3.878E-05
+  347.183472  0.5166  3.637E-05
+  348.180694  0.5224  3.464E-05
+  349.177917  0.5234  3.214E-05
+  350.175139  0.5275  2.862E-05
+  351.172361  0.5308  2.654E-05
+  352.169583  0.5444  2.565E-05
+  353.166806  0.5190  1.742E-05
+  354.164028  0.5247  1.561E-05
+  355.161250  0.5258  1.395E-05
+  356.158472  0.5286  1.298E-05
+  357.155694  0.5327  1.167E-05
+  358.153917  0.5443  1.027E-05
+  359.150139  0.5424  9.975E-06
+  360.147361  0.5399  1.020E-05
+  361.144583  0.5377  9.896E-06
+  362.139028  0.5375  9.738E-06
+  363.136250  0.5365  9.856E-06
+  364.133472  0.5364  9.957E-06
+  365.139694  0.5277  1.160E-05
+  366.127917  0.5315  1.017E-05
+  367.125139  0.5274  1.072E-05
+  368.122361  0.5262  1.080E-05
+  369.119583  0.5315  8.824E-06
+  370.116806  0.5388  7.509E-06
+  371.114028  0.5316  6.827E-06
+  372.111250  0.5337  5.905E-06
+  373.108472  0.5398  5.235E-06
+  374.105694  0.5487  4.388E-06
+  375.102917  0.5400  4.641E-06
+  376.100139  0.5510  4.100E-06
+  377.097361  0.5539  3.724E-06
+  378.094583  0.5582  3.489E-06
+  379.091806  0.5592  3.486E-06
+  380.089028  0.5598  3.396E-06
+  381.086250  0.5605  3.176E-06
+  382.083472  0.5641  3.016E-06
+  383.080694  0.5501  3.555E-06
+  384.077917  0.5535  3.427E-06
+  385.075139  0.5553  3.272E-06
+  386.072361  0.5512  3.440E-06
+  387.069583  0.5496  3.022E-06
+  388.066806  0.5511  2.758E-06
+  389.064028  0.5594  2.689E-06
+  390.058472  0.5561  2.885E-06
+  391.055694  0.5570  2.724E-06
+  392.052917  0.5590  2.590E-06
+  393.050139  0.5607  2.448E-06
+  394.050139  0.5612  2.158E-06
+  395.044583  0.5768  1.864E-06
+  396.041806  0.5820  1.401E-06
+  397.039028  0.5771  1.499E-06
+  398.036250  0.5738  1.462E-06
+  399.033472  0.5843  1.213E-06
+  400.030694  0.5690  1.458E-06
+  401.027917  0.5929  1.029E-06
+  402.025139  0.5996  9.917E-07
+  403.022361  0.2062  4.279E-05
+  404.019583  0.2568  2.059E-05
+  405.016806  0.3901  8.410E-06
+  406.014028  0.3948  8.695E-06
+  407.011250  0.3405  2.059E-05
+  408.008472  0.3974  9.530E-06
+  409.005694  0.4040  8.944E-06
+  410.002917  0.3982  1.029E-05
+  411.000139  0.3863  1.487E-05
--- a/Plots/ns41nT2019C.txt
+++ b/Plots/ns41nT2019C.txt
@@ -0,0 +1,119 @@
+  293.566806  0.4855  4.753E-05
+  294.564028  0.4988  5.041E-05
+  295.561250  0.4990  4.794E-05
+  296.558472  0.5014  4.452E-05
+  297.552917  0.4846  3.629E-05
+  298.550139  0.1523  3.207E-03
+  299.547361  0.1989  1.529E-03
+  300.544583  0.3022  1.225E-03
+  301.541806  0.3414  5.772E-04
+  302.539028  0.3604  6.610E-04
+  303.536250  0.3801  8.471E-04
+  304.533472  0.3866  8.495E-04
+  305.530694  0.3987  7.720E-04
+  306.527917  0.4102  7.614E-04
+  307.525139  0.4171  7.523E-04
+  308.522361  0.4273  8.821E-04
+  309.519583  0.4296  6.874E-04
+  310.516806  0.4268  5.350E-04
+  311.514028  0.4308  4.897E-04
+  312.511250  0.4423  5.162E-04
+  313.508472  0.4429  4.839E-04
+  314.505694  0.4459  4.449E-04
+  315.502917  0.4387  3.600E-04
+  316.500139  0.4621  3.465E-04
+  317.497361  0.4641  3.273E-04
+  318.494583  0.4716  3.152E-04
+  319.491806  0.4764  3.044E-04
+  320.489028  0.4780  2.652E-04
+  321.486250  0.4785  2.387E-04
+  322.483472  0.4869  2.292E-04
+  323.480694  0.4871  2.205E-04
+  324.477917  0.4889  2.073E-04
+  325.475139  0.4955  1.993E-04
+  326.472361  0.4824  1.476E-04
+  327.469582  0.4829  1.198E-04
+  328.466806  0.4953  1.080E-04
+  329.464028  0.4992  9.339E-05
+  330.461250  0.5090  8.473E-05
+  331.458472  0.5122  8.045E-05
+  332.455694  0.5192  7.705E-05
+  333.452917  0.5154  7.021E-05
+  334.450139  0.5222  6.830E-05
+  335.447361  0.5211  6.209E-05
+  336.444583  0.5218  6.045E-05
+  337.441806  0.5209  5.980E-05
+  338.439028  0.5223  5.965E-05
+  339.436250  0.5214  5.890E-05
+  340.433472  0.5219  5.604E-05
+  341.430694  0.5196  5.414E-05
+  342.427917  0.5200  5.273E-05
+  343.422361  0.5222  4.920E-05
+  344.419583  0.5241  4.543E-05
+  345.416806  0.5265  4.253E-05
+  346.414028  0.5323  3.941E-05
+  347.411250  0.5324  3.619E-05
+  348.408472  0.5370  3.590E-05
+  349.405694  0.5369  3.408E-05
+  350.402917  0.5381  3.069E-05
+  351.400139  0.5435  2.839E-05
+  352.397361  0.5566  2.795E-05
+  353.394583  0.5309  1.874E-05
+  354.391806  0.5407  1.742E-05
+  355.389028  0.5425  1.558E-05
+  356.386250  0.5510  1.421E-05
+  357.383472  0.5546  1.326E-05
+  358.380694  0.5582  1.193E-05
+  359.377917  0.5619  1.149E-05
+  360.375139  0.5593  1.123E-05
+  361.372361  0.5587  1.106E-05
+  362.369583  0.5615  1.060E-05
+  363.366806  0.5632  1.048E-05
+  364.364028  0.5618  1.069E-05
+  365.361250  0.5601  1.050E-05
+  366.358472  0.5620  1.006E-05
+  367.355694  0.5593  1.014E-05
+  368.352917  0.5542  1.005E-05
+  369.350139  0.5581  9.149E-06
+  370.344583  0.5665  8.175E-06
+  371.341806  0.5631  7.319E-06
+  372.339028  0.5686  6.209E-06
+  373.336250  0.5715  5.716E-06
+  374.333472  0.5729  5.004E-06
+  375.330694  0.5755  4.835E-06
+  376.327917  0.5820  4.200E-06
+  377.325139  0.5868  3.942E-06
+  378.322361  0.5953  3.600E-06
+  379.319583  0.5993  3.488E-06
+  380.316806  0.6006  3.316E-06
+  381.314028  0.6018  3.165E-06
+  382.311250  0.6049  2.962E-06
+  383.308472  0.6005  3.039E-06
+  384.305694  0.5995  2.939E-06
+  385.302917  0.6029  2.869E-06
+  386.300139  0.6073  2.869E-06
+  387.297361  0.5970  2.807E-06
+  388.294583  0.6014  2.652E-06
+  389.291806  0.6071  2.458E-06
+  390.289028  0.6092  2.487E-06
+  391.286250  0.6097  2.293E-06
+  392.283472  0.6119  2.272E-06
+  393.280694  0.6102  2.154E-06
+  394.277917  0.6093  1.967E-06
+  395.275139  0.6146  1.900E-06
+  396.272361  0.6141  1.633E-06
+  397.269583  0.6138  1.594E-06
+  398.266806  0.6276  1.353E-06
+  399.264028  0.6333  1.173E-06
+  400.261250  0.6379  1.108E-06
+  401.258472  0.6383  1.076E-06
+  402.255694  0.6517  9.992E-07
+  403.250139  0.5228  2.144E-06
+  404.247361  0.5024  2.777E-06
+  405.244583  0.5324  1.859E-06
+  406.241806  0.5237  2.115E-06
+  407.238028  0.5063  2.596E-06
+  408.236250  0.5008  3.104E-06
+  409.233472  0.4998  3.005E-06
+  410.230694  0.4974  3.044E-06
+  411.227917  0.4935  3.268E-06
--- a/Plots/ns41nT2019D.txt
+++ b/Plots/ns41nT2019D.txt
@@ -0,0 +1,119 @@
+  293.819583  0.4870  5.410E-05
+  294.816806  0.4878  4.782E-05
+  295.814028  0.4923  4.493E-05
+  296.811250  0.4944  4.585E-05
+  297.808472  0.4510  2.681E-05
+  298.805694  0.1963  2.227E-03
+  299.802917  0.2321  1.953E-03
+  300.800139  0.3106  1.001E-03
+  301.797361  0.3499  7.128E-04
+  302.794583  0.3666  7.927E-04
+  303.791806  0.3683  6.406E-04
+  304.789028  0.3948  1.033E-03
+  305.786250  0.4029  9.322E-04
+  306.783472  0.4125  9.188E-04
+  307.780694  0.4177  9.357E-04
+  308.777917  0.4192  8.356E-04
+  309.775139  0.4225  6.667E-04
+  310.772361  0.4331  6.738E-04
+  311.769583  0.4322  5.906E-04
+  312.766806  0.4388  5.162E-04
+  313.764028  0.4454  5.628E-04
+  314.761250  0.4473  5.268E-04
+  315.758472  0.4433  3.519E-04
+  316.755694  0.4551  3.638E-04
+  317.752917  0.4578  3.481E-04
+  318.750139  0.4666  3.244E-04
+  319.747361  0.4767  3.311E-04
+  320.744583  0.4826  2.942E-04
+  321.741806  0.4770  2.528E-04
+  322.739028  0.4834  2.308E-04
+  323.736250  0.4836  2.224E-04
+  324.733472  0.4980  2.220E-04
+  325.730694  0.4759  1.662E-04
+  326.727917  0.4755  1.334E-04
+  327.725139  0.4826  1.099E-04
+  328.722361  0.4901  1.028E-04
+  329.719583  0.4983  9.103E-05
+  330.716806  0.5059  8.389E-05
+  331.714028  0.5071  7.711E-05
+  332.711250  0.5094  7.705E-05
+  333.708472  0.5088  6.922E-05
+  334.705694  0.5179  6.446E-05
+  335.700139  0.5072  6.013E-05
+  336.697361  0.5086  6.130E-05
+  337.694583  0.5091  5.876E-05
+  338.691806  0.5080  6.002E-05
+  339.689028  0.5091  6.012E-05
+  340.686250  0.5056  5.616E-05
+  341.683472  0.5057  5.378E-05
+  342.680694  0.5071  5.464E-05
+  343.677917  0.5110  4.825E-05
+  344.675139  0.5144  4.513E-05
+  345.672361  0.5155  4.009E-05
+  346.669583  0.5174  3.701E-05
+  347.666806  0.5201  3.417E-05
+  348.664028  0.5263  3.406E-05
+  349.661250  0.5274  3.160E-05
+  350.658472  0.5277  2.713E-05
+  351.655694  0.5343  2.578E-05
+  352.652917  0.5253  1.813E-05
+  353.650139  0.5198  1.677E-05
+  354.647361  0.5231  1.487E-05
+  355.644583  0.5299  1.319E-05
+  356.641806  0.5332  1.245E-05
+  357.639028  0.5347  1.143E-05
+  358.636250  0.5417  1.049E-05
+  359.633472  0.5453  1.002E-05
+  360.630694  0.5414  1.008E-05
+  361.625139  0.5388  9.931E-06
+  362.622361  0.5410  9.641E-06
+  363.619583  0.5402  9.800E-06
+  364.616806  0.5385  1.004E-05
+  365.614028  0.5347  1.010E-05
+  366.611250  0.5343  9.904E-06
+  367.608472  0.5330  9.757E-06
+  368.605694  0.5328  9.169E-06
+  369.602917  0.5395  8.627E-06
+  370.600139  0.5491  7.815E-06
+  371.597361  0.5368  6.611E-06
+  372.594583  0.5370  5.765E-06
+  373.591806  0.5468  4.983E-06
+  374.589028  0.5475  4.475E-06
+  375.586250  0.5479  4.308E-06
+  376.583472  0.5544  3.943E-06
+  377.580694  0.5590  3.581E-06
+  378.577917  0.5566  3.689E-06
+  379.575139  0.5679  3.080E-06
+  380.572361  0.5689  2.981E-06
+  381.569583  0.5752  2.689E-06
+  382.566806  0.5613  3.254E-06
+  383.564028  0.5563  3.276E-06
+  384.561250  0.5599  3.087E-06
+  385.558472  0.5596  3.192E-06
+  386.555694  0.5277  4.779E-06
+  387.552917  0.5579  2.804E-06
+  388.547361  0.5632  2.650E-06
+  389.544583  0.5631  2.586E-06
+  390.541806  0.5637  2.611E-06
+  391.539028  0.5622  2.588E-06
+  392.536250  0.5713  2.290E-06
+  393.533472  0.5644  2.434E-06
+  394.530694  0.5763  1.900E-06
+  395.527917  0.5789  1.729E-06
+  396.525139  0.5639  1.829E-06
+  397.522361  0.5582  1.898E-06
+  398.519583  0.5841  1.321E-06
+  399.516806  0.5932  1.112E-06
+  400.514028  0.5886  1.175E-06
+  401.511250  0.6073  9.422E-07
+  402.508472  0.4974  3.382E-06
+  403.505694  0.1861  4.691E-05
+  404.502917  0.3258  1.485E-05
+  405.500139  0.3882  9.368E-06
+  406.497361  0.3983  8.474E-06
+  407.494583  0.2769  1.431E-04
+  408.491806  0.3950  1.093E-05
+  409.489028  0.3979  1.105E-05
+  410.486250  0.3946  1.238E-05
+  411.483472  0.3868  1.427E-05