library(tidiverse)
sd <- read.csv("http://commres.net/wiki/_media/r/davis.women.club.csv")
head(sd)

g <- graph.data.frame(sd, directed=FALSE)
bipartite.mapping(g)

plot(g)

V(g)$color <- ifelse(V(g)$type, "lightblue", "salmon")
V(g)$shape <- ifelse(V(g)$type, "circle", "square")
E(g)$color <- "lightgray"
plot(g, vertex.label.cex = 1.2, vertex.label.color = "black")