From 7a29d79895c6edd6b00f112e3e0567a144f5bf19 Mon Sep 17 00:00:00 2001 From: jzangela Date: Mon, 30 Sep 2019 23:12:51 -0400 Subject: [PATCH 1/2] Jingru Zhang-class-activity-2 --- Jingru Zhang-class-activity-2.html | 930 +++++++++++++++++++++++++++++ 1 file changed, 930 insertions(+) create mode 100644 Jingru Zhang-class-activity-2.html diff --git a/Jingru Zhang-class-activity-2.html b/Jingru Zhang-class-activity-2.html new file mode 100644 index 0000000..e1b5d03 --- /dev/null +++ b/Jingru Zhang-class-activity-2.html @@ -0,0 +1,930 @@ + + + + + + + + + + + + + + + + +intro to viz + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + + + + + + +

#Input

+
D1 <- read.csv("School_Demographics_and_Accountability_Snapshot_2006-2012.csv", header = TRUE, sep = ",")
+
+#Create a data frame only contains the years 2011-2012
+library(dplyr)
+
## 
+## Attaching package: 'dplyr'
+
## The following objects are masked from 'package:stats':
+## 
+##     filter, lag
+
## The following objects are masked from 'package:base':
+## 
+##     intersect, setdiff, setequal, union
+
D2 <- filter(D1, schoolyear == 20112012)
+

#Histograms

+
#Generate a histogramof the percentage of free/reduced lunch students (frl_percent) at each school
+
+hist(D1$frl_percent)
+

+
#Change the number of breaks to 100, do you get the same impression?
+
+hist(D2$frl_percent, breaks = 100)
+

+
#Cut the y-axis off at 30
+
+hist(D2$frl_percent, breaks = 100, ylim = c(0,30))
+

+
#Restore the y-axis and change the breaks so that they are 0-10, 10-20, 20-80, 80-100
+
+hist(D2$frl_percent, breaks = c(0,10,20,80,100))
+

+

#Plots

+
#Plot the number of English language learners (ell_num) by Computational Thinking Test scores (ctt_num) 
+
+plot(D2$ell_num, D2$ctt_num)
+

+
#Create two variables x & y
+x <- c(1,3,2,7,6,4,4)
+y <- c(2,4,2,3,2,4,3)
+
+#Create a table from x & y
+table1 <- table(x,y)
+
+#Display the table as a Barplot
+barplot(table1)
+

+
#Create a data frame of the average total enrollment for each year and plot the two against each other as a lines
+
+library(tidyr)
+
## 
+## Attaching package: 'tidyr'
+
## The following object is masked _by_ '.GlobalEnv':
+## 
+##     table1
+
D3 <- D1 %>% group_by(schoolyear) %>% summarise(mean_enrollment = mean(total_enrollment))
+
+plot(D3$schoolyear, D3$mean_enrollment, type = "l", lty = "dashed")
+

+
#Create a boxplot of total enrollment for three schools
+D4 <- filter(D1, DBN == "31R075"|DBN == "01M015"| DBN == "01M345")
+#The drop levels command will remove all the schools from the variable with not data  
+D4 <- droplevels(D4)
+boxplot(D4$total_enrollment ~ D4$DBN)
+

#Pairs

+
#Use matrix notation to select columns 5,6, 21, 22, 23, 24
+D5 <- D2[,c(5,6, 21:24)]
+#Draw a matrix of plots for every combination of variables
+pairs(D5)
+

# Exercise

+
    +
  1. Create a simulated data set containing 100 students, each with a score from 1-100 representing performance in an educational game. The scores should tend to cluster around 75. Also, each student should be given a classification that reflects one of four interest groups: sport, music, nature, literature.
    2. +
+
#rnorm(100, 75, 15) creates a random sample with a mean of 75 and standard deviation of 20
+#pmax sets a maximum value, pmin sets a minimum value
+#round rounds numbers to whole number values
+#sample draws a random samples from the groups vector according to a uniform distribution
+ SD1 <- data.frame(
+      score = round(rnorm(pmin(100:1, 100), 75, 8)),
+      groups = sample(c("sport", "music", "nature", "literature"), 
+                              size = 4, replace = FALSE, prob = NULL))
+SD1
+
##     score     groups
+## 1      71      music
+## 2      72     nature
+## 3      68      sport
+## 4      81 literature
+## 5      92      music
+## 6      83     nature
+## 7      91      sport
+## 8      62 literature
+## 9      84      music
+## 10     64     nature
+## 11     78      sport
+## 12     74 literature
+## 13     92      music
+## 14     78     nature
+## 15     65      sport
+## 16     76 literature
+## 17     79      music
+## 18     73     nature
+## 19     69      sport
+## 20     66 literature
+## 21     73      music
+## 22     81     nature
+## 23     81      sport
+## 24     79 literature
+## 25     82      music
+## 26     80     nature
+## 27     79      sport
+## 28     79 literature
+## 29     82      music
+## 30     75     nature
+## 31     93      sport
+## 32     74 literature
+## 33     84      music
+## 34     75     nature
+## 35     81      sport
+## 36     77 literature
+## 37     79      music
+## 38     67     nature
+## 39     71      sport
+## 40     68 literature
+## 41     69      music
+## 42     86     nature
+## 43     56      sport
+## 44     78 literature
+## 45     71      music
+## 46     80     nature
+## 47     74      sport
+## 48     96 literature
+## 49     69      music
+## 50     88     nature
+## 51     87      sport
+## 52     66 literature
+## 53     72      music
+## 54     69     nature
+## 55     72      sport
+## 56     84 literature
+## 57     73      music
+## 58     75     nature
+## 59     65      sport
+## 60     67 literature
+## 61     78      music
+## 62     76     nature
+## 63     90      sport
+## 64     73 literature
+## 65     68      music
+## 66     81     nature
+## 67     80      sport
+## 68     65 literature
+## 69     71      music
+## 70     85     nature
+## 71     78      sport
+## 72     74 literature
+## 73     72      music
+## 74     91     nature
+## 75     78      sport
+## 76     78 literature
+## 77     82      music
+## 78     90     nature
+## 79     82      sport
+## 80     80 literature
+## 81     79      music
+## 82     67     nature
+## 83     71      sport
+## 84     75 literature
+## 85     74      music
+## 86     75     nature
+## 87     75      sport
+## 88     79 literature
+## 89     65      music
+## 90     79     nature
+## 91     90      sport
+## 92     58 literature
+## 93     84      music
+## 94     69     nature
+## 95     81      sport
+## 96     74 literature
+## 97     65      music
+## 98     65     nature
+## 99     80      sport
+## 100    85 literature
+
    +
  1. Using base R commands, draw a histogram of the scores. Change the breaks in your histogram until you think they best represent your data.
    2. +
+
hist(SD1$score)
+

+
min(SD1$score)
+
## [1] 56
+
max(SD1$score)
+
## [1] 96
+
hist(SD1$score, breaks = c(50, 60, 70, 80, 90, 100))
+

+
    +
  1. Create a new variable that groups the scores according to the breaks in your histogram.
    2. +
+
#cut() divides the range of scores into intervals and codes the values in scores according to which interval they fall. We use a vector called `letters` as the labels, `letters` is a vector made up of the letters of the alphabet.
+SD2 <- cut(SD1$score, breaks = c(50, 60, 70, 80, 90, 100), labels = letters[1:5])
+SD2
+
##   [1] c c b d e d e b d b c c e c b c c c b b c d d c d c c c d c e c d c d
+##  [36] c c b c b b d a c c c c e b d d b c b c d c c b b c c d c b d c b c d
+##  [71] c c c e c c d d d c c b c c c c c c b c d a d b d c b b c d
+## Levels: a b c d e
+
SD3 <- as.data.frame(cbind(as.numeric(SD1$score), as.character(SD2)))
+SD3
+
##     V1 V2
+## 1   71  c
+## 2   72  c
+## 3   68  b
+## 4   81  d
+## 5   92  e
+## 6   83  d
+## 7   91  e
+## 8   62  b
+## 9   84  d
+## 10  64  b
+## 11  78  c
+## 12  74  c
+## 13  92  e
+## 14  78  c
+## 15  65  b
+## 16  76  c
+## 17  79  c
+## 18  73  c
+## 19  69  b
+## 20  66  b
+## 21  73  c
+## 22  81  d
+## 23  81  d
+## 24  79  c
+## 25  82  d
+## 26  80  c
+## 27  79  c
+## 28  79  c
+## 29  82  d
+## 30  75  c
+## 31  93  e
+## 32  74  c
+## 33  84  d
+## 34  75  c
+## 35  81  d
+## 36  77  c
+## 37  79  c
+## 38  67  b
+## 39  71  c
+## 40  68  b
+## 41  69  b
+## 42  86  d
+## 43  56  a
+## 44  78  c
+## 45  71  c
+## 46  80  c
+## 47  74  c
+## 48  96  e
+## 49  69  b
+## 50  88  d
+## 51  87  d
+## 52  66  b
+## 53  72  c
+## 54  69  b
+## 55  72  c
+## 56  84  d
+## 57  73  c
+## 58  75  c
+## 59  65  b
+## 60  67  b
+## 61  78  c
+## 62  76  c
+## 63  90  d
+## 64  73  c
+## 65  68  b
+## 66  81  d
+## 67  80  c
+## 68  65  b
+## 69  71  c
+## 70  85  d
+## 71  78  c
+## 72  74  c
+## 73  72  c
+## 74  91  e
+## 75  78  c
+## 76  78  c
+## 77  82  d
+## 78  90  d
+## 79  82  d
+## 80  80  c
+## 81  79  c
+## 82  67  b
+## 83  71  c
+## 84  75  c
+## 85  74  c
+## 86  75  c
+## 87  75  c
+## 88  79  c
+## 89  65  b
+## 90  79  c
+## 91  90  d
+## 92  58  a
+## 93  84  d
+## 94  69  b
+## 95  81  d
+## 96  74  c
+## 97  65  b
+## 98  65  b
+## 99  80  c
+## 100 85  d
+
    +
  1. Now using the colorbrewer package (RColorBrewer; http://colorbrewer2.org/#type=sequential&scheme=BuGn&n=3) design a pallette and assign it to the groups in your data on the histogram.
    2. +
+
library(RColorBrewer)
+#Let's look at the available palettes in RColorBrewer
+
+#The top section of palettes are sequential, the middle section are qualitative, and the lower section are diverging.
+#Make RColorBrewer palette available to R and assign to your bins
+
+#Use named palette in histogram
+
+display.brewer.all()
+

+
hist(SD1$score,col=brewer.pal(5,"BuGn"))
+

+
    +
  1. Create a boxplot that visualizes the scores for each interest group and color each interest group a different color.
    2. +
+
#Make a vector of the colors from RColorBrewer
+boxplot(SD1$score ~ SD1$groups,col=brewer.pal(4,"RdBu"))
+

+
    +
  1. Now simulate a new variable that describes the number of logins that students made to the educational game. They should vary from 1-25.
    2. +
+
set.seed(1)
+(logins <- round(runif(100,min=1,max=25)))
+
##   [1]  7 10 15 23  6 23 24 17 16  2  6  5 17 10 19 13 18 25 10 20 23  6 17
+##  [24]  4  7 10  1 10 22  9 13 15 13  5 21 17 20  4 18 11 21 17 20 14 14 20
+##  [47]  2 12 19 18 12 22 12  7  3  3  9 13 17 11 23  8 12  9 17  7 12 19  3
+##  [70] 22  9 21  9  9 12 22 22 10 20 24 11 18 11  9 19  6 18  4  7  4  7  2
+##  [93] 16 22 20 20 12 11 20 16
+
    +
  1. Plot the relationships between logins and scores. Give the plot a title and color the dots according to interest group.
    2. +
+
plot(SD1$score, main="logins & scores", logins, type = "p", col=brewer.pal(4,"RdBu"))
+

+
    +
  1. R contains several inbuilt data sets, one of these in called AirPassengers. Plot a line graph of the the airline passengers over time using this data set.
    2. +
+
plot(AirPassengers,xlab="Date", ylab = "Passenger numbers (1000's)",main="Air Passenger numbers from 1949 to 1961")
+

+
    +
  1. Using another inbuilt data set, iris, plot the relationships between all of the variables in the data set. Which of these relationships is it appropraiet to run a correlation on?
    2. +
+
iris
+
##     Sepal.Length Sepal.Width Petal.Length Petal.Width    Species
+## 1            5.1         3.5          1.4         0.2     setosa
+## 2            4.9         3.0          1.4         0.2     setosa
+## 3            4.7         3.2          1.3         0.2     setosa
+## 4            4.6         3.1          1.5         0.2     setosa
+## 5            5.0         3.6          1.4         0.2     setosa
+## 6            5.4         3.9          1.7         0.4     setosa
+## 7            4.6         3.4          1.4         0.3     setosa
+## 8            5.0         3.4          1.5         0.2     setosa
+## 9            4.4         2.9          1.4         0.2     setosa
+## 10           4.9         3.1          1.5         0.1     setosa
+## 11           5.4         3.7          1.5         0.2     setosa
+## 12           4.8         3.4          1.6         0.2     setosa
+## 13           4.8         3.0          1.4         0.1     setosa
+## 14           4.3         3.0          1.1         0.1     setosa
+## 15           5.8         4.0          1.2         0.2     setosa
+## 16           5.7         4.4          1.5         0.4     setosa
+## 17           5.4         3.9          1.3         0.4     setosa
+## 18           5.1         3.5          1.4         0.3     setosa
+## 19           5.7         3.8          1.7         0.3     setosa
+## 20           5.1         3.8          1.5         0.3     setosa
+## 21           5.4         3.4          1.7         0.2     setosa
+## 22           5.1         3.7          1.5         0.4     setosa
+## 23           4.6         3.6          1.0         0.2     setosa
+## 24           5.1         3.3          1.7         0.5     setosa
+## 25           4.8         3.4          1.9         0.2     setosa
+## 26           5.0         3.0          1.6         0.2     setosa
+## 27           5.0         3.4          1.6         0.4     setosa
+## 28           5.2         3.5          1.5         0.2     setosa
+## 29           5.2         3.4          1.4         0.2     setosa
+## 30           4.7         3.2          1.6         0.2     setosa
+## 31           4.8         3.1          1.6         0.2     setosa
+## 32           5.4         3.4          1.5         0.4     setosa
+## 33           5.2         4.1          1.5         0.1     setosa
+## 34           5.5         4.2          1.4         0.2     setosa
+## 35           4.9         3.1          1.5         0.2     setosa
+## 36           5.0         3.2          1.2         0.2     setosa
+## 37           5.5         3.5          1.3         0.2     setosa
+## 38           4.9         3.6          1.4         0.1     setosa
+## 39           4.4         3.0          1.3         0.2     setosa
+## 40           5.1         3.4          1.5         0.2     setosa
+## 41           5.0         3.5          1.3         0.3     setosa
+## 42           4.5         2.3          1.3         0.3     setosa
+## 43           4.4         3.2          1.3         0.2     setosa
+## 44           5.0         3.5          1.6         0.6     setosa
+## 45           5.1         3.8          1.9         0.4     setosa
+## 46           4.8         3.0          1.4         0.3     setosa
+## 47           5.1         3.8          1.6         0.2     setosa
+## 48           4.6         3.2          1.4         0.2     setosa
+## 49           5.3         3.7          1.5         0.2     setosa
+## 50           5.0         3.3          1.4         0.2     setosa
+## 51           7.0         3.2          4.7         1.4 versicolor
+## 52           6.4         3.2          4.5         1.5 versicolor
+## 53           6.9         3.1          4.9         1.5 versicolor
+## 54           5.5         2.3          4.0         1.3 versicolor
+## 55           6.5         2.8          4.6         1.5 versicolor
+## 56           5.7         2.8          4.5         1.3 versicolor
+## 57           6.3         3.3          4.7         1.6 versicolor
+## 58           4.9         2.4          3.3         1.0 versicolor
+## 59           6.6         2.9          4.6         1.3 versicolor
+## 60           5.2         2.7          3.9         1.4 versicolor
+## 61           5.0         2.0          3.5         1.0 versicolor
+## 62           5.9         3.0          4.2         1.5 versicolor
+## 63           6.0         2.2          4.0         1.0 versicolor
+## 64           6.1         2.9          4.7         1.4 versicolor
+## 65           5.6         2.9          3.6         1.3 versicolor
+## 66           6.7         3.1          4.4         1.4 versicolor
+## 67           5.6         3.0          4.5         1.5 versicolor
+## 68           5.8         2.7          4.1         1.0 versicolor
+## 69           6.2         2.2          4.5         1.5 versicolor
+## 70           5.6         2.5          3.9         1.1 versicolor
+## 71           5.9         3.2          4.8         1.8 versicolor
+## 72           6.1         2.8          4.0         1.3 versicolor
+## 73           6.3         2.5          4.9         1.5 versicolor
+## 74           6.1         2.8          4.7         1.2 versicolor
+## 75           6.4         2.9          4.3         1.3 versicolor
+## 76           6.6         3.0          4.4         1.4 versicolor
+## 77           6.8         2.8          4.8         1.4 versicolor
+## 78           6.7         3.0          5.0         1.7 versicolor
+## 79           6.0         2.9          4.5         1.5 versicolor
+## 80           5.7         2.6          3.5         1.0 versicolor
+## 81           5.5         2.4          3.8         1.1 versicolor
+## 82           5.5         2.4          3.7         1.0 versicolor
+## 83           5.8         2.7          3.9         1.2 versicolor
+## 84           6.0         2.7          5.1         1.6 versicolor
+## 85           5.4         3.0          4.5         1.5 versicolor
+## 86           6.0         3.4          4.5         1.6 versicolor
+## 87           6.7         3.1          4.7         1.5 versicolor
+## 88           6.3         2.3          4.4         1.3 versicolor
+## 89           5.6         3.0          4.1         1.3 versicolor
+## 90           5.5         2.5          4.0         1.3 versicolor
+## 91           5.5         2.6          4.4         1.2 versicolor
+## 92           6.1         3.0          4.6         1.4 versicolor
+## 93           5.8         2.6          4.0         1.2 versicolor
+## 94           5.0         2.3          3.3         1.0 versicolor
+## 95           5.6         2.7          4.2         1.3 versicolor
+## 96           5.7         3.0          4.2         1.2 versicolor
+## 97           5.7         2.9          4.2         1.3 versicolor
+## 98           6.2         2.9          4.3         1.3 versicolor
+## 99           5.1         2.5          3.0         1.1 versicolor
+## 100          5.7         2.8          4.1         1.3 versicolor
+## 101          6.3         3.3          6.0         2.5  virginica
+## 102          5.8         2.7          5.1         1.9  virginica
+## 103          7.1         3.0          5.9         2.1  virginica
+## 104          6.3         2.9          5.6         1.8  virginica
+## 105          6.5         3.0          5.8         2.2  virginica
+## 106          7.6         3.0          6.6         2.1  virginica
+## 107          4.9         2.5          4.5         1.7  virginica
+## 108          7.3         2.9          6.3         1.8  virginica
+## 109          6.7         2.5          5.8         1.8  virginica
+## 110          7.2         3.6          6.1         2.5  virginica
+## 111          6.5         3.2          5.1         2.0  virginica
+## 112          6.4         2.7          5.3         1.9  virginica
+## 113          6.8         3.0          5.5         2.1  virginica
+## 114          5.7         2.5          5.0         2.0  virginica
+## 115          5.8         2.8          5.1         2.4  virginica
+## 116          6.4         3.2          5.3         2.3  virginica
+## 117          6.5         3.0          5.5         1.8  virginica
+## 118          7.7         3.8          6.7         2.2  virginica
+## 119          7.7         2.6          6.9         2.3  virginica
+## 120          6.0         2.2          5.0         1.5  virginica
+## 121          6.9         3.2          5.7         2.3  virginica
+## 122          5.6         2.8          4.9         2.0  virginica
+## 123          7.7         2.8          6.7         2.0  virginica
+## 124          6.3         2.7          4.9         1.8  virginica
+## 125          6.7         3.3          5.7         2.1  virginica
+## 126          7.2         3.2          6.0         1.8  virginica
+## 127          6.2         2.8          4.8         1.8  virginica
+## 128          6.1         3.0          4.9         1.8  virginica
+## 129          6.4         2.8          5.6         2.1  virginica
+## 130          7.2         3.0          5.8         1.6  virginica
+## 131          7.4         2.8          6.1         1.9  virginica
+## 132          7.9         3.8          6.4         2.0  virginica
+## 133          6.4         2.8          5.6         2.2  virginica
+## 134          6.3         2.8          5.1         1.5  virginica
+## 135          6.1         2.6          5.6         1.4  virginica
+## 136          7.7         3.0          6.1         2.3  virginica
+## 137          6.3         3.4          5.6         2.4  virginica
+## 138          6.4         3.1          5.5         1.8  virginica
+## 139          6.0         3.0          4.8         1.8  virginica
+## 140          6.9         3.1          5.4         2.1  virginica
+## 141          6.7         3.1          5.6         2.4  virginica
+## 142          6.9         3.1          5.1         2.3  virginica
+## 143          5.8         2.7          5.1         1.9  virginica
+## 144          6.8         3.2          5.9         2.3  virginica
+## 145          6.7         3.3          5.7         2.5  virginica
+## 146          6.7         3.0          5.2         2.3  virginica
+## 147          6.3         2.5          5.0         1.9  virginica
+## 148          6.5         3.0          5.2         2.0  virginica
+## 149          6.2         3.4          5.4         2.3  virginica
+## 150          5.9         3.0          5.1         1.8  virginica
+
SD4 <- iris[, 1:4]
+pairs(SD4)
+

+
# Relationships between Sepal.Length and Petal.Length, Sepal.Length and Petal.Width, Petal.Length and Petal.Width are appropraiet to run correlations on.
+
    +

  1. Finally use the knitr function to generate an html document from your work. If you have time, try to change some of the output using different commands from the RMarkdown cheat sheet.

    2. +

  2. Commit, Push and Pull Request your work back to the main branch of the repository

    3. +
+ + + + +
+ + + + + + + + + + + + + + + From 11145d72a3e4e8ce83a1defad278a22956202e1a Mon Sep 17 00:00:00 2001 From: jzangela Date: Tue, 1 Oct 2019 14:54:17 -0400 Subject: [PATCH 2/2] Jingru Zhang's class-acticity-2 in Rmarkdown. --- class-activity-2.Rmd | 40 ++++++++++++++++++++++++++++------------ 1 file changed, 28 insertions(+), 12 deletions(-) diff --git a/class-activity-2.Rmd b/class-activity-2.Rmd index e547dd9..2693c8c 100644 --- a/class-activity-2.Rmd +++ b/class-activity-2.Rmd @@ -1,7 +1,7 @@ --- title: "intro to viz" -author: "Charles Lang" -date: "September 26, 2019" +author: "Jingru Zhang" +date: "September 30, 2019" output: html_document --- #Input @@ -17,7 +17,7 @@ D2 <- filter(D1, schoolyear == 20112012) ```{r} #Generate a histogramof the percentage of free/reduced lunch students (frl_percent) at each school -hist() +hist(D1$frl_percent) #Change the number of breaks to 100, do you get the same impression? @@ -80,14 +80,20 @@ pairs(D5) #pmax sets a maximum value, pmin sets a minimum value #round rounds numbers to whole number values #sample draws a random samples from the groups vector according to a uniform distribution - - + SD1 <- data.frame( + score = round(rnorm(pmin(100:1, 100), 75, 8)), + groups = sample(c("sport", "music", "nature", "literature"), + size = 4, replace = FALSE, prob = NULL)) +SD1 ``` 2. Using base R commands, draw a histogram of the scores. Change the breaks in your histogram until you think they best represent your data. ```{r} - +hist(SD1$score) +min(SD1$score) +max(SD1$score) +hist(SD1$score, breaks = c(50, 60, 70, 80, 90, 100)) ``` @@ -95,7 +101,10 @@ pairs(D5) ```{r} #cut() divides the range of scores into intervals and codes the values in scores according to which interval they fall. We use a vector called `letters` as the labels, `letters` is a vector made up of the letters of the alphabet. - +SD2 <- cut(SD1$score, breaks = c(50, 60, 70, 80, 90, 100), labels = letters[1:5]) +SD2 +SD3 <- as.data.frame(cbind(as.numeric(SD1$score), as.character(SD2))) +SD3 ``` 4. Now using the colorbrewer package (RColorBrewer; http://colorbrewer2.org/#type=sequential&scheme=BuGn&n=3) design a pallette and assign it to the groups in your data on the histogram. @@ -109,6 +118,9 @@ library(RColorBrewer) #Use named palette in histogram +display.brewer.all() +hist(SD1$score,col=brewer.pal(5,"BuGn")) + ``` @@ -116,20 +128,21 @@ library(RColorBrewer) ```{r} #Make a vector of the colors from RColorBrewer - +boxplot(SD1$score ~ SD1$groups,col=brewer.pal(4,"RdBu")) ``` 6. Now simulate a new variable that describes the number of logins that students made to the educational game. They should vary from 1-25. ```{r} - +set.seed(1) +(logins <- round(runif(100,min=1,max=25))) ``` 7. Plot the relationships between logins and scores. Give the plot a title and color the dots according to interest group. ```{r} - +plot(SD1$score, main="logins & scores", logins, type = "p", col=brewer.pal(4,"RdBu")) ``` @@ -137,14 +150,17 @@ library(RColorBrewer) 8. R contains several inbuilt data sets, one of these in called AirPassengers. Plot a line graph of the the airline passengers over time using this data set. ```{r} - +plot(AirPassengers,xlab="Date", ylab = "Passenger numbers (1000's)",main="Air Passenger numbers from 1949 to 1961") ``` 9. Using another inbuilt data set, iris, plot the relationships between all of the variables in the data set. Which of these relationships is it appropraiet to run a correlation on? ```{r} - +iris +SD4 <- iris[, 1:4] +pairs(SD4) +# Relationships between Sepal.Length and Petal.Length, Sepal.Length and Petal.Width, Petal.Length and Petal.Width are appropraiet to run correlations on. ``` 10. Finally use the knitr function to generate an html document from your work. If you have time, try to change some of the output using different commands from the RMarkdown cheat sheet.