标签: r-plotly

考虑以下 reprex 生成的图。请注意，ggplot 具有合理的图例，而在plotly 中，图例大量重复，每次相同类别（“制造商”）出现在每个方面时都会有一个条目。如何使情节图例更好地匹配 ggplot2 的图例？

library(plotly)
library(ggplot2)

p <- mpg %>% 
  ggplot(aes(year)) +
  geom_ribbon(aes(ymin=cty, ymax=hwy, fill = manufacturer), alpha=0.2) + 
  geom_line(aes(y = hwy, col=manufacturer))  +
  facet_wrap(~class)
p

plotly::ggplotly(p)

我想通过 R 绘制具有独立图例的图，同时尊重色阶。

这就是我所拥有的：

library(plotly)

X <- data.frame(xcoord = 1:6,
                ycoord = 1:6,
                score  = 1:6,
                gender = c("M", "M", "M", "F", "F", "F"),
                age = c("young", "old", "old", "old", "young", "young"))

plot_ly(data = X, x = ~xcoord, y = ~ycoord, split = ~interaction(age, gender),
        type = "scatter", mode = "markers",
        marker = list(color = ~score,
                      colorbar = list(len = .5, y = .3)))

这是结果：

正如您所看到的，颜色条混乱，两个类别纠缠在一起。

我需要为age（年轻与年老）和gender（男与女）分别提供图例，可以彼此独立地单击。这将是预期的结果：

编辑 1
这相当于ggplot2：

gg <- ggplot(X, aes(x …

我有一个我想要动画的仪表图（按照本教程），图的颜色根据当前值而变化。我还想要一个注释*，它显示仪表的当前值（我不希望在扇区中显示标准值）。

为了记录，我正在尝试使用plotly而不是c3::c3_gauge因为我希望最终将它plotly::subplot()与其他同时动画的情节一起嵌入。

我目前有以下几点：

library(plotly)
library(RColorBrewer)

riskToHex <- function(x) {
  x <- colorRamp(rev(brewer.pal(11, "RdYlBu")))(x / 100)
  rgb <- paste(x[,1], x[,2], x[,3], sep = ",")
  paste0("rgb(", rgb, ")")
}

dd <- data.frame(values = c(90, 60, 20))

dd <- dd %>%
  mutate(colors = riskToHex(dd$values),
         frame = seq.int(nrow(dd)))
dd <- merge(dd, data.frame(values = 200 - dd$values,
                           colors = "white",
                           frame = dd$frame),
            all = TRUE) %>%
  arrange(frame)

plot_ly() %>%
  add_pie(values = dd$values,
          frame = dd$frame,
          rotation …

我正在制作主成分的 3D 散点图（附图片）。尽管我使用的是aspectmode='cube'，但轴的大小不相等。

我创建了一个 MRE 来测试，在那个测试中，轴是相等的。所以，我很困惑。

axx <- list(
  gridcolor='rgb(255, 255, 255)',
  zerolinecolor='rgb(255, 255, 255)',
  showbackground=TRUE,
  backgroundcolor='rgb(230, 230,230)'
)

df = data.frame(
  X=rnorm(100, mean=-5, sd=2),
  Y=rnorm(100, mean=5, sd=5),
  Z=rnorm(100, mean=20, sd=10),
  color=sample(c('R','G'), 100, replace = T)
)

plot_ly(
  data=df, 
  x = ~X, 
  y = ~Y, 
  z = ~Z, 
  color=~color
  ) %>%
  add_markers(size=3) %>%
  # layout(autosize = F, width = 1000, height = 1000)
  layout(
    # autosize=F,
    # width=700,
    # height=700,
    aspectmode='cube',
    title = 'MiSeq-239 Principal Components',
    scene = …

我想创建一个交互式条形图，让用户可以根据一系列值过滤观察结果，然后动态呈现所选时间段内每个类的计数。由于过滤后的数据需要可用于许多这样的图表，我认为串扰和plotly/ggplot的组合可能会证明是有价值的。

我在下面附加了一个 reprex，它使用共享数据和来自串扰的过滤功能来允许动态过滤部分。当我编织文档时，只要选择了全部范围的值（默认值），条形图就会很好地呈现。

但是，绘图区域对于任何其他区域都为空，即。用户调整范围。

我到底错过了什么？我认为ggplotly()无法处理的完整共享数据集和过滤共享数据集之间一定存在差异。也许我可以遵循另一种方法来实现我的目标？

这是我的 .Rmd 文件的内容：

---
title: mpg class counts filtered by time period
output: html_document
---

```{r echo = FALSE, message = FALSE, warning = FALSE}
library(crosstalk)
library(plotly)

# Wrap data frame in SharedData
sd = SharedData$new(mpg)

# Create a filter input
filter_slider("Year", "Year", sd, column = ~ year, step = 1, width = 250)

# Render graph
bscols(
  ggplotly(
    ggplot(aes(x = class), data = sd) + 
      geom_bar() …

我有一个带有简单散点图（例如地图）的 Rmarkdown，我希望用户能够通过输入提供一些任意x坐标y，并将这些坐标绘制在图表上（在下面的示例中以红色显示）。问题是，我没有闪亮的服务器，所以我不能依赖这个选项。是否有一个实现，例如，通过 javascript 或其他东西？

这就是我所拥有的：

---
title: "Untitled"
output: html_document
---

```{r setup, include=FALSE}
library(ggplot2)
library(plotly)
```

```{r fig.height=4, fig.width=4}
X <- data.frame(x = 1:10, y = 1:10)
gg <- ggplot(X, aes(x, y)) + geom_point()
ggplotly(gg)
```

这就是我正在寻找的：

编辑
上面的例子是一个简化。实际上，网格是360x240，坐标只能是整数。

编辑2 @JohanRosa 已经通过完全在plotly.js 上重建绘图提供了一个很好的答案。然而，我的 ggplot 实际上相当复杂，而且我有很多。因此，将它们重建到plotly.js 对我来说是相当复杂的。这就是我正在寻找一种可以直接在我拥有的 ggplot(ly) 上工作的解决方案的原因。