如何在Shiny中下载Sankey plot
在Shiny中下载Sankey plot，您可以按照以下步骤进行操作：
- 首先，确保您已经安装了Shiny包和相关依赖包。您可以使用以下命令安装Shiny包：
install.packages("shiny")- 创建一个新的Shiny应用程序。您可以在RStudio中创建一个新的R文件，并将以下代码复制到文件中：
library(shiny)
ui <- fluidPage(
# 在这里添加您的Shiny UI组件
)
server <- function(input, output) {
# 在这里添加您的Shiny服务器逻辑
}
shinyApp(ui, server)- 在Shiny UI中添加一个下载按钮。您可以使用
downloadButton函数创建一个下载按钮，并将其放置在您希望的位置。例如：
ui <- fluidPage(
downloadButton("downloadPlot", "下载Sankey plot"),
# 其他Shiny UI组件
)- 在Shiny服务器逻辑中生成Sankey plot，并将其与下载按钮关联。您可以使用
renderPlot函数生成Sankey plot，并使用output$downloadPlot将其与下载按钮关联。例如：
server <- function(input, output) {
output$plot <- renderPlot({
# 在这里生成Sankey plot的代码
})
output$downloadPlot <- downloadHandler(
filename = "sankey_plot.png",
content = function(file) {
# 将Sankey plot保存为PNG文件
png(file)
plot(output$plot())
dev.off()
}
)
}请注意，上述代码中的# 在这里生成Sankey plot的代码部分应该由您根据具体需求编写。您可以使用任何适合您的Sankey plot生成方法。
- 运行Shiny应用程序。您可以在RStudio中点击"Run App"按钮来运行您的Shiny应用程序。然后，您将能够在应用程序中看到一个下载按钮。当您点击该按钮时，Sankey plot将以PNG格式下载到您的计算机中。
这是一个基本的示例，您可以根据自己的需求进行定制和扩展。希望对您有所帮助！
相关·内容
1回答
当我在一个常规的R会话中创建一个sankey图时，输出看起来是ok的。工具提示显示连接之间的箭头：
require(rCharts)
require(rjson)
links <- matrix(unlist(
rjson::fromJSON(
file = "http://bost.ocks.org/mike/sankey/energy.json"
)$links
),ncol = 3, byrow = TRUE)
nodes <- unlist(
rjson::fromJSON(
file = "http://bost.oc
浏览 0提问于2014-03-18得票数 2
1回答
我希望1)在shiney中实现rshiney图表，2)用r Markdown发布它。第一部分已成功完成，请参阅我的代码的简单版本：
library(googleVis)
library(shiny)
shinyApp(
ui <- fluidPage(
h3('Example for the Stackoverflow Community'),
htmlOutput('plot')
),
server <- function(input, output) {
output$plot <- renderGv
浏览 2提问于2017-01-12得票数 1
回答已采纳
形势：
我有一个基于that的sankey图，我想在我闪亮的应用程序中显示这些图表(见下面的代码)。
问题：
当我调用我的闪亮应用程序时，sankey图并不显示在闪亮的应用程序本身中，而是显示在浏览器的另一个选项卡窗口中。标签的地址是file:///C:/Users/Me/AppData/Local/Temp/RtmpcxIBRn/rCharts159410f110f8/index.html
问题：
如何更改代码，以便在闪亮的应用程序中打开sankey图，而不是在不同的浏览器选项卡中打开？
代码：
library(shiny)
library(ggplot2)
library(networkD
浏览 5提问于2018-02-06得票数 2
回答已采纳
下面的R闪亮脚本创建了一个sankey图表，如下面的快照所示。我的要求是，当我单击左右节点之间的任何链接(即"a1“和"a2”)时，我希望相应的"a3“的总和出现在标签中。对于插图，a1中的"A“和a2中的"E”一起具有50和32的值。所以，我想看到82在标签上点击链接时，请帮助和感谢。类似于所有其他的a1，a2对。下面的服务器代码中的list()函数需要进行一些调整。附加快照。
library(shiny)
library(shinydashboard)
library(plotly)
library(DT)
library(dplyr)
a1 = c
浏览 1提问于2018-01-24得票数 2
回答已采纳
1回答
请在下面运行R闪亮脚本，我将在这里附加两个屏幕，并在小部件的定位方面需要一些帮助：
屏幕1:
我希望增加selectInput小部件的宽度，使这些选项在KPI框中以相同的间距清晰可见。
我想要相同的宽度和高度的两个大的盒子，使它完全覆盖屏幕从左到右。
注意:框的左边框应该与selectInput小部件的左边框重合。
屏幕2: 1。请帮助移动第一个和第二个selectInput小部件，以及上面的kpi框，这样就可以像上面屏幕中所要求的那样增加框块的宽度。请帮帮忙。
## app.R ##
library(shiny)
library(shinydashboard)
浏览 2提问于2017-12-12得票数 3
回答已采纳
我有下面的shiny应用程序，我想知道如何使用downloadablePlot闪亮模块下载绘图。当我启动这个应用程序时，我得到了Error in visibleplot: could not find function "visibleplot"。它应该是通过shiny包加载的，并且没有显示该按钮。 library(shiny)
library(periscope)
ui <- fluidPage(
plotOutput("plot"),
downloadablePlotUI("object_id1",
浏览 18提问于2021-04-13得票数 0
如果您运行脚本，它会给您一个基本的桑基图表，在R和平缓，并提供一个数据表。另外，上面还有三个infoBoxes。当我单击绘图中的Sankey行时，我会使用plotly_click在数据表中看到值。我想要一个功能，当我点击任何桑基线，它在数据表中选择"pointNumber“列值，然后乘以2并放入第一个信息框，3在第二个信息框中，然后乘以4在第三个信息框中，如附图中所示。谢谢，请帮忙。
## app.R ##
library(shiny)
library(shinydashboard)
library(devtools)
library(ggplot2)
library(plotly)
浏览 1提问于2017-10-30得票数 0
回答已采纳
2回答
我正在尝试生成一个闪亮的应用程序，在这个应用程序中，使用NetworkD3生成的Sankey图动态生成x节点标签。我认为这需要向onRender传递一个反应性元素，但我不知道如何做到这一点。
我在这里看到了一个答案：，但这通过在onRender函数中调用.text("Step " + (i + 1));来解决动态命名问题。我的标签不太通用，所以我只能迭代和粘贴(下面的例子使用了简化的名称)。
下面是一个示例：
library('shiny')
library('tidyverse')
library('networkD3')
l
浏览 10提问于2022-02-11得票数 1
回答已采纳
我正在尝试创建一个sankey图，但是连接结果却是一团糟。这是我的数据：
#> A tibble: 61 x 3
#> # Groups: id_2 [55]
#> id_2 origin target
#> <int> <fct> <chr>
#> 1 4 Pendlerkort i app Rejsekort
浏览 7提问于2022-06-01得票数 2
回答已采纳
1回答
我正在使用networkD3库在Shiny中创建一个Sankey图。我需要改变一个节点的位置(旋转90d，然后下移)。为此，我使用js，如下面的小示例所示。但是，在更改节点之后，我需要更新链接，而我不知道该如何做。
library(shiny)
library(networkD3)
library(htmlwidgets)
library(tibble)
library(dplyr)
library(ggplot2)
library(ggforce)
ui <- fluidPage(
fluidRow(sankeyNetworkOutput("plot"))
)
浏览 29提问于2021-02-16得票数 3
1回答
如果您在下面运行R闪亮脚本，我们在仪表板中得到两个框，左边框有条形图，右边有DT表，当我使用event_data("plotly_click")单击图表的任何栏时，我希望相应的员工显示在表中，另外，当单击第一个栏时，除了在表中显示"r1“外，还应该显示”r1“。我尝试执行"user_cases$base1[d3]“，但它抛出一个错误为" error :无效下标类型'list'”。我会附上快照作为参考，请帮助我做同样的。
## app.R ##
library(shiny)
library(shinydashboard)
library(g
浏览 0提问于2017-12-12得票数 0
回答已采纳
我试图在一个闪亮的应用程序中包含一个感光图(networkD3)和一个暴晒图(sunburstR)，但当我将它们放在一起时，我发现它们不起作用。但是，我没有看到任何错误，但是只显示了Sankey图。有没有人有过同样的经历？
我非常感谢你能提供的任何帮助。
以下是R代码：
library(shiny)
library(shinydashboard)
library(lubridate)
library(dplyr)
library(tidyr)
library("sunburstR")
library("D3partitionR")
library("ne
浏览 0提问于2017-04-24得票数 1
1回答
我想创建一个闪亮的绘图，然后用户可以下载为pdf使用自定义字体指定为用户输入。
具体地说，我想使用一个pdf函数，比如pdf("plot.pdf", width = 5, height = 5, family = font.family)，其中font.family的值由用户指定。
下面是一个简单的例子:如果我在我的机器上运行这个例子，它工作得很好。但是，当它托管在RStudio shiny服务器上时，我收到一个错误，说找不到指定的字体系列。我认为问题在于我想要的字体在RStudio shiny服务器上是不可访问的，但是有没有方法可以包含它们呢？
server.R
shinyS
浏览 0提问于2015-01-20得票数 1
2回答
请运行下面的R闪亮脚本，我需要帮助移动两个selectInputs略高于他们目前的位置。目前，selectInput下拉列表还不清楚。我试过用填充物但没用。附加快照以供参考。帮帮忙吧。
## app.R ##
library(shiny)
library(shinydashboard)
library(plotly)
ui <- dashboardPage(
dashboardHeader(title = "first Chart"),
dashboardSidebar(
width = 0),
dashboardBody(
box(
splitLayout(
浏览 0提问于2018-02-15得票数 2
回答已采纳
我试图在散点图旁边绘制一个Sankey图，但是由于某种原因，plotly::subplot没有正确地呈现图表，我无法在图表之间得到任何空间。有人能告诉我我做错了什么吗？
library(plotly)
plot_sankey <- plot_ly(
type = "sankey",
orientation = "h",
node = list(
label = c("A1", "A2", "B1", "B2", "C1", "C2&#
浏览 4提问于2022-04-13得票数 1
回答已采纳
我正在尝试通过networkD3示例在R中创建一个闪亮的应用程序。我的代码附在底部。
我从那拿到了代码。
当我尝试运行此命令时，收到以下错误消息：
Error in shinyServer(function(input, output) { :
argument "output" is missing, with no default
问:我如何修复代码以使其正常工作？
library(shiny)
library(networkD3)
data(MisLinks)
data(MisNodes)
shinyUI(fluidPage(
titlePanel("
浏览 5提问于2018-02-10得票数 1
回答已采纳
我正在开发一个闪亮的应用程序，其中包括一个交互式的Sankey图表。我的困惑是这样的:我更喜欢用g冲积包生成的地块的美观性(特别是通过某种因素轻松着色链接的能力)，但它本机不支持工具提示，用户在单击或悬停时可以看到有关链接或节点的详细信息(如networkd3或googleVis Sankey图中的那样)。实际上，它不支持geom_alluvium和geom_stratum，因此ggplotly()在这种情况下似乎不是一个选项。
我基本上没有JavaScript的经验，所以如果这个问题过于模糊和开放，我很抱歉。我想知道什么是必要的，使工具提示在冲积图上闪闪发亮。
具体来说，下面是一个闪亮应用程
浏览 3提问于2020-10-22得票数 2
回答已采纳
我试图绘制一个sankey图表，并遇到这样的问题:我无法绘制顺序相同的节点交互。例如，我有sankey_df：
user |date |Source | Target | Price
1 |01-01-2022 |A | B | 10
1 |02-01-2022 |A | B | 15
这是我绘制它的方式，但是它没有呈现(因为我有相同的源/目标连接。
product_list = list(set(sankey['target']))+list(set(sankey['source&
浏览 4提问于2022-07-03得票数 0
我正在用ggalluvial做一个三键图。
这是我的数据集
library(ggsankey)
library(tidyverse)
df <-
mtcars %>%
make_long(cyl, vs, am, gear, carb) %>%
mutate(color = c(rep("red", 80), rep("blue", 80)))
您可以获得这样的Sankey图：
df %>%
ggplot(aes(x = x,
next_x = next_x,
浏览 9提问于2021-12-08得票数 0
回答已采纳
我正在尝试从一个闪亮的应用程序下载一张图片，这张图片是由DiagrammeR对象生成的。 代码如下： # Load packages
library(shinythemes)
library(DiagrammeR)
library(data.tree)
library(plotly)
library(shiny)
# Load data
data(acme)
# Define UI
ui <- fluidPage(theme = shinytheme("lumen"),
titlePanel("Paula trying II&
浏览 29提问于2020-06-19得票数 0
回答已采纳
下面有一个shiny应用程序，我想知道如何使用downloadablePlot闪亮模块下载一个绘图。当我启动这个应用程序时，整个应用程序都崩溃了。
library(shiny)
library(periscope)
ui <- fluidPage(
plotOutput("plot"),
downloadablePlotUI("object_id1",
downloadtypes = c("png", "csv"),
downlo
浏览 4提问于2021-04-12得票数 0
回答已采纳
我有一组HTML文件，我想通过iframe循环一遍，而且我不太确定如何设置javascript，因为我对它几乎没有经验。下面是我试图让这件事发挥作用的尝试：
<!DOCTYPE HTML>
<html>
<head>
<meta charset = 'utf-8'>
<title>Sankey Plot Test</title>
<script type="text/javascript" src="http://code.jquery.com/jq
浏览 0提问于2015-10-29得票数 1
回答已采纳
1回答
我是相当新的闪亮的应用程序，我希望下载的情节作为png/pdf文件。在在线发布应用程序之后，下载的文件名是正确的，但它是一个空文件。我在downloadHandler的内容中应用了打印功能，但它似乎是可行的。有人能帮我吗？谢谢
ui.r
library(shiny)
ui <- fluidPage(
titlePanel("My First Shiny Project"),
sidebarLayout(
sidebarPanel(
selectInput("select","Choose a Data
浏览 1提问于2018-05-23得票数 2
回答已采纳
我通过reactive返回一个分组的绘图对象，并希望交替渲染超链接和绘图。 我试着制作一个带有交替标签的标记表 #UI Snippet
mainPanel(uiOutput("plots"))
#Server Snippet
plots2 <- data.test.consecutive.filter %>%
group_by(SupplierKey, MaterialKey, TareRange,URL) %>%
arrange (SupplierKey, MaterialKey, TareRange, ShipmentD
浏览 33提问于2019-09-12得票数 1
我正在尝试创建一个闪亮的应用程序。
我希望它从网络下载一个CSV文件，并将其存储在本地机器上，然后执行分析。
我目前的做法是：
ui.R
library(shiny)
shinyUI(pageWithSidebar(
# Application title
headerPanel("TEST"),
sidebarPanel(
sliderInput("range", "Date Range:",
min = 0, max = 15, value = c(0,15))
),
# S
浏览 2提问于2014-02-21得票数 0
回答已采纳
作为对象，我在火狐中使用sankeyNetwork()时得到了一个非常小的图形，而不是在Chrome或RStudio中使用。
我没有在脚本中包含任何CSS或JS -下面的代码为我生成了这个结果。
我错过了什么CSS属性吗？
我使用的是R3.4.1，闪亮的1.1.0，networkD3 0.4和Firefox52.9.0。
Firefox：
铬：
library(shiny)
library(magrittr)
library(shinydashboard)
library(networkD3)
labels = as.character(1:9)
ui <- tagList
浏览 7提问于2018-07-03得票数 8
回答已采纳
1回答
我正在尝试使用R构建交互式多层次的sankey图，我无法找到如何将这些级别分配给节点的解决方案。例如，a1节点应该位于图表的第二层，而不是在第五层。包似乎将最右边的位置分配给链中的最后一个节点，这在我的情况下是不可取的。
我尝试过不同的包，如echarts4r、networkD3、ggvis，但是这些包似乎没有提供管理图形级别的功能。
如果你知道如何解决这个问题，请分享。
library('networkD3')
library('echarts4r')
library('googleVis')
sankey <- data.fra
浏览 12提问于2020-03-11得票数 1
回答已采纳
2回答
我似乎无法让闪亮的downloadButton与runtime: shiny一起在精简文档中工作。这里有一个与我所做的类似的例子。
---
title: "R Document"
runtime: shiny
---
```{r, echo = FALSE}
numericInput("SS", "Selecr SS", min = 1, max = 100, value = 1)
RandomSample <- reactive({
data.frame(X = rnorm(100), Y = rnorm(100)
浏览 4提问于2017-03-17得票数 4
回答已采纳
我正在尝试动态构建一个html文件，其中一个变量将取决于目录中与模式匹配的文件数量。以下是代码：
html <- '
<!DOCTYPE HTML>
<html>
<head>
<meta charset = "utf-8">
<title>Sankey Plot Test</title>
<script type = "text/javascript" src = "http://code.jquery.com/jquery-late
浏览 1提问于2015-11-05得票数 0
回答已采纳
我想使用wordcloud和wordcloud2包创建几个字云。我可以为wordcloud包创建的wordcloud创建一个下载，但是一旦呈现一个wordcloud2-wordcloud，下载按钮就会中断(只允许下载.html而不是.png)。
我添加了一个例子来再现它：
library("shiny")
library("wordcloud")
library("wordcloud2")
library("tm")
ui <- fluidPage(plotOutput("plot1"), download
浏览 5提问于2020-02-04得票数 1
回答已采纳
1回答
我正在运行下面的代码在RStudio，并希望创建sankey图表与巧妙。代码运行时没有错误。但是没有显示sankey图表。这里怎么了？
library("plotly")
a = read.csv('cleanSankey.csv', header=TRUE, sep=',')
node_names <- unique(c(as.character(a$source), as.character(a$target)))
nodes <- data.frame(name = node_names)
links <- data.fr
浏览 5提问于2022-02-09得票数 3
回答已采纳
如何在R googleVis三键图中改变节点和链接的颜色？以及具有与其起始节点相同颜色的链接？
library(googleVis)
datSK <- data.frame(From=c(rep("A",3), rep("B", 3)),
To=c(rep(c("X", "Y", "Z"),2)),
Weight=c(5,7,6,2,9,4))
Sankey <- gvisSankey(datSK, from="From"
浏览 8提问于2015-03-31得票数 7
回答已采纳
1回答
在光亮中保存PNG地块
、、、
我正试着下载一个不显眼的文件。我可以看到应用程序中的情节，但当我单击UI中的plotDownload按钮时，它会下载一个空的png文件。有人能知道我做错了什么？？
server.R
library(shiny)
shinyServer(
function(input, output) {
plotInput <- reactive({
plot(rnorm(sample(100:1000,1)))
})
output$pngPlot <- renderPlot({ plotInput() })
outpu
浏览 2提问于2015-04-17得票数 0
回答已采纳
我设法绘制了一个sankey图，如下所示，col1包含ids
set.seed(1000)
df <- data.frame(col1= sample(c(1:15), 15, replace = F),
col2=sample(c("aa", "bb","cc"), 15, replace=TRUE),
col3=sample(c('a','b','c','d'), 15, replace=TRUE, prob=c(0.25, 0.25, 0.20, 0.30)))
grp
浏览 0提问于2016-06-12得票数 1
2回答
我正在编写闪亮的应用程序，这些应用程序以对象(主要是照片或数字矩阵)为对象，并绘制一组图来探索这个对象。我希望将这个闪亮的应用程序设置为一个函数，这样我就可以从命令行调用它，并将感兴趣的对象直接传递给它。我希望能够在图形标题中返回对象的名称，等等。我可以在闪闪发亮的应用程序之外使用替代()来实现这一点，但是当我将它放到闪亮的应用程序中时，它会返回闪亮函数的“作用域中”对象的名称，而不是传递给闪亮函数的objet的名称。
根据建议，我使用styler来改进代码的样式：
#this puts Children in the title of the graph which is what
浏览 8提问于2022-11-19得票数 0
1回答
狡猾的图
、、、
我正在尝试在python中创建一个Sankey图。这个想法是为了在month.This上显示每个主题月大小的变化，这是我的熊猫样本DataFrame。有更多的主题，而且每个主题都有更多的月份和年份。这就使得数据仓库很高了。
df
year month Topic Document_Size
0 2022 1 0.0 63
1 2022 1 1.0 120
2 2022 1 2.0 106
3 2022 2
浏览 21提问于2022-09-18得票数 1
回答已采纳
2回答
R中html小部件之间的交互
、、、、
我正在开发一个R闪亮的应用程序，它使用了几个html小部件，特别是networkD3、d3heatmap和chorddiag。
这些小部件分别正常工作。但是，在相同的页面中使用它们时，会留下一个空白，而这正是它们应该在的位置。
下面是一个可重复的代码，它显示了这个bug。用户界面中的评论情节行，你会看到情节的出现和消失。
我非常感谢你的帮助！
# libraries
library(shiny)
library(d3heatmap)
library(chorddiag)
library(networkD3)
# Server
server <- function(input, outp
浏览 6提问于2017-09-18得票数 6
我想将节点计数添加到Plotly Sankey图(https://plot.ly/python/sankey-diagram/)中的每个节点，以使其看起来像红色箭头引用的计数。 ? 这个是可能的吗？我在plotly中找不到这样的例子。上面提供的示例来自R (https://github.com/fbreitwieser/sankeyD3/blob/master/README.md)中的一个库，但我使用的是Python语言。 下面是我的代码。 import plotly.graph_objects as go
import pandas as pd
def plot_sankey(df,
浏览 22提问于2020-01-30得票数 2
1回答
我想使用ggplot2创建一个sankey图，并使用ggplotly进行调用。我需要一些有一些关键链接的好的工作示例。我已经在情节中实现了一个，这是我实现的快照。请帮帮忙，谢谢。
编辑脚本：
library(googleVis)
datSK <- data.frame(From=c(rep("r1","r2","r3","r4","r5","r6","r7")),
To=c(rep(c("Blood Test", "Check
浏览 0提问于2017-10-11得票数 3
我想知道我们是否可以在gVissankey图上显示值。
例如，下面的代码
datSK <- data.frame(From=c(rep("A",3), rep("B", 3)),
To=c(rep(c("X", "Y", "Z"),2)),
Weight=c(5,7,6,2,9,4))
Sankey <- gvisSankey(datSK, from="From", to="To",
w
浏览 6提问于2015-07-01得票数 1
1回答
我有一个shiny应用程序，我想通过一个按钮下载一个文件。因此，我可以通过调用downloadHandler来完成此操作，如下所示：
output$downloadData <- downloadHandler(
filename = "plot1.png",
content = function(file) {
plotPNG(func = function(){
plot(some.Data)
},
filename = file,
width = 3000,
浏览 3提问于2018-09-18得票数 0
我有一个简单的，闪亮的应用程序，在下面我打开浏览器。这是必不可少的。然后，我通过巧妙地提供的下载图标下载这个图，但是我想知道，在默认情况下，我是否可以设置所下载的文件名，而不是默认设置的文件名"newplot“。
library(shiny)
library(plotly)
ui <- fluidPage(
plotlyOutput("plot"),
verbatimTextOutput("event")
)
server <- function(input, output) {
# renderPlotly() also
浏览 1提问于2018-11-07得票数 2
回答已采纳
1回答
默认的sankey图表具有灰色和透明的链接，以便您可以看到重叠的链接。我正在尝试为下面的示例Sankey图表中的链接添加颜色；有没有一种方法可以使链接部分透明，以便我可以看到重叠的链接？
p <- plot_ly(
type = "sankey",
orientation = "h",
node = list(
label = c("A1", "A2", "B1", "B2", "C1", "C2"),
color = c("
浏览 7提问于2018-08-04得票数 1
在下面的示例中，R对象fit是在shiny::renderPrint中创建的，而不是在renderPlot中创建的。因此，绘图是为print()完成的，而不是plot()。在实际阶段，fit是rstan:sampling()生成的一个合适的模型对象，它需要很长的时间，所以我不会在renderPrint和renderPlot中执行两次。有什么想法吗？我是闪闪发亮的初学者。
library(shiny)
ui <- fluidPage(
mainPanel(
shiny::sliderInput("aaa",
浏览 0提问于2019-07-05得票数 0
回答已采纳
1回答
我正在使用巧妙的方式创建一个sankey图，并且有一个内置的方法来使用'group‘来组合节点。但是，当我使用它时，这个节点的颜色将是黑色的，没有标签显示。这是预期的，因为分组节点的颜色可能会有所不同。但是，我不知道如何设置这个组的颜色。标签也是如此。有什么方法来定义这个吗？
示例代码：
import plotly.graph_objs as go
from plotly.offline import plot
value = [3,5,2,4,6]
source = [0,0,1,0,3]
target = [1,4,2,3,4]
color = ["blue",&
浏览 3提问于2019-04-26得票数 2
1回答
sankey图有节点限制吗？我正在尝试创建一个包含大量节点的图，但以下代码无法生成图(但没有给出错误警告)。
知道这里发生了什么吗？
# sankey chart using d3 plugin for rCharts and the igraph library
require(rCharts)
require(igraph)
# these are our vertices/nodes/end points/stages/categories/classes/whatever
nodes = c(1:36)
# the chart is basically a graph
pair
浏览 2提问于2014-10-24得票数 0
当我在modalDialog和sankeyNetwork (networkD3)中使用时，我遇到了问题。如果sankeyNetwork是在应用程序中呈现的，那么modalDialog就不会出现--我只能看到灰色屏幕，但没有对话框窗口。
应用程序示例显示下面描述的问题。
library(shiny)
library(networkD3)
server <- function(input, output, session) {
observeEvent(input$show_modal,{
showModal(modalDialog(
title = NULL
浏览 0提问于2018-05-19得票数 1
回答已采纳
我使用networkD3包在R中创建了一个Sankey图，我想将其保存为静态映像，使用代码而不是单击'Export‘--> 'Save .’。
我尝试过的当前代码(以 Sankey图为例)如下：
library(networkD3)
URL <- paste0(
"https://cdn.rawgit.com/christophergandrud/networkD3/",
"master/JSONdata/energy.json")
Energy <- jsonlite::fromJSON(URL)
# Plot
jp
浏览 6提问于2017-05-08得票数 7
回答已采纳
1回答
我在shiny上使用了下面的代码。我希望能够下载表格和曲线图
代码本身工作得很好，但在弄清楚如何下载表格和绘图时遇到了麻烦。
library(shiny)
library(ggplot2)
ui <- pageWithSidebar(
headerPanel("Example"),
sidebarPanel(
radioButtons("color", "Pick Color", c("Pink", "Green", "Blue")),
se
浏览 11提问于2019-07-20得票数 1
回答已采纳
1回答
在下面的shiny应用程序中，plotly包用于创建交互式相关热图。单击单个瓷砖时，将显示相应的散点图。然后，您可以通过单击download plot as png下载各个散列器。但是，是否有一种方法可以一次下载所有可能的散点图，而不必单击每个单独的瓷砖并保存每个单独的呢？谢谢
library(plotly)
library(shiny)
# compute a correlation matrix
correlation <- round(cor(mtcars), 3)
nms <- names(mtcars)
ui <- fluidPage(
mainPanel(
浏览 1提问于2018-05-11得票数 5
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
云直播活动推荐
腾讯云开发者
