K-Science.info

K-Science.info

Scatter Plots:

Stacks Image 8988

Example 1: S Wave versus P Wave Time

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
ggplot(P.S.Data,aes(x=P.Wave.T,y=S.Wave.T,color=Degrees))+
 geom_point(size=5)+
 ggtitle("Comparision of S & P Wave Arrival Time")+
 scale_x_continuous(name="P Wave Arrival Time (Min)" ) +
 scale_y_continuous(name="S Wave Arrival Time (Min)")+
 theme(plot.title = element_text(size = 70, face = "bold")) +
 theme(axis.title.y = element_text(size = 20, angle = 90)) +
 theme(axis.title.x = element_text(size = 20, angle = 360)) +
 theme(legend.title = element_text(face = "bold")) +
 theme(plot.title = element_text(size = rel(2)))+geom_smooth()
 theme(plot.title = element_text(hjust = 0.5))+
  labs(colour = "Degrees")

Dataset: P.S.Data

Stacks Image 92
Stacks Image 189
Stacks Image 12972

Example 2: S Wave Travel Time Relative to Degrees

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
ggplot(P.S.Data,aes(x=Degrees,y=S.Wave.T))+
 geom_point(size=5)+
 ggtitle("Comparision of S Wave Arrival Time")+
 scale_x_continuous(name="Station Distance (degrees)" ) +
 scale_y_continuous(name="Travel time (min)")+
 theme(plot.title = element_text(size = 70, face = "bold")) +
 theme(axis.title.y = element_text(size = 20, angle = 90)) +
 theme(axis.title.x = element_text(size = 20, angle = 360)) +
 theme(legend.title = element_text(face = "bold")) +
 theme(plot.title = element_text(size = rel(2)))+geom_smooth()
 theme(plot.title = element_text(hjust = 0.5))
Stacks Image 12988

Dataset: Rivers

Stacks Image 138

Example 3: River Discharge Example 1

ggplot(rivers,aes(x=Recurrence.Interval,y=Discharge.Interval,color=Gage.Height..ft.))+
 geom_point(size=5)+
 ggtitle("Recurrence Interval versus Discharge Interval (Q) During Flooding")+
 scale_x_continuous(name="Recurrence Interval" ) +
 scale_y_continuous(name="Discharge Interval (c/fs)")+
 theme(plot.title = element_text(size = 70, face = "bold")) +
 theme(axis.title.y = element_text(size = 20, angle = 90)) +
 theme(axis.title.x = element_text(size = 20, angle = 360)) +
 theme(legend.title = element_text(face = "bold")) +
 theme(plot.title = element_text(size = rel(2)))+
 theme(plot.title = element_text(hjust = 0.5))+
  labs(colour = "Gauge Height (ft)")
 
Stacks Image 86

Example 4: River Discharge Example 2

ggplot(rivers,aes(y=Gage.Height..ft.,x=Discharge.Interval,color=Recurrence.Interval))+
 geom_point(size=5)+
 ggtitle("Discharge Interval versus Gage Height  During Flooding")+
 scale_y_continuous(name="Gage Height (ft)") +
 scale_x_continuous(name="Discharge Interval (c/fs)")+
 theme(plot.title = element_text(size = 70, face = "bold")) +
 theme(axis.title.y = element_text(size = 20, angle = 90)) +
 theme(axis.title.x = element_text(size = 20, angle = 360)) +
 theme(legend.title = element_text(face = "bold")) +
 theme(plot.title = element_text(size = rel(2)))+
 theme(plot.title = element_text(hjust = 0.5))+
  labs(colour = "Recurrence Interval")
Stacks Image 106