Difference between revisions of "Congestion charge"

library(OpasnetUtils)
library(OpasnetUtilsExt)
#library(gsheet)
library(reshape2)
library(igraph)
oprint(google.point_kml)
oprint(google.show_kml_data_on_maps)

if(FALSE){
items <- gsheet2tbl("https://docs.google.com/spreadsheets/d/10EuSt-YonlHQyNELCAftSiZ72jAsPKhw5q5MqQhbY10/edit")[1:6]
relations <- gsheet2tbl("https://docs.google.com/spreadsheets/d/10EuSt-YonlHQyNELCAftSiZ72jAsPKhw5q5MqQhbY10/edit#gid=781892235")[1:8]
evaluations <- gsheet2tbl("https://docs.google.com/spreadsheets/d/10EuSt-YonlHQyNELCAftSiZ72jAsPKhw5q5MqQhbY10/edit#gid=1821973371")[1:8]

index <- rbind(
  cbind(items[c("ID", "Name")], Table = "items"),
  cbind(relations[c("ID", "Name")], Table = "relations"),
  cbind(evaluations[c("ID", "Name")], Table = "evaluations")
)
index <- melt(
  index,
  measure.vars = c("ID", "Name"),
  variable.name = "Column",
  value.name = "Identifier"
)
index <- index[!is.na(index$Identifier),]
if(anyDuplicated(index$Identifier)) {
  cat("Warning: The following names are duplicated:\n")
  oprint(index[index$Identifier %in% index$Identifier[duplicated(index$Identifier)],])
}
#colnames(items) <- paste(colnames(items), "I", sep="_")
#colnames(relations) <- paste(colnames(relations), "R", sep="_")
colnames(evaluations)[colnames(evaluations)=="Evaluation"] <- "Predicate"
relations <- rbind(relations, evaluations)
}
objects.latest("Op_fi5642", code_name = "preprocessing")

jy2 <- jy
for(i in 1:ncol(jy2)) jy2[[i]] <- as.character(jy2[[i]])
jy2 <- jy2[1:100,]
it <- data.frame(
  Name = c(jy2$Subjekti, jy2$Objekti),
  stringsAsFactors = TRUE
)
it <- it[!duplicated(it$Name) , , drop = FALSE]

jygraph <- graph.data.frame(
  jy2[c(1,3,2,4:ncol(jy2))], 
  directed = TRUE, 
  vertices = it
)

plo <- plot.igraph(jygraph, 
     vertex.label.cex = 0.8, 
     vertex.label = NA,
     vertex.size = 2, #V(jygraph)$vsize, 
     vertex.color = "Skyblue2",#V(jygraph)$vcolor, 
     vertex.shape = "circle",#V(jygraph)$vshape,
     vertex.frame.color = "Black",
     vertex.label.family = "Helvetica",
     edge.color = "Black",#E(jygraph)$ecolor,
     edge.width = 0.5, #E(jygraph)$ewidth,
     edge.arrow.size = 0.5,
     layout = layout.fruchterman.reingold
)
l <- layout.fruchterman.reingold(jygraph)
oprint(l)
######################################

#library(maptools)
#library(RgoogleMaps)