Skip to content

Commit

Permalink
Merge pull request #5 from russHyde/replace_tidygraph_with_meetingsr
Browse files Browse the repository at this point in the history
replace the tidygraph section with putting R-Glasgow onto meetingsR w…
  • Loading branch information
russHyde committed Oct 7, 2019
2 parents 9594871 + ac5e578 commit a3fd7c5
Showing 1 changed file with 33 additions and 64 deletions.
97 changes: 33 additions & 64 deletions glasgow_r_201910.Rmd
Expand Up @@ -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
```

<!--
- [twitter #rstats](https://twitter.com/search?q=%23rstats&src=typed_query&f=live)
- [rfordatasci.com](https://www.rfordatasci.com/) // join the slack !
- stack overflow / biostars
- [github.com](https://www.github.com)
-->

## We all want to improve

Learn new stuff:
Expand Down Expand Up @@ -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
Expand All @@ -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)

0 comments on commit a3fd7c5

Please sign in to comment.