Dear All,
I am trying to plot a scatter plot between temperature and heart rate and
additionally marking the outcome of the patients by colors. I am using the
standard package Use the standard function plot as well as the functions of
package "ggplot2" (Wickham (2009)). Save the plots in pdf files.
I am geeting an error to plot when assigning colsOutcome to the
scatterplot. I am doing it wrongly. Please advise me.
```{r}
library(ggplot2)
library(RColorBrewer)
library(ggsci)
ICUData <- read.csv(file = "ICUData.csv")
```
```{r}
## Generate empty vector
colsOutcome <- character(nrow(ICUData))
## Fill with colors
colsOutcome[ICUData$outcome == "died"] <- "#E41A1C"
colsOutcome[ICUData$outcome == "home"] <- "#377EB8"
colsOutcome[ICUData$outcome == "other hospital"] <- "#4DAF4A8"
colsOutcome[ICUData$outcome == "secondary care/rehab"] <- "#984EA3"
```
```{r}
plot(x = ICUData$temperature, y = ICUData$heart.rate, pch = 19,
xlab = "Maximum body temperature", ylab = "Maximum heart rate",
main = "500 ICU patients", col = colsOutcome, xlim = c(33,43))
legend(x = "topleft", legend = c("died", "home", "other hospital",
"secondary care/rehab"), pch = 19,
col = c("#E41A1C", "#377EB8", "#4DAF4A8", "#984EA3"))
```
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
