[R] Reg: Help in assigning colors to factor variable in ggplot2
up@n@nd@@p@n| @end|ng |rom gm@||@com
Mon Dec 26 17:24:36 CET 2022
Greetings! I am grateful to your suggestions. I have fixed the error as per
Many thanks to you for saving my time.
With sincere regards,
On Mon, Dec 26, 2022 at 9:09 PM John Kane <jrkrideau using gmail.com> wrote:
> Here is a rough guess at what you may want with a bit of mock data and
> using ggplot2.
> dat1 <- data.frame(aa = sample(1:10, 20, replace = TRUE), bb =
> sample(21:30, 20, replace = TRUE),
> outcome = sample(c("died", "home", "other
> hospital","secondary care/rehab"), 20, replace = TRUE ))
> ggplot(dat1, aes(aa, bb, colour = outcome)) + geom_point() +
> scale_colour_brewer(palette = "Dark2") +
> x = "Maximum body temperature",
> y = "Maximum heart rate",
> colour = "outcome",
> title ="500 ICU patients"
> On Mon, 26 Dec 2022 at 09:46, John Kane <jrkrideau using gmail.com> wrote:
>> I suspect you may be mixing *plot()* commands with *ggplot()* commands
>> and they are likely incompatible.
>> Could you supply some sample data and any error messages that you are
>> getting? A handy way to supply some sample data is the dput() function.
>> In the case of a large dataset something like dput(head(mydata, 100))
>> should supply the data we need.
>> On Mon, 26 Dec 2022 at 09:06, Upananda Pani <upananda.pani using gmail.com>
>>> Dear All,
>>> I am trying to plot a scatter plot between temperature and heart rate
>>> additionally marking the outcome of the patients by colors. I am using
>>> standard package Use the standard function plot as well as the functions
>>> 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.
>>> ICUData <- read.csv(file = "ICUData.csv")
>>> ## 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"
>>> 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 using r-project.org mailing list -- To UNSUBSCRIBE and more, see
>>> PLEASE do read the posting guide
>>> and provide commented, minimal, self-contained, reproducible code.
>> John Kane
>> Kingston ON Canada
> John Kane
> Kingston ON Canada
[[alternative HTML version deleted]]
More information about the R-help