Я пытаюсь изобразить свое кровяное давление, используя 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 против pm.
На рисунке ниже значения am находятся ниже тонкой белой линии. Значения pm находятся выше белой линии.
Помимо этой проблемы, как я могу ее исправить, с точки зрения пользовательского интерфейса, могу ли я использовать линейный график или другой стиль для отображения сердечного ритма?
