From f23e98c03ffa44b3e73c638dcdfd55566667ed5d Mon Sep 17 00:00:00 2001
From: Hunter Gonzalez <huntergonzalez@dhcp-10-7-137-36.dhcp.nd.edu>
Date: Fri, 18 Nov 2022 00:04:01 -0500
Subject: [PATCH] Hunter Gonzalez- Solutions to Exercise09

---
 .DS_Store                   | Bin 0 -> 6148 bytes
 .gitignore                  |   4 ++++
 AgetoSalary.txt             |   6 ++++++
 Exercise09-HunterGonzalez.R |  23 +++++++++++++++++++++++
 Exercise09.Rproj            |  13 +++++++++++++
 5 files changed, 46 insertions(+)
 create mode 100644 .DS_Store
 create mode 100644 .gitignore
 create mode 100644 AgetoSalary.txt
 create mode 100644 Exercise09-HunterGonzalez.R
 create mode 100644 Exercise09.Rproj

diff --git a/.DS_Store b/.DS_Store
new file mode 100644
index 0000000000000000000000000000000000000000..816fa3a8a8338b24d826d571cdb89616ffc75801
GIT binary patch
literal 6148
zcmeHK!Ab)$5Pi{tML~NMMA#qbt{%OurJ{m(XwkE_-D<VEW!;K;+Pfd)_j%GcNf38i
z=}kmtVDgel-emKn69d4srh{Fe0iaG7tgW({V=^y3V@p1=LNqo<iY_iOre`y&HJ}Qp
z0)I^b`R#6CA6H0_<NNRT86hK2$dAWqzc)^MT*)$F-ihIdHG7x^>`C4`nLgxF4?3(4
z&v;<g1b2vV&i%%ivY#*-q0PFH(<7X5oUn#S^qMQ~EhpnwrtH7i8j}!(Bivigr<ib@
zp~)2~9x+0nb4}tshPEc%aVObfWV1v#;OS(SJ|nW<4)&N~p&mTZsXx(zvolv61AnTy
zYEt>Knp<<fs)?g-DjZf+2+=A3jqp~<x;{5+NW}&imbqrT!fpJ(?U0@EOKvLs*9xCQ
zwLhr<?`*O9nnP_>0aZX1_)<XXLqHddJr)ja>0o1@0K^)@*4US~gm40nvB$z8XK2Pz
ziH>Ug6T>(<<AGlndn_C}I*fmO7{9aeFBD^UXa2x0hlw3(s|u(BWd)Yqup#&V!O!pi
zGD%0OfGY5>6fm`Rx835A{M|ZpIJs*B`UPD~))fvdg^j<CZAY%+O}aJC1=1nL9t($z
Q(DWYxD}y$wz^^Ls2?G3-!vFvP

literal 0
HcmV?d00001

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..5b6a065
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,4 @@
+.Rproj.user
+.Rhistory
+.RData
+.Ruserdata
diff --git a/AgetoSalary.txt b/AgetoSalary.txt
new file mode 100644
index 0000000..b5f6ad0
--- /dev/null
+++ b/AgetoSalary.txt
@@ -0,0 +1,6 @@
+Age	Salary
+25	45663.9
+35	68831.49
+45	78679.09
+55	75324.28
+65	68826.28
\ No newline at end of file
diff --git a/Exercise09-HunterGonzalez.R b/Exercise09-HunterGonzalez.R
new file mode 100644
index 0000000..5e29615
--- /dev/null
+++ b/Exercise09-HunterGonzalez.R
@@ -0,0 +1,23 @@
+library(ggplot2)
+#Question1
+averagesalary<-read.table("AgetoSalary.txt",header=TRUE,sep="\t",stringsAsFactors=FALSE)
+ggplot(data = averagesalary, aes(x=Age,y=Salary))+
+  geom_point()+
+  stat_smooth(method="lm")
+  theme_classic()
+#Question2
+data=read.table("data.txt",header=TRUE,sep=",",stringsAsFactors=FALSE)
+## Barplot of the means of the two populations
+ggplot(data, aes(x=region, y=observations, fill=as.factor(region))) +
+  stat_summary(geom="bar", fun="mean") +
+  xlab("Regions") +
+  ylab("Average # of Observations")+
+  theme_bw()
+
+##Scatterplot of all of the observations
+ggplot(data = data, aes(x=region, y=observations))+
+  geom_point() +
+  geom_jitter()+
+  theme_bw()
+#Stories of the Scatterplot vs Bar Plot: The bar plot makes it seem like there are a fairly similar amount of average observations, but the 
+# scatter plot shows that there are vastly different distributions for the observations in different regions
\ No newline at end of file
diff --git a/Exercise09.Rproj b/Exercise09.Rproj
new file mode 100644
index 0000000..8e3c2eb
--- /dev/null
+++ b/Exercise09.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