exercise10_Aliyev

task1.r

@@ -0,0 +1,6 @@
+# This data show number of quakes greater than the magnitude 7 from 1900 to 2000. We hae slightly less number of powerful earhtqquakes nowadays.
+quakes<-read.table("https://seattlecentral.edu/qelp/sets/039/s039.txt", sep="\t", header=T)
+names(quakes) = c("years","earthquakes")
+reg1 <- lm(years~earthquakes,data=quakes)
+with(quakes,plot(years,earthquakes))
+abline(reg1)

task2.r

@@ -0,0 +1,17 @@
+library(ggplot2)
+data <- read.table(file = "data.txt", header = T, sep = ",", stringsAsFactors = FALSE)
+
+ggplot(data, aes(x = region, y = observations)) +
+  stat_summary(fun = mean, geom = "bar") +
+  xlab(“region") +
+  ylab(“observations") +
+  theme_classic()
+
+ggplot(data = data,aes(x = region, y = observations)) +
+  geom_point() +
+  geom_jitter()
+  xlab(“region") +
+  ylab(“observations") +
+  theme_classic()
+
+# Barplot does not show us the great variance in diffrent regions here. SInce means are very similar we might be deceived. Jitterplot shows us the spread of clusters which gives us more information.