Disease History (Line Chart)


func <- function(x) 47.982 - 0.0305 * x - 0.57525 * x^2 + 0.0245 * x^3
line_chart(
  func = func,
  data_bands = data_bands,
  data_lines = data_lines,
  xmin = 0,
  xmax = 14.2,
  ymin = 0,
  ymax = 50,
  xbreaks = seq(0, 14, 2),
  ybreaks = seq(0, 50, 5),
  xlab = "Years Since Onset",
  ylab = "Functional Score",
  legend_title = "Severity: "
)

How to Read

  • The Y-axis displays the functional score, ranging from 0-50 points on a fictional Quality of Life scale.

  • The X-axis displays the years since onset of disease, ranging from 0-14 years.

  • The horizontal bars represent seven disease manifestations (e.g. first symptom, …, death) in the patent population.

  • The bars span the number of years that a manifestation might appear. For example, death typically occurs between 8 and 14 years since onset of disease.

  • The bars are color coded according to the three horizonal gray bands of functional scores (mild, moderate or severe) and the legend at the top.

Key Conclusions:

  • The dark gray curve displays the downward trend in functional score or quality of life over time.

  • The graph show that the disease manifestations are sequential, hence do not necessarily occur at the same time. Patient follow-up will need to be several years to capture several of the functional domains.

  • History of disease progression also impacts patient engagement, since newly diagnosed patients might have no experience with more serious manifestations, such as mental function.