Vaka Çalışmaları: R ile Ağ Analizi
Edmund Hart
Instructor
library(HiveR) library(igraph) # Rastgele grafik oluştur rand_g <- erdos.renyi.game(18, 0.3, "gnp", directed = TRUE) # Rastgele grafiği çiz plot(rand_g, vertex.size = 7)
# Hive plotlar için veri çerçevesine dönüştür ve ağırlık ekle rand_g_df <- as.data.frame(get.edgelist(rand_g)) rand_g_df$weight <- 1 # Hive nesnesine dönüştür rand_hive <- edge2HPD(edge_df = rand_g_df) # Her düğümün eksenini ve yarıçapını ayarla rand_hive$nodes$axis <- sort(rep(1:3, 6)) rand_hive$nodes$radius <- as.double(rep(1:6, 3))
# Hive plotlar için veri çerçevesine dönüştür ve ağırlık ekle rand_g_df <- as.data.frame(get.edgelist(rand_g)) rand_g_df$weight <- 1
# Hive nesnesine dönüştür rand_hive <- edge2HPD(edge_df = rand_g_df)
# Her düğümün eksenini ve yarıçapını ayarla rand_hive$nodes$axis <- sort(rep(1:3, 6)) rand_hive$nodes$radius <- as.double(rep(1:6, 3))
# Düğümler nasıl değişmiş, gör rand_hive$nodes
id lab axis radius size color 1 2 1 1 1 black 2 8 1 2 1 black 3 9 1 3 1 black 4 3 1 4 1 black 5 4 1 5 1 black 6 7 1 6 1 black 7 11 2 1 1 black 8 14 2 2 1 black 9 18 2 3 1 black
# Hive plotu gör plotHive(rand_hive, method = "abs", bkgnd = "white")
# Her düğümün konumunu ayarla rand_hive$nodes$axis <- sort(rep(1:3, 6)) rand_hive$nodes$radius <- as.double(rep(1:6, 3)) # Her kenara ağırlık ekle rand_hive$edges$weight <- as.double( rpois(length(rand_hive$edges$weight), 5) ) # Kenarın çıkışına göre renk ver rand_hive$edges$color[rand_hive$edges$id1 %in% 1:6] <- 'red' rand_hive$edges$color[rand_hive$edges$id1 %in% 7:12] <- 'blue' rand_hive$edges$color[rand_hive$edges$id1 %in% 13:18] <- 'green' # Çiz plotHive(rand_hive, method = "abs", bkgnd = "white")
# Her düğümün konumunu ayarla rand_hive$nodes$axis <- sort(rep(1:3, 6)) rand_hive$nodes$radius <- as.double(rep(1:6, 3))
# Her kenara ağırlık ekle rand_hive$edges$weight <- as.double( rpois(length(rand_hive$edges$weight), 5) ) # Kenarın çıkışına göre renk ver rand_hive$edges$color[rand_hive$edges$id1 %in% 1:6] <- 'red' rand_hive$edges$color[rand_hive$edges$id1 %in% 7:12] <- 'blue' rand_hive$edges$color[rand_hive$edges$id1 %in% 13:18] <- 'green'
# Çiz plotHive(rand_hive, method = "abs", bkgnd = "white")
# Rastgele grafik oluştur rand_g <- erdos.renyi.game(10, 0.3, "gnp", directed = FALSE) rand_g <- simplify(rand_g) # Düğümlere ad ver V(rand_g)$name <- LETTERS[1:length(V(rand_g))] # Biofabric grafiği oluştur biofbc <- bioFabric(rand_g) bioFabric_htmlwidget(biofbc)
# Rastgele grafik oluştur rand_g <- erdos.renyi.game(10, 0.3, "gnp", directed = FALSE) rand_g <- simplify(rand_g)
# Düğümlere ad ver V(rand_g)$name <- LETTERS[1:length(V(rand_g))]
# Biofabric grafiği oluştur biofbc <- bioFabric(rand_g) bioFabric_htmlwidget(biofbc)
Preparing Video For Download...
