htmlwidgets

I am building a Plotly plot based on a ggplot in R. I would like to increase the size of the text in the hover boxes. Suppose I have a scatterplot like this: library(plotly) library(ggplot2) d <- data.frame(a = sample(1:50, 30, T), b = sample(1:50, 30, T), col = factor(sample(1:3, 30, T))) gg <- ggplot() + geom_point(aes(x = a, y = b, color = col), data = d) p <– plotly_build(gg) p Is there a way to change the size of the hover text? Currently there seems to be no built-in way to pass additional attributes to define the hover appearance directly via plotly (see github issue #102 ). However, in

++++++++++++++++ Update: I think the answer to my question is that you can't put line breaks in. A colleague pointed out to me the node labels are SVG blocks, which don't support line breaks. ++++++++++++++++ How do I put a line break into the node labels for a sankey diagram produced using the networkD3 R package? Borrowing the example from Place text values to right of sankey diagram I can add values to the lables: library(networkD3) library(data.table) set.seed(1999) links <- data.table( src = rep(0:4, times=c(1,1,2,3,5)), target = sample(1:11, 12, TRUE), value = sample(100, 12) )[src <

I have a sankey plot created in networkD3 package. I would like to modify the colors and transparency of both nodes and links. My data networkD3_data is appended at the end. Question 1: How to modify node colors with user-defined palette? I am not sure how to modify the colors with user-defined palette. It is necessary for me to use the same color palette specific to each node source to keep consistent with other plots I have. Currently I am able to have each source node be a different color and all target nodes to be same color by defining the NodeGroup . The plot below is close to what I

This rmd file render ok to html, but the output is empty in shiny. Same problem with other htmlwidets like chartJSRadar file.rmd: --- title: "test" output: html_document --- ```{r} rpivotTable::rpivotTable(data.frame(a = c(1:10) ) , rows = 'a' ) ``` the htmlwidget is missing in this shiny app ui <- shinyUI( fluidPage( includeMarkdown('file.rmd') ) ) server <- function(input, output) { } shinyApp(ui, server) This question is related to this one Answering my own question. The code in includeMarkdown is not be executed by knitr. 来源： https://stackoverflow.com/questions/39171890/r-shiny

I am trying to create a simple forceNetwork , but the plot won't render. I keep getting the following warning: Warning message: It looks like Source/Target is not zero-indexed. This is required in JavaScript and so your plot may not render. How do I fix this? Note that simpleNetwork works fine so the problem seems to be in how I am specifying my data. library(igraph) library(networkD3) set.seed(42) temp<-data.frame(source=c(1,2,3,4),target=c(2,3,4,4))#csv[1:500,] links<-data.frame(source=temp$source,target=temp$target) g<-graph.data.frame(cbind(temp$source,temp$target), directed=T) nodes<-data

I've been trying to plot a network using networkD3 package in R for a week now. The simpleNetwork function works normally, but it doesn't allow much control over the appearance of the graph. The forceNetwork function is there for this purpose: display graph with enriched visual features. The problem I have is pretty much the same exposed in this question. I have carefully read the package documentation, and tried the solution proposed in the above thread, with no luck: all I get is a cloud of nodes with no edges linking them. Here my data.frame s: edg Gene1 Gene2 Prob 1 22 3 2 22 6 3 22 6 4 22

The networkd3 package contains some very nice functions for creating the obvious networks. Different functions have different arguments, so this questions is specifically in regards to the radialNetwork() function. Is it possible to have the color of the node stroke change according to a given vector? The below code creates a the network graph but changing the argument for the node stroke to a vector containing different colors does not work. library(networkD3) library(tidyverse) library(data.tree) ## Data input <- list(number=50) Data_tree <- data.frame(Start="Class", Asset = sample(c("FI",