soc.sna/identify_gender.R at master · antongrau/soc.sna · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
#############################################
### Find køn
setwd("~/Dropbox/R/soc.sna/")
load("names_gender")
rel         <- read.csv("Relation_BIQ_top.csv", sep="|", encoding="UTF-8")
navne <- as.character(rel$NAVN)

find.køn <- function(navne, names.gender=names.gender){
  n.list <- strsplit(navne, " ")
  fornavne <- vector(length=length(navne))
  for (i in 1:length(fornavne)){
    fornavne[i] <- n.list[[i]][1]
  }
  fornavne <- toupper(fornavne)

  ng <- names.gender[names.gender$Navn %in% fornavne,]

  køn   <- vector(length=length(navne))
  for (i in 1:length(navne)){
    n <- fornavne[i]
    køn.navn <- as.numeric(ng[match(n, ng$Navn),][5])
    køn[i]     <- køn.navn
  }
  b <- c(0, 0.2, 0.8, 1)
  kategori <- cut(køn, b, include.lowest=TRUE, labels=c("Kvinde", "Binominal", "Mand"))
  return(kategori)
}


system.time(kan <- find.køn(navne, names.gender))
rel$køn <- kan

save(rel ,file="rel.gender")
load("rel.gender")

##### køn i netværk

load("inderkredsen")

source("soc.sna.R")
library(igraph)
library(ggplot2)

in.navne <- V(net.inderkreds)$name
in.køn   <- find.køn(in.navne, names.gender)
table(in.køn)
in.navne[in.køn=="Kvinde"]

gplot(net.inderkreds, vertex.fill=in.køn, text.alpha=0, edge.alpha=0.1)

load("~/My Dropbox/R/interlocks/net.ind")


ind.navn <- V(net.ind)$name
ind.køn  <- find.køn(ind.navn, names.gender)
table(ind.køn)
prop.table(table(ind.køn))

gplot(net.ind, vertex.fill=in.køn, text.alpha=0, edge.alpha=0.1)

network.by.variable(net.ind, ind.køn)