fluent迹线太密了怎么办

Posted 2023-04-21

参考技术A 工具栏调整。
1、首先在tecplot主页直接确定需要绘制的面。
2、其次调出对话框设置相关的参数并选择OK。3、接着通过工具栏单击streamline命令。4、最后获得相应结果操作完成 参考技术B 1、首先在tecplot主页直接确定需要绘制的面。
2、其次调出对话框设置相关的参数并选择OK。3、接着通过工具栏单击streamline命令。4、最后获得相应结果操作完成

提供双轴时缺少数据 - 多条迹线到子图

【中文标题】提供双轴时缺少数据 - 多条迹线到子图

【英文标题】：Missing data when Supplying a Dual-axis--Multiple-traces to subplot

【发布时间】：2019-08-10 14:21:45

【问题描述】：

^{问题底部提供数据。}

我正在尝试将subplot 与plotly 对象一起使用，其中一个对象中有多个系列。当我使用subplot 时，第一张图中的一个系列不会出现在最终产品中。看下面的代码：

library(plotly)
library(dplyr)

sec_y <- list(tickfont = list(color = "red"),
              overlaying = "y",
              side = "right",
              title = "Lft")


pp1 <- fmean1 %>% group_by(grp) %>%  plot_ly() %>%
  add_lines(x = ~hour, y = ~fmgd, name = "FMGD", colour = "blue") %>%
  add_lines(x = ~hour, y = ~lft, name = "Lft", yaxis = "y2", colour = "red") %>%
     layout(title = "Fbay", yaxis2 = sec_y,
            xaxis = list(title="Date"))



pp2 <- prcpf1 %>% plot_ly() %>%
  add_bars(x=~Datetime, y=~precip, name = "prcp")



subplot(pp1, pp2, nrows = 2 , shareX = T)

这是我从subplot 得到的，只绘制了FMGD：

虽然上面的图应该如下所示：

问题：这是subplot 中的错误还是我遗漏了什么？

数据：

fmean1 <- structure(list(hour = structure(1:11, .Label = c("2018-04-15 
18:00:00",  "2018-04-15 19:00:00", "2018-04-15 20:00:00", "2018-04-15 21:00:00", 
"2018-04-15 22:00:00", "2018-04-15 23:00:00", "2018-04-16 00:00:00", 
"2018-04-16 01:00:00", "2018-04-16 02:00:00", "2018-04-16 03:00:00", 
"2018-04-16 04:00:00"), class = "factor"), fmgd = c(249.67262, 
278.45789, 349.241726666667, 351.883898333333, 369.18035, 406.85811, 
406.233883333333, 393.751951666667, 390.004548333333, 403.980246666667, 
449.06727), lft = c(84.7313333333333, 85.1555, 85.8243333333333, 
87.7796666666667, 88.8493333333333, 88.1606666666667, 87.1883333333333, 
86.2645, 85.9258333333333, 86.3718333333333, 86.4433333333333
), grp = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L)), 
row.names = 91:101, class = "data.frame")

^.

prcpf1 <- structure(list(Datetime = structure(c(1523815200, 1523818800, 
1523822400, 1523826000, 1523829600, 1523833200, 1523836800, 1523840400, 
1523844000, 1523847600, 1523851200), class = c("POSIXct", "POSIXt"
), tzone = "UTC"), precip = c(0.11, 0.09, 0.06, 0.09, 0.03, 0.04, 
0.02, 0.14, 0.07, 0.15, 0.26)), row.names = c(NA, -11L), class = c("tbl_df", 
"tbl", "data.frame"))

【问题讨论】：

This seems like a bug。此外，您的第二个数据框不包含 Datetime 和 precip 列。

更新： 发布了正确的数据，并提供了基于链接的答案。感谢@Croote

【参考方案1】：

看看这个issue on github，原来是plotly中的bug。

参考上面的链接，我们需要做的是明确定义所有图的 y 轴，所有轴。在我的示例中查看下面的实现：

## Creating axis layouts, explicitly for all y axes
L_Axis <- list(tickfont = list(color = "red"), overlaying = "y",
               side = "right", title = "Lft")

F_Axis <- list(side = "left", title = "fmgd")

P_Axis <- list(side = "left", title = "prcp")


pp1 <- fmean1 %>% group_by(grp) %>%  plot_ly() %>%
  add_lines(x = ~hour, y = ~fmgd, name = "FMGD", colour = "blue") %>%
  add_lines(x = ~hour, y = ~lft, name = "Lft", yaxis = "y2", colour = "red") %>%
  layout( yaxis  = F_Axis, #left axis
          yaxis2 = L_Axis, #right axis
          title = "Fbay", xaxis = list(title="Date"))



pp2 <- prcpf1 %>% plot_ly() %>%
  add_bars(x=~Datetime, y=~precip, name = "prcp", yaxis = "y", colour = "green") %>% 
  layout(yaxis = P_Axis) #only y axis, on the left



pp <- subplot(pp1, pp2 , nrows = 2 , titleY = T, shareX = T)