ggplotly

    0热度

    1回答

    当我在ggplotly()中为具有大量构面组的闪亮应用程序执行facet_grid时,情节会混乱。但它在Shiny之外正常工作。 我该如何解决这个问题? 我怀疑它是连接到Y规模,但我找不到解决方案。 下面是基于diamonds example from plotly的可重复的示例。闪亮的 比较与非闪亮输出:Comparison of facet_grid outside and within Sh

    1热度

    1回答

    三维曲面图我有其由4个变量A,B,C,D,我需要绘制三维表面曲线为x = A,y = B,z = C的数据帧。我的问题是情节应该包含3 surfaces这是相对于D的值,即D具有值0,1和-1我需要有3个表面为D的3个不同的值。 我试了sub setting数据帧到3个不同的数据框相对于D的值和添加表面plot_ly函数,但它似乎并没有工作,我得到空白图。我不知道我是否正在使用正确的绘图功能。 下

    1热度

    1回答

    我想知道是否有办法有一个自定义图标plotly的饼图而不是通常的饼师 截至目前我正在显示用饼性别信息图表看起来如下: 我想使它看起来像下面链接中的性别情节: https://app.displayr.com/Dashboard?id=c1506180-fe64-4941-8d24-9ec4a54439af#page=3e133117-f3b2-488b-bc02-1c2619cf3914 的plo

    0热度

    2回答

    我想获得一条线,该线通过给定点并为指定的时间间隔内的值指定颜色。但我只能得到指定颜色的多行,而不是单行,这会改变其子区间的颜色。 的可重复的例子如下: require(ggplot2) require(plotly) vectX <- c(-5,-4.5,-3.2,-2.1,-0.8,0.1,1.3,2.7,3.6,4.4,5) vectY <- c(-2.3,1.4,2.7,0.3,-0

    0热度

    1回答

    给定绘图使用ggplot2绘制生成条形图。我想用ggplotly(p)创建一个类似的水平barplot。尝试使用geom_bar()中的属性coord_flip(),但没有帮助。请帮助我,谢谢。 library(plotly) dat <- data.frame( time = factor(c("Lunch","Dinner"), levels=c("Lunch","Dinner")), t

    1热度

    1回答

    以下是抽取点击事件的工作示例。我想问问你是否有办法更新点击点的大小或增加点亮等? library(shiny) library(plotly) ui <- fluidPage( plotlyOutput("plot"), verbatimTextOutput("click") ) server <- function(input, output, session) {

    1热度

    1回答

    我想改变下图中点击点的形状和大小。如何实现它?对于这个玩具情节,我已经将原始100k的点数减少到了2k。因此,预期解决方案应该具有高度可扩展性,并且不会偏离原始图,即点击点更新前后的所有颜色应该相同。 library(shiny) library(plotly) df <- data.frame(X=runif(2000,0,2), Y=runif(2000,0,20), T

    0热度

    1回答

    如何更改ggplotly的宽度和高度? 如果我们使用ggplot,它可以使用ggsave ggsave(filename = "foo300.png", ggplot(mtcars, aes(x=wt, y=mpg)) + geom_point(size=2, shape=23) + theme_bw(base_size = 10), width = 5, height

    2热度

    1回答

    说我有以下数据帧: ret <- rnorm(100, 0, 5) df <- data.frame( x = seq(1, 100, 1), ret = ret, y = 100 + cumsum(ret), col = c(ifelse(ret > 0, "red", "forestgreen"), NA)[-1] ) 这里我使用的是名为“RET”

    0热度

    1回答

    我正在Shiny中开发应用程序。我想使用提交按钮来渲染阴谋。如果用户选中输入框,我也想打印标签。我可以通过按钮渲染图。但是当复选框被选中时它不起作用。 下面是代码: library(shiny) library(plotly) ui <- fluidPage( actionButton('RUN', 'Run'), checkboxInput('PrintLab', 'Label', FA