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.

Sign up for GitHub

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_Stella.Rmd #3

Open
wants to merge 1 commit into
base: master
Choose a base branch
from
Open

Project_Feedback_Stella.Rmd #3

Changes from all commits
Commits
Show all changes
1 commit
Select commit
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
10 changes: 5 additions & 5 deletions index.Rmd
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@
title: "Opoid-Related Deaths in New York State"
author: "Anuwat Pengput"
subtitle: Spatial Epidemiological Analysis and Risk Factors of Opoid-Related Deathsin
New York
New York
Copy link
Author

Choose a reason for hiding this comment

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

Clear narrative to let me know what you want, but there is a typesetting problem, which is that "Deaths" and "in" are not separated by space.

output:
html_document:
df_print: paged
Expand Down Expand Up @@ -83,15 +83,15 @@ summary(fit)
Show tables, plots, etc. and describe them.

```{r echo=TRUE, warning=FALSE}
ggplotly (g, tooltip = c("County", "Opioid.Poisoning.Deaths", "Year"))
ggplotly (g, tooltip = c("County", "Opioid.Poisoning.Deaths", "Year"))

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 is convenient and user-friendly. I like it! But the title overlays with the legend title, which affect the readability.

```

```{r echo=TRUE}
mapview(vital_ny_2017, zcol = "Opioid.Poisoning.Deaths", legend = TRUE, alpha = 0.5)
mapview(vital_ny_2017, zcol = "Opioid.Poisoning.Deaths", legend = TRUE, alpha = 0.5)
```
Copy link
Author

Choose a reason for hiding this comment

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

Good job! This graph gives me an intuitive feel about the death situation. But it could be better if you could give us a more detailed description about the story of this graph.
Because I noticed that change the color distribution is unbalanced in your graph, or say the classification is kind of rough. And I could see that the case number in each county are more likely in the range 0-50 and just few counties have very high numbers. So I am curious about why those counties have such high numbers of cases.


```{r echo=TRUE, warning=FALSE}
```{r echo=TRUE, warning=FALSE}
Copy link
Author

Choose a reason for hiding this comment

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

Nice graph which show us the relationship between the death and incomes. One problem is that when I first saw it, I did not know what "estimate" meant. I knew it after I read you introduction. So it could be better if you could make your labels more detailed and clear.
I could see there is the relationship between death and incomes. But I am curious why and expect that you could give us a more detailed description about your graph.

ggplot(vital_ny_2017,aes(y=Opioid.Poisoning.Deaths,x=estimate)) +
geom_point() +
geom_smooth(method="lm")
Expand All @@ -105,4 +105,4 @@ ggPredict(fit,se=TRUE,interactive=TRUE)
I learned how to prepare data, create plots for final porject.


# References
# References