Class-activity-3 Ningyao Xu

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))
 ```