diff --git a/glasgow_r_201910.Rmd b/glasgow_r_201910.Rmd index aa82248..db9b1e0 100644 --- a/glasgow_r_201910.Rmd +++ b/glasgow_r_201910.Rmd @@ -20,33 +20,27 @@ knitr::opts_chunk$set(echo = FALSE) Ask actual people: ```{r, echo = FALSE} -data <- data.frame( +getting_stuck_data <- data.frame( from = "Ask people", - to = c("twitter.com", "rfordatasci.com", "stack-overflow", "biostars", -"github") + to = c( + "twitter.com", "rfordatasci.com", "stack-overflow", "biostars", + "github" + ) ) ``` ```{r, echo = FALSE} -p <- networkD3::simpleNetwork(data, height = "600px", width = "600px", - linkDistance = 100, opacity = 0.9, fontSize = 24, nodeColour = "#499382") +getting_stuck_plot <- networkD3::simpleNetwork( + getting_stuck_data, + height = "600px", width = "600px", + linkDistance = 100, opacity = 0.9, fontSize = 24, nodeColour = "#499382" +) ``` ```{r} -p +getting_stuck_plot ``` - - ## We all want to improve Learn new stuff: @@ -85,56 +79,15 @@ Recent contributions to bigger projects ## Let's do something for the community ... -[`tidygraph`](https://github.com/thomasp85/tidygraph) +Jumping Rivers `meetingsR` list: -[`ggraph`](https://github.com/thomasp85/ggraph) +Website: [https://jumpingrivers.github.io/meetingsR/](https://jumpingrivers.github.io/meetingsR/) -Example: network analysis with `tidygraph` and plotting with `ggraph` - ---- +GitHub: [https://github.com/jumpingrivers/meetingsR/](https://github.com/jumpingrivers/meetingsR) -```{r, echo = TRUE, message = FALSE} -library(tidygraph) -library(ggraph) +README: [.../blob/master/README.md](https://github.com/jumpingrivers/meetingsR/blob/master/README.md) -# `tidygraph` creates / analyses graph datastructures (nodes -# & edges) - -gr1 <- create_notable("bull") %>% - # .. `dplyr`-like syntax for modifying components - mutate(name = letters[1:5]) - -gr2 <- create_ring(5) %>% - mutate(name = letters[4:8]) -``` - ---- - -```{r, echo = TRUE, fig.height=4} -# `ggraph` uses `ggplot2`-like syntax for plotting graphs -gr1 %>% - bind_graphs(gr2) %>% - ggraph(layout = "kk") + - geom_edge_link() + - geom_node_point(size = 8, colour = "steelblue") + - geom_node_text(aes(label = name), colour = "white", vjust = 0.4) + - theme_graph() -``` - -Code from -[data-imaginist.com](data-imaginist.com/2017/introducing-tidygraph/) - -## How awesome was that? - -`awesome-R` - -- [website](https://awesome-r.com) - -- [github](https://github.com/qunwf/awesome-R) - -Network analysis section of the [awesome-R website](https://awesome-r.com/#awesome-r-network-analysis) - -## Adding to the awesome list using `git` +## `git` terminology FORK - Make me a copy of this repo(sitory) on github @@ -153,4 +106,20 @@ PUSH PULL REQUEST - Tell the author of this repo that they can include my changes -## Did the live section work? +## Live section: + +- Add "Glasgow R" to the `meetingsR` list using github + +- [European User's Groups](https://github.com/jumpingrivers/meetingsR/edit/master/02_useR_groups_europe.Rmd) + +## On Open Source Contributions + +_Not all contributions are code contributions [... or docs ...]_ + +... + +_Just helping people filter and curate and figure-out what is in a ticket_ +_and if it's really important... I can't tell you how useful this is_ + +Heather C Miller: Interviewed on [CoRecursive](https://corecursive.com/038-heather-miller-open-source/) +podcast (2019-09-15) \ No newline at end of file