如何在R中使用plotly绘制3D表面图？

Question

如何在R中使用plotly绘制3D表面图？

3

我有以下数据集：

group<-c(rep("X1",5),rep("X3",5))
set.seed(1)
value<-c(seq(0.2, 1, .2),seq(10, 30, 5))
time<-c("2018-07-01 00:00:00","2018-07-01 01:00:00","2018-07-01 02:00:00","2018-07-01 03:00:00","2018-07-01 04:00:00",
        "2018-07-01 00:00:00","2018-07-01 01:00:00","2018-07-01 03:00:00","2018-07-01 04:00:00","2018-07-01 05:00:00")
order<-c(1,2,3,4,5,1,2,4,5,6)
country<-c("HU","ZA","XX","ZZ","RO","HU","ZA","XX","ZZ","RO")
dat <-data.frame(time,country,group,value,order)

我想绘制一个三维图，其中x=order, Y=value, z=hour(time)。在这里我读到z应该具有[x,y]的维度。

使用Plotly在R中绘制三维曲面图

应该得到类似于下图的效果：

我应该如何绘制它？因为不理解如何创建具有此维度的Z矩阵？

- Erko Tru

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- bischrob · Accepted Answer

您的数据似乎不适用于3D。您不能在相同的x轴和y轴上具有两个z值。如果您过滤掉其中一个组，您可以在技术上使其工作，但我认为其他一些图表可能会更好。以下是如何使用一个组使其工作的示例，以及可能更适合的绘图示例。

library(plotly)

group<-c(rep("X1",5),rep("X3",5))
set.seed(1)
value<-c(seq(0.2, 1, .2),seq(10, 30, 5))
time<-c("2018-07-01 00:00:00","2018-07-01 01:00:00","2018-07-01 02:00:00","2018-07-01 03:00:00","2018-07-01 04:00:00",
        "2018-07-01 00:00:00","2018-07-01 01:00:00","2018-07-01 03:00:00","2018-07-01 04:00:00","2018-07-01 05:00:00")
order<-c(1,2,3,4,5,1,2,4,5,6)
country<-c("HU","ZA","XX","ZZ","RO","HU","ZA","XX","ZZ","RO")
dat <-data.frame(time,country,group,value,order)

library(tidyverse)
m = dat %>%
  filter(group == "X1") %>% 
  pivot_wider(c(time,value,order), names_from = time,
                    values_from = value) %>% 
  select(-order) %>%
  as.matrix
m[] = case_when(is.na(m) ~ 0, TRUE ~ m)
plot_ly(z = ~m) %>% 
  add_surface()

plot_ly(data = dat, x = ~time, y = ~value, color = ~group)

这是一个更适合的数据示例

m = matrix(rnorm(25),nrow = 5, ncol = 5)

plot_ly(z = ~m) %>% 
  add_surface()