Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Project_Feedback_gbream #2

Open
wants to merge 1 commit into
base: master
Choose a base branch
from
Open
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
14 changes: 7 additions & 7 deletions index.Rmd
Original file line number Diff line number Diff line change
@@ -1,17 +1,17 @@
---
title: "Opoid-Related Deaths in New York State"
author: "Anuwat Pengput"
subtitle: Spatial Epidemiological Analysis and Risk Factors of Opoid-Related Deathsin
subtitle: Spatial Epidemiological Analysis and Risk Factors of Opoid-Related Deaths in
New York
output:
html_document:
df_print: paged
---

# Introduction
# Introduction
Copy link
Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

There's a lot of information here that lays the foundation for the analysis to come. It could be improved by honing in on a central question to be answered.

Opioid analgesics are pain relievers derived from opium or have an opium-like activity. There are no better drugs than opioids for treating severe pain and suffering, however, opioids are the main drugs associated with overdose deaths. Opioid prescription rates have increased almost threefold associated with an increase of opioid related overdoses and deaths in the last 15 years. New York has been greatly impacted by the opioid epidemic. The rate of deaths related to any opioid in New York has increased by 210% from 2010 to 2016. The opioid overdose death rate in the overall state was 18 deaths per 100,000 residents, which was higher than many states in the United States.

# Materials and methods
# Materials and methods
Copy link
Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Good!



1. Download all packages
Expand Down Expand Up @@ -60,7 +60,7 @@ vital_ny_2017 <- ny_sep %>%
```


```{r, fig.height=10, fig.width=8}
```{r, fig.height=10, fig.width=8}
g <- ggplot (data = vital) +
geom_line(aes(x = Year, y = Opioid.Poisoning.Deaths, group = County, col = County)) +
geom_point(aes(x = Year, y = Opioid.Poisoning.Deaths, group = County, col = County, size = Opioid.Poisoning.Deaths)) +
Expand All @@ -78,7 +78,7 @@ summary(fit)
```


# Results
# Results
Copy link
Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

The interactivity of the first plot is a great touch, as it allows you to see specific opoid related deaths in each county upon hovering over the points. The plot is also very busy with all NY counties represented and often times overlapping and with very similar coloring. Maybe breaking this up into several plots, each with several counties grouped by region would help to get rid of some of the clutter. Or maybe using facet_wrap(), but that would also create a large number of plots that couldn't be compared to each other as easily.


Show tables, plots, etc. and describe them.

Expand All @@ -102,7 +102,7 @@ ggPredict(fit,se=TRUE,interactive=TRUE)
```

# Conclusions
I learned how to prepare data, create plots for final porject.
I learned how to prepare data, create plots for final project.


# References
# References
Copy link
Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Add references