问如何将Excel导入的数据转换为Plotly 3D曲面图？

EN

df<-test3  # test3 is a import file from exel, with two columns, date and conversion rate
df <- df %>% mutate(year = year(date),
month = month(date, label=TRUE),
day = day(date), hour=hour(date))   #Transform to date, month, day, hour, conversion rate

df2020<-filter(df,year==2020)
dfabr<-filter(df2020,month=="abr")   #Filter for year 2020 and month april , looks like this

stationid             day  hour month  year  rate
   <chr>               <int> <int> <ord> <dbl> <dbl>
 1 Tasa Fusión HF, t/h     1     0 abr    2020 127. 
 2 Tasa Fusión HF, t/h     1     1 abr    2020 130. 
 3 Tasa Fusión HF, t/h     1     2 abr    2020 130. 

---
**df_4=data.frame("x"=c(dfabr$day),"y"=c(dfabr$hour),"z"=c(dfabr$rate))** #Imported and filtered data to MATRIX

library(reshape2)  #for use in plotly 3d surface graphs like volcano example

**df3d<-acast(df_4,x~y, value.var="z",sum)**  #acast return matrix format, I add SUM because with a large data, i got message "Aggregation function missing: defaulting to length", I have no idea why, but when i used a small dataset with exact same code, i didn't get that. When i added "sum", error message disapeared 

library(plotly)

p <- plot_ly(z = df3d, type = "surface")
p