rWidgets

1 Install & Load

devtools::install_github("rocalabern/rWidgets")

library(rWidgets)

2 Graph

2.1 Data

2.2 Examples

# IDs as labels
df <- data.frame(source=karate.data$fromID, target=karate.data$toID, 
                 weight=0.2*karate.data$weight)
d3.graph(df)

# Nombres as labels
df <- data.frame(source=karate.data$fromLabel, target=karate.data$toLabel,
                 weight=0.2*karate.data$weight)
d3.graph(df)

# IDs as labels, and Nombre as labels on mouseover
df <- data.frame(source=karate.data$fromID, target=karate.data$toID,
                 sourceLabel=karate.data$fromLabel, targetLabel=karate.data$toLabel,
                 weight=0.2*karate.data$weight)
d3.graph(df)

# IDs as labels, and Nombre as labels on mouseover
mapColor <- list()
mapColor[fc$names] <- fc$membership
df <- data.frame(source=karate.data$fromID, target=karate.data$toID,
                 sourceLabel=karate.data$fromLabel, targetLabel=karate.data$toLabel,
                 weight=0.2*karate.data$weight,
                 sourceColor=as.numeric(mapColor[as.character(karate.data$fromID)]), targetColor=as.numeric(mapColor[as.character(karate.data$toID)]))
d3.graph(df, colors=c("#FF6600","#3366FF","#ADD633"))

df <- data.frame(source=karate.data$fromLabel, target=karate.data$toLabel,
                 weight=0.2*karate.data$weight,
                 sourceColor=as.numeric(mapColor[as.character(karate.data$fromID)]), targetColor=as.numeric(mapColor[as.character(karate.data$toID)]))
d3.graph(df, colors=c("#FF6600","#3366FF","#ADD633"))

#  Otros parametros
library(data.table)
dt <- data.table(id=c(karate.data$fromID, karate.data$toID))
dt <- dt[, .N, by=id]
mapDegree <- list()
mapDegree[as.character(dt$id)] <- dt$N
df <- data.frame(source=karate.data$fromID, target=karate.data$toID,
                 sourceLabel=karate.data$fromLabel, targetLabel=karate.data$toLabel,
                 weight=0.2*karate.data$weight,
                 sourceSize=2+as.numeric(mapDegree[as.character(karate.data$fromID)]), targetSize=2+as.numeric(mapDegree[as.character(karate.data$toID)]))
d3.graph(df, colors="#FF0000", circleFillOpacity = 0.5, circleStroke = "red", circleStrokeWidth = 4)

3 Sankey

3.1 Data

3.2 Examples

d3.graphSankey(dfNodes, dfLinks)

4 Radar Plot

4.1 Data

4.2 Examples

d3.radarplot(df)

d3.radarplot(df[,-1], legendCol=NULL)

d3.radarplot(df, showLegend = FALSE)

d3.radarplot(df, showTitle = FALSE)

d3.radarplot(df, showTitle = TRUE, showLegend = FALSE)