Thanks Eric. You have found the error. It has saved my time. Grateful to you for your help and suggestions.
Regards, Upananda On Mon, Dec 26, 2022 at 7:59 PM Eric Berger <[email protected]> wrote: > Your problem is that the color "#4DAF4A8" is not a valid color. It should > have only 6 hex digits. > e.g. "#4DAF4A" will work. > > Also you seem to be confused about ggplot. You are not using ggplot in > your code at all. > You are using base graphics. You can remove the 3 library calls. > > HTH, > Eric > > > On Mon, Dec 26, 2022 at 4:06 PM Upananda Pani <[email protected]> > wrote: > >> 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")) >> ``` >> ______________________________________________ >> [email protected] 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. >> > [[alternative HTML version deleted]] ______________________________________________ [email protected] 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.
