diff --git a/class-activity-3.Rmd b/class-activity-3.Rmd index d8dd1d6..b7cfefa 100644 --- a/class-activity-3.Rmd +++ b/class-activity-3.Rmd @@ -1,13 +1,13 @@ --- title: "class activity 3" -author: "Charles Lang" -date: "10/2/2018" +author: "Ningyao Xu" +date: "10/1/2019" output: html_document --- #Mapping aesthetic to data to = layer ```{r} -install.packages("ggplot2") +#install.packages("ggplot2") library(ggplot2) ggplot(diamonds, aes(x = price, y = carat)) + @@ -44,24 +44,26 @@ Can you create a line graph using the "economics_long" data set that shows chang ```{r} +ggplot(economics_long, aes(x=date, y=value01, color = variable)) + + geom_line() + ``` If you would like to recreate the Minard graphic of Napoleon's Troops the code is below and the data is in this repo. ```{r} - +cities <- read.table("cities.txt",header = TRUE) +troops <- read.table("troops.txt",header = TRUE) +temps <- read.table("temps.txt",header = TRUE) ggplot(cities, aes(long, lat)) + - geom_path(aes(size = survivors, colour = -direction, - group = interaction(group, direction)), data = -troops) + - geom_text(aes(label = city), hjust = 0, vjust = 1, -size = 4) + geom_path(aes(size = survivors, colour = direction, + group = interaction(group, direction)), data = troops) + + geom_text(aes(label = city), hjust = 0, vjust = 1,size = 4) # Polish appearance last_plot() + scale_x_continuous("", limits = c(24, 39)) + scale_y_continuous("") + - scale_colour_manual(values = c("grey50","red")) + - scale_size(to = c(1, 10)) + scale_colour_manual(values = c("#92C5DE","#2166AC")) + + scale_size(range = c(1, 10)) ``` diff --git a/class-activity-3.html b/class-activity-3.html new file mode 100644 index 0000000..ffeb0fc --- /dev/null +++ b/class-activity-3.html @@ -0,0 +1,469 @@ + + + + + + + + + + + + + + + +class activity 3 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + + + + + + +

#Mapping aesthetic to data to = layer

+
#install.packages("ggplot2")
+library(ggplot2)
+
+ggplot(diamonds, aes(x = price, y = carat)) +
+  geom_point()
+

+

#Two layers

+
ggplot(mpg, aes(reorder(class, hwy), hwy)) +
+  geom_jitter() +
+  geom_boxplot()
+

+
#Plot count
+ggplot(diamonds, aes(depth)) +
+  geom_histogram(aes(y = ..count..), binwidth=0.2) +
+  facet_wrap(~ cut) + xlim(50, 70)
+
## Warning: Removed 26 rows containing non-finite values (stat_bin).
+
## Warning: Removed 10 rows containing missing values (geom_bar).
+

+
#Plot density
+ggplot(diamonds, aes(depth)) +
+  geom_histogram(aes(y = ..density..), binwidth=0.2) +
+  facet_wrap(~ cut) + xlim(50, 70)
+
## Warning: Removed 26 rows containing non-finite values (stat_bin).
+
+## Warning: Removed 10 rows containing missing values (geom_bar).
+

+
ggplot(mpg, aes(displ, hwy, color = class)) +
+  geom_point()
+

+

Can you create a line graph using the “economics_long” data set that shows change over time in “value01” for different categories of “variable”?

+
ggplot(economics_long, aes(x=date, y=value01, color = variable)) +
+  geom_line()
+

+

If you would like to recreate the Minard graphic of Napoleon’s Troops the code is below and the data is in this repo.

+
cities <- read.table("cities.txt",header = TRUE)
+troops <- read.table("troops.txt",header = TRUE)
+temps <- read.table("temps.txt",header = TRUE)
+ggplot(cities, aes(long, lat)) +
+  geom_path(aes(size = survivors, colour = direction,
+    group = interaction(group, direction)), data = troops) +
+  geom_text(aes(label = city), hjust = 0, vjust = 1,size = 4)
+

+
# Polish appearance
+last_plot() +
+  scale_x_continuous("", limits = c(24, 39)) +
+  scale_y_continuous("") +
+  scale_colour_manual(values = c("#92C5DE","#2166AC")) +
+  scale_size(range = c(1, 10))
+

+ + + + +
+ + + + + + + + + + + + + + +