R-使用plot_ly创建分组条形图

Question

我正在尝试使用R绘制血压图。

现在我的csv数据文件看起来像

date,ampm,systolic,diastolic,heartrate 04/23/2019,am,137,88,80 04/23/2019,pm,141,84,75 04/24/2019,am,144,86,75 04/24/2019,pm,141,84,75

已将代码设置为

data <- read.csv("bpm.csv", header=TRUE, sep=",")
library(plotly)
plot_ly(data, x=data$date, y=data$systolic, type='bar', name='Systolic') %>% add_trace(y=data$diastolic, name='Diastolic') %>% layout(yaxis = list(title = 'Count'), barmode = 'group')

似乎在生成图形时，收缩压值am与pm并没有区别。那是因为我还没有编码该部分，也不太确定如何使用am vs pm来区分它。

在下面的图片中，am值在一条细白线下方。 pm值在白线上方。

除了该问题外，如何解决该问题，从UI角度来看，我可以使用折线图或其他样式选项来显示心率吗？