333 lines
15 KiB
R
333 lines
15 KiB
R
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")
|