使用 Plotly 根据来自同一数据帧的列值绘制图形线

Question

我正在尝试在 ** R ** 上以 ** plotly ** 绘制每天销售的不同类型汽车的折线图。该图表的外观是，它将包含每天售出的每种汽车的折线图。所以假设我有一个名为 ** df1 ** 的数据框

id      date       Value 
Honda    10/30/12   2
Honda    10/31/12   3
Honda    11/1/12    3
Merc     11/2/12    4
Merc    10/30/12    1
Merc    10/31/12    2
Toyota   11/1/12    3
Toyota   11/3/12    2

现在我想在同一个 x 轴上设置三条线（每种类型的汽车一条线）。

我尝试在 y axis 参数中使用 filter() 函数，如下所示：

plot_ly(df1,x=~date)%>% 
add_trace(y=filter(df1,id=="Honda")$value,name="Honda",mode="lines+markers")%>%
add_trace(y=filter(df1,id=="Merc")$value,name="Honda",mode="lines+markers")%>%
add_trace(y=filter(df1,id=="Toyota")$value,name="Honda",mode="lines+markers")%>%
layout(xaxis=list(title="Date"),yaxis=list(title="Cars Sold"))

但是我得到了错误

错误：Tibble 列必须具有一致的长度，只有长度为 1 的值被回收： * 长度 3：列y * 长度 8：列x 调用`rlang::last_erro()

我知道它会抛出一个错误，因为 x 值更多而 y 值更少，我该如何解决？

Answer 1

我没有看到同样的错误（没有指定跟踪类型，它绘制了一个直方图）。

library(plotly)

df1 <- data.frame(
  id = c("Honda", "Honda", "Honda", "Merc", "Merc", "Merc", "Toyota", "Toyota"),
  date = c('10/30/12', '10/31/12', '11/1/12', '11/2/12', '10/30/12', '10/31/12', '11/1/12', '11/3/12'),
  Value = c(2, 3, 3, 4, 1, 2, 3, 2)
)

df1$date <- as.Date(df1$date, "%m/%d/%y")

plot_ly(df1,x=~date)%>% 
  add_trace(y=filter(df1,id=="Honda")$value,name="Honda",mode="lines+markers")%>%
  add_trace(y=filter(df1,id=="Merc")$value,name="Honda",mode="lines+markers")%>%
  add_trace(y=filter(df1,id=="Toyota")$value,name="Honda",mode="lines+markers")%>%
  layout(xaxis=list(title="Date"),yaxis=list(title="Cars Sold"))

> plot_ly(df1,x=~date)%>% 
+   add_trace(y=filter(df1,id=="Honda")$value,name="Honda",mode="lines+markers")%>%
+   add_trace(y=filter(df1,id=="Merc")$value,name="Honda",mode="lines+markers")%>%
+   add_trace(y=filter(df1,id=="Toyota")$value,name="Honda",mode="lines+markers")%>%
+   layout(xaxis=list(title="Date"),yaxis=list(title="Cars Sold"))
No trace type specified:
  Based on info supplied, a 'histogram' trace seems appropriate.
  Read more about this trace type -> https://plot.ly/r/reference/#histogram

您无需按每种汽车类型进行过滤。而是在调用 plot_ly 之前使用 group_by --- 也许这就是你的想法：

df1 %>%
  group_by(id) %>%
  plot_ly(x=~date, y=~Value, type='scatter', color=~id, mode="lines+markers") %>%
  layout(xaxis=list(title="Date"),yaxis=list(title="Cars Sold"))