使用 facet_wrap 和 scales =“free"绘制图表时出错巧妙地 [英] Error plotting chart with facet_wrap and scales = "free" in plotly

问题描述

我有一个包含各种类别(方面)的时间序列，我正在尝试使用 ggplot2 中的 facet_wrap 功能创建一个图表并将其上传到 情节.

I have a time series with various categories (facets), and I am trying to create a chart using the facet_wrap feature from ggplot2 and upload it on plotly.

如果我设置 scales = "fixed"，我没有问题:图表在我的计算机和 plotly 上看起来都很好.但是如果我设置 scales = "free"，如下面的代码，那么我电脑上的 ggplot2 看起来不错，但是 plotly 版本未正确显示(在我的计算机或网络上).

If I set scales = "fixed", I have no problem: the graph looks fine on my computer and on plotly. But if I set scales = "free", as in the code below, then the ggplot2 on my computer looks fine, but the plotly version is not showing up properly (either on my computer or the web).

这是一些示例代码；我为从 2000 年到 2015 年的 16 年期间的 12 个州创建了一些随机值，我想绘制这些值的时间序列，每个州都有自己的图表和唯一的 y 轴.

Here is some sample code; I create some random values for 12 states covering a 16-year period from 2000 to 2015, and I want to plot a time series of those values with each state having its own chart and unique y-axis.

library(ggplot2)
library(plotly)

set.seed(1) 
states = sample(state.name, 12) ## create random list of 12 states 

## create random data with values for state and by year 
dat <- data.frame(Year = rep(2000:2015, times = 12),
              State = rep(states, each = 16),
              Value = rnorm((12*16), mean = 5, sd = 2))

## plot data with facet_wrap for each state
p <- ggplot(dat, aes(Year, Value)) + geom_line() + 
    facet_wrap(~ State, ncol = 4, scales = "free")
p
ggplotly(p)

ggplot2 命令 (p) 按预期显示:

The ggplot2 command (p) shows up as expected:

但是 ggplotly(p) 被扭曲了:

据我所知，以前有一个关于这个主题的帖子，但没有解决:

As far as I can tell, there was a previous thread on this topic, but it was not resolved:

Plotly Facets 翻译不正确

我将不胜感激.

推荐答案

如果您对替代方案持开放态度，可以尝试使用原生 plotly 和 subplot.试试:

If you are open to an alternative, you could try with native plotly with subplot. Try:

dat$id <- as.integer(dat$State)
p <- plot_ly(dat, x = Year, y = Value, group = State,
             xaxis = paste0("x", id), marker=list(color="black"))
p <- layout(
    subplot(p, nrows=3, margin = 0.05),
    xaxis = list(title = "Arizona"),
    xaxis2 = list(title = "Connecticut"),
    xaxis3 = list(title = "Florida"),
    xaxis4 = list(title = "Georgia"),
    xaxis5 = list(title = "Indiana"),
    xaxis6 = list(title = "Maine"),
    xaxis7 = list(title = "Nebraska"),
    xaxis8 = list(title = "Nevada"),
    xaxis9 = list(title = "New Hampshire"),
    xaxis10 = list(title = "South Dakota"),
    xaxis11 = list(title = "Tennessee"),
    xaxis12 = list(title = "Texas"), 

    yaxis = list(title = "Value"),
    yaxis2 = list(title = ""),
    yaxis3 = list(title = ""),
    yaxis4 = list(title = ""),
    yaxis5 = list(title = "Value"),
    yaxis6 = list(title = ""),
    yaxis7 = list(title = ""),
    yaxis8 = list(title = ""),
    yaxis9 = list(title = "Value"),
    yaxis10 = list(title = ""),
    yaxis11 = list(title = ""),
    yaxis12 = list(title = ""), showlegend = FALSE)
p

这篇关于使用 facet_wrap 和 scales =“free"绘制图表时出错巧妙地的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！