Это действительно широко, но вы можете попробовать это:
place<-c("here", "there", "faraway")
frequency<-c(1,2,4)
d<-data.frame(day,place,frequency)
z<-dcast(d, day~place, fill=0)
z$day <- as.factor(z$day)
plot_ly(data = z, x = ~day, y = ~here, type = "bar", name = 'here') %>%
add_trace(y = ~there, name = 'there') %>%
add_trace(y = ~faraway, name = 'faraway') %>%
layout(yaxis = list(title = 'Count'), barmode = 'group')
Редактировать: После комментариев OP.Вы можете вернуть его в длинный формат и затем построить.
d_long <- melt(z, id.vars=c("day"))
plot_ly(data = d_long, x = ~day, y = ~variable, z = ~value, mode = "markers")