My goals this week were to work through the data visualisation modules and attempt to insert equations.
I did not think I would be able to complete the data wrangling modules due to being inundated with work from my other courses too. I put it on my to-do list just in case though!
Inserting equations! The formula for the associative strength \(V\) at time \(t+1\) is given by: \[ V^{t+1} = V^{t} +\Delta V \]
where \(\Delta V\) is given by
\[ \Delta V = \alpha \beta (\lambda - V_{tot}) \]
I successfully created the plot with the data from the data visualisation modules. I changed the variables on the plot to have displ on the x axis and cty on the y axis. I also changed the colour of the dots according to the year of each car. Same like the module videos, I added a smooth curve.
# load the packages I need
library(tidyverse)
# draw the plot that I want
picture <- ggplot(
data = mpg,
mapping = aes(x = displ, y = cty)
) +
geom_point(mapping = aes(colour = factor(year))) +
geom_smooth()
# print the ggplot object
print(picture)
I did not have any difficulties inserting the equations. However, it took me an hour (yikes) to figure out how to insert the plot I made into RMarkdown.
I got a little lost throughout the last data visualisation video, as the level of coding seemed to get increasingly complicated.
My goals for next week are to complete the data wrangling module! I want to be more proficient in creating plots and make less errors. I would like to start the modules earlier in the week so I can dedicate more time to coding! I need to also prioritise my to-do list so I know when things are due and don’t rush to do things last minute.