Change code

improved histogram.
ymoon06 · Sep 16, 2020 · 9cea417 · 9cea417
1 parent 70e44b3
commit 9cea417
Show file tree

Hide file tree

Showing 2 changed files with 50 additions and 6 deletions.
diff --git a/EXERCISE 1/exercise1-b.Rmd b/EXERCISE 1/exercise1-b.Rmd
@@ -22,8 +22,30 @@ print(x)
 
 ## Create a histogram of the distribution and the distribution on the log scale
 ```{r histX}
-hist(x, main= paste("Histogram of samples from log normal distribution"))
-hist(log(x),main=paste("Histogram of samples from log normal distribution on log scale"))
+#hist(x, main= paste("Histogram of samples from log normal distribution"))
+#hist(log(x),main=paste("Histogram of samples from log normal distribution on log scale"))
+
+library(ggplot2)
+qplot(x, geom="histogram",
+      binwidth=0.04,
+      log="", 
+      main="Histogram of samples from log normal distribution", 
+      xlab="sample", 
+      ylab="frequency",
+      fill=I("blue"),
+      col=I("red"))
+qplot(x, 
+      geom="histogram",
+      binwidth=0.04,
+      log="x",
+      main="Histogram of samples from log normal distribution on log scale",
+      xlab="sample on logscale",
+      ylab="frequency",
+      fill=I("green"),
+      col=I("yellow"))
+
+
+
 ```
 
 
@@ -47,3 +69,6 @@ and variance of samples is `r variance.samples`
 
 
 
+
+
+