Week1_Challenge_Niharika Pola

Loading Data and Creating a Network

Challenge Overview

This Challenge is to

1) Read a dataset, and

2) Create a network object

Loading the data

Read in one (or more) of the following data sets, using the correct R package and command.

- got_marriages.csv

- fish_encounters dataset (available in the `tidyr` package)

- got_like_dislike.csv

Code

library(readr)

Warning: package 'readr' was built under R version 4.2.3

Code

got_marriages <- read_csv("_data/got/got_marriages.csv")

Rows: 255 Columns: 5
── Column specification ────────────────────────────────────────────────────────
Delimiter: ","
chr (5): From, To, Type, Notes, Generation

ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

Code

head(got_marriages)

# A tibble: 6 × 5
  From      To      Type    Notes  Generation
  <chr>     <chr>   <chr>   <chr>  <chr>     
1 Targaryen Stark   Married R+L=J  Current   
2 Baratheon Martell Engaged died   Current   
3 Baratheon Stark   Engaged broken Current   
4 Martell   Essos   Married <NA>   Current   
5 Martell   Reach   Affair  <NA>   Current   
6 Martell   Essos   Affair  <NA>   Current   

Creating a network

Load the package `igraph` and create an `igraph` object (i.e. a graph or network) in the form of an edge list. The command may vary whether the data is given as a list of connections or an adjacency matrix. Is the network directed or undirected; weighted or unweighted; unimodal or bipartite? Can you plot it?

Code

library(igraph)

Warning: package 'igraph' was built under R version 4.2.3

Attaching package: 'igraph'

The following objects are masked from 'package:stats':

    decompose, spectrum

The following object is masked from 'package:base':

    union

Code

network.ig <- graph_from_data_frame(got_marriages, directed = TRUE)

# Check if the network is directed or undirected, weighted or unweighted, unimodal or bipartite
is_bipartite(network.ig)

[1] FALSE

Code

is_weighted(network.ig) 

[1] FALSE

Code

is_directed(network.ig) 

[1] TRUE

Code

plot(network.ig)