堆栈内存溢出
  简体   繁体   English

在 R 中绘图创建 3D 动画

[英]Plotly in R creating a 3D animation

 原文  2020-10-08 19:36:15  6   1    r/ animation/ 3d/ plotly/ r-plotly

问题描述

I've been trying to produce an animated 3D scatter plot in Plotly to show how sensor data is changing with time.我一直在尝试在 Plotly 中制作动画 3D 散点图，以显示传感器数据如何随时间变化。 Ploty appears to bin the time frame correctly and puts all the sensors information in a timeframe, however rather than updating the trace at each time frame it just adds another to all time frames. Ploty 似乎正确地划分了时间范围，并将所有传感器信息放在一个时间范围内，但是它不是在每个时间范围更新跟踪，而是在所有时间范围中添加另一个。 Any ideas one how to get plotly to replot at each timeframe?任何想法如何在每个时间范围内重新绘制？ My code is我的代码是

fig1 <- short_all_data %>%
  plot_ly(x=~one, 
          y=~two, 
          z=~three,
          size = ~temperature,
          color = ~temperature,
          frame = ~time,
          mode ='markers',
          type = 'scatter3d')
  fig1

The data frame is数据框是

structure(list(time = structure(c(32761, 32761, 32761, 32761, 
32761, 32761, 32761, 32761, 32761, 32761, 32761, 32761, 32761, 
32761, 32761, 32761, 32761, 32761, 32761, 32761, 32761, 32761, 
32761, 32761, 32775, 32775, 32775, 32775, 32775, 32775, 32775, 
32775, 32775, 32775, 32775, 32775, 32775, 32775, 32775, 32775, 
32775, 32775, 32775, 32775, 32775, 32775, 32775, 32775), class = c("hms", 
"difftime"), units = "secs"), sensor_number = c("sensor_1", "sensor_2", 
"sensor_3", "sensor_4", "sensor_5", "sensor_6", "sensor_7", "sensor_8", 
"sensor_9", "sensor_10", "sensor_11", "sensor_12", "sensor_13", 
"sensor_14", "sensor_15", "sensor_16", "sensor_17", "sensor_18", 
"sensor_19", "sensor_20", "sensor_21", "sensor_22", "sensor_23", 
"sensor_24", "sensor_1", "sensor_2", "sensor_3", "sensor_4", 
"sensor_5", "sensor_6", "sensor_7", "sensor_8", "sensor_9", "sensor_10", 
"sensor_11", "sensor_12", "sensor_13", "sensor_14", "sensor_15", 
"sensor_16", "sensor_17", "sensor_18", "sensor_19", "sensor_20", 
"sensor_21", "sensor_22", "sensor_23", "sensor_24"), temperature = c(12137, 
12298, 10743, 10644, 9787, 10617, 9466, 9150, 10051, 8706, 10094, 
9541, 10326, 9983, 9494, 10044, 10126, 10436, 11848, 12141, 12216, 
11348, 0, 0, 12422, 11876, 10556, 10763, 10284, 10365, 8760, 
9684, 10068, 9649, 9940, 9913, 10316, 9527, 9939, 10378, 9920, 
9986, 11946, 12461, 11804, 11230, 50000, 0), one = c(1, 5, 1, 
5, 1, 5, 1, 5, 1, 5, 1, 5, 1, 5, 1, 5, 1, 5, 1, 5, 1, 5, 1, 5, 
1, 5, 1, 5, 1, 5, 1, 5, 1, 5, 1, 5, 1, 5, 1, 5, 1, 5, 1, 5, 1, 
5, 1, 5), two = c(1, 1, 5, 5, 1, 1, 5, 5, 1, 1, 5, 5, 1, 1, 5, 
5, 1, 1, 5, 5, 1, 1, 5, 5, 1, 1, 5, 5, 1, 1, 5, 5, 1, 1, 5, 5, 
1, 1, 5, 5, 1, 1, 5, 5, 1, 1, 5, 5), three = c(0, 0, 0, 0, 1, 
1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5, 5, 0, 0, 
0, 0, 1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5, 
5)), row.names = c(NA, -48L), groups = structure(list(sensor_number = c("sensor_1", 
"sensor_10", "sensor_11", "sensor_12", "sensor_13", "sensor_14", 
"sensor_15", "sensor_16", "sensor_17", "sensor_18", "sensor_19", 
"sensor_2", "sensor_20", "sensor_21", "sensor_22", "sensor_23", 
"sensor_24", "sensor_3", "sensor_4", "sensor_5", "sensor_6", 
"sensor_7", "sensor_8", "sensor_9"), .rows = structure(list(c(1L, 
25L), c(10L, 34L), c(11L, 35L), c(12L, 36L), c(13L, 37L), c(14L, 
38L), c(15L, 39L), c(16L, 40L), c(17L, 41L), c(18L, 42L), c(19L, 
43L), c(2L, 26L), c(20L, 44L), c(21L, 45L), c(22L, 46L), c(23L, 
47L), c(24L, 48L), c(3L, 27L), c(4L, 28L), c(5L, 29L), c(6L, 
30L), c(7L, 31L), c(8L, 32L), c(9L, 33L)), ptype = integer(0), class = c("vctrs_list_of", 
"vctrs_vctr", "list"))), row.names = c(NA, 24L), class = c("tbl_df", 
"tbl", "data.frame"), .drop = TRUE), class = c("grouped_df", 
"tbl_df", "tbl", "data.frame"))

produced plot生成的情节

Any help would be appreciated任何帮助，将不胜感激

1 个解决方案

解决方案1
 0 已采纳  2020-10-09 11:30:31

I extended your example data a little.我稍微扩展了您的示例数据。 Your code gives me the output I'd expect:你的代码给了我我期望的输出：

library(plotly)

short_all_data <- data.frame(
  stringsAsFactors = FALSE,
              time = c("09:06:01","09:06:01",
                       "09:06:01","09:06:01","09:06:01","09:06:01","09:06:01",
                       "09:06:01","09:06:01","09:06:01","09:06:02","09:06:02",
                       "09:06:02","09:06:02","09:06:02","09:06:02","09:06:02",
                       "09:06:02","09:06:02","09:06:02","09:06:03",
                       "09:06:03","09:06:03","09:06:03","09:06:03","09:06:03",
                       "09:06:03","09:06:03","09:06:03","09:06:03","09:06:04",
                       "09:06:04","09:06:04","09:06:04","09:06:04","09:06:04",
                       "09:06:04","09:06:04","09:06:04","09:06:04",
                       "09:06:05","09:06:05","09:06:05","09:06:05","09:06:05",
                       "09:06:05","09:06:05","09:06:05","09:06:05","09:06:05",
                       "09:06:06","09:06:06","09:06:06","09:06:06","09:06:06",
                       "09:06:06","09:06:06","09:06:06","09:06:06",
                       "09:06:06"),
     sensor_number = c("sensor_1","sensor_2",
                       "sensor_3","sensor_4","sensor_5","sensor_6","sensor_7",
                       "sensor_8","sensor_9","sensor_10","sensor_1","sensor_2",
                       "sensor_3","sensor_4","sensor_5","sensor_6",
                       "sensor_7","sensor_8","sensor_9","sensor_10","sensor_1",
                       "sensor_2","sensor_3","sensor_4","sensor_5","sensor_6",
                       "sensor_7","sensor_8","sensor_9","sensor_10","sensor_1",
                       "sensor_2","sensor_3","sensor_4","sensor_5",
                       "sensor_6","sensor_7","sensor_8","sensor_9","sensor_10",
                       "sensor_1","sensor_2","sensor_3","sensor_4","sensor_5",
                       "sensor_6","sensor_7","sensor_8","sensor_9",
                       "sensor_10","sensor_1","sensor_2","sensor_3","sensor_4",
                       "sensor_5","sensor_6","sensor_7","sensor_8","sensor_9",
                       "sensor_10"),
       temperature = c(12137L,12298L,10743L,10644L,
                       9787L,10617L,9466L,9150L,10051L,8706L,9651L,8001L,
                       7000L,9000L,12000L,15000L,14032L,12345L,12340L,
                       12342L,12300L,11000L,11100L,11200L,11300L,11400L,
                       11500L,11600L,11700L,11800L,12137L,12298L,10743L,
                       10644L,9787L,10617L,9466L,9150L,10051L,8706L,9651L,
                       8001L,7000L,9000L,12000L,15000L,14032L,12345L,
                       12340L,12342L,12300L,11000L,11100L,11200L,11300L,11400L,
                       11500L,11600L,11700L,11800L),
               one = c(1L,5L,1L,5L,1L,5L,1L,5L,
                       1L,5L,2L,5L,1L,5L,2L,5L,1L,5L,2L,5L,1L,5L,
                       2L,5L,1L,5L,2L,5L,1L,5L,1L,5L,1L,5L,1L,5L,
                       1L,5L,1L,5L,2L,5L,1L,5L,2L,5L,1L,5L,2L,5L,1L,
                       5L,2L,5L,1L,5L,2L,5L,1L,5L),
               two = c(1L,1L,5L,5L,1L,1L,5L,5L,
                       1L,1L,1L,2L,5L,2L,1L,2L,5L,2L,1L,2L,1L,2L,
                       5L,2L,1L,2L,5L,2L,1L,2L,1L,1L,5L,5L,1L,1L,
                       5L,5L,1L,1L,1L,2L,5L,2L,1L,2L,5L,2L,1L,2L,1L,
                       2L,5L,2L,1L,2L,5L,2L,1L,2L),
             three = c(0L,0L,0L,0L,1L,1L,1L,1L,
                       2L,2L,0L,0L,2L,0L,1L,1L,2L,1L,2L,2L,2L,0L,
                       0L,0L,2L,1L,1L,1L,1L,2L,0L,0L,0L,0L,1L,1L,
                       1L,1L,2L,2L,0L,0L,2L,0L,1L,1L,2L,1L,2L,2L,2L,
                       0L,0L,0L,2L,1L,1L,1L,1L,2L)
)

fig1 <- short_all_data %>%
  plot_ly(x=~one, 
          y=~two, 
          z=~three,
          size = ~temperature,
          color = ~temperature,
          frame = ~time,
          mode ='markers',
          type = 'scatter3d')
fig1

结果

暂无
暂无

声明:本站的技术帖子网页，遵循CC BY-SA 4.0协议，如果您需要转载，请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

相关问题 3d 分散 animation 在 R、plotly - 3d scatter animation in R, plotly 绘图中的 3D Biplot - R - 3D Biplot in plotly - R plot 在 3D 与 plotly 在 R - plot in 3D with plotly in R r plotly 3d surface plot问题 - r plotly 3d surface plot issue 在3D图R中拉伸轴 - Stretch axes in plotly 3D plot R 使用R中的plotly在3D图中绘制吊线。 - Droplines in 3D plot using plotly in R? 如何在 R 中旋转 3D Plotly，更新？ - How to rotate 3D Plotly in R, update? R 中的 3d 曲面图与 plotly - 3d Surface Plot in R with plotly 如何在 R 中使用 Plotly 制作 3D 直方图？ - How to make a 3D histogram with Plotly in R? R中模型的3D绘图？ - 3D plot from model in R plotly?
相关标签
 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM