[R] Reg: Help in assigning colors to factor variable in ggplot2

[Upananda Pani]

Hi John,

Thanks for your reply. I have tried the following code.

```{r}
ggplot(ICUData[-398,], aes(x=temperature, y=heart.rate, colour=outcome)) +
  ## shape = 19: somewhat larger point
  ## alpha = 0.4: strengs of blending
  geom_point(shape=19, alpha=0.4) +
  ## colors
  scale_colour_manual(values = c("#E41A1C", "#377EB8", "#4DAF4A",
"#984EA3")) +
  ## labeling
  ggtitle("500 ICU patients") + xlab("Maximum body temperature") +
  ylab("Maximum heart frequency")
```
However, I will try with your solution. Thanks for your time.

With sincere regards,
Upananda Pani



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.
> ##=================================================#
> library(ggplot2)
> library(RColorBrewer)
>
> 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") +
> labs(
> 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>
>> 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"))
>>> ```
>>> ______________________________________________
>>> R-help using 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.
>>>
>>
>>
>> --
>> John Kane
>> Kingston ON Canada
>>
>
>
> --
> John Kane
> Kingston ON Canada
>

	[[alternative HTML version deleted]]