Modifying the colors with commands scale_fill_manual() and scal_fill_discrete() on a ggplot2 histogram

Carlos Jimenez

My data frame (df) consists of two columns, one with random values (continuous measurements) and another with three levels (c1, c2, c3):

df <- data.frame(col1= round(rnorm(150),2),col2 =       c(rep("c1",times=50),rep("c2",times=50),rep("c3",times=50)))

My ggplot code looks like that:

library(ggplot2)

ggplot(df) +

geom_histogram(aes(x = col1, fill = col2),
             position = "stack",col="black", bins = 30, alpha = 0.6) +

scale_fill_manual(values = c("steelblue1", "yellow", "darkolivegreen2"),breaks = c("c1", "c2", "c3")) +

scale_fill_discrete("Factor", labels = c(expression(italic("c1")), 
                                         expression(italic("c2")),
                                         expression(italic("c3")))) +

theme_classic()

The colours that I define in scale_fill_manual() do not actually correspond to the colors in the histogram. It seems that it is an issue with the two arguments scale_fill_manual() and scale_fill_discrete() as it appears this message:

Scale for fill is already present. Adding another scale for fill, which will replace the existing scale.

How can I specify the colors for each level?

I've tried with the possible solutions that are already in here but nothing happens.

stefan

In vanilla ggplot2 you can have only one scale per aesthetic, i.e. adding the scale_fill_discrete will overwrite (or drop) the scale_fill_manual. But you could simply set your labels and or names via scale_fill_manual:

Note: If you just want to change the font face of the legend labels there is no need to use expression. You could do so using + theme(legend.text = element_text(face = "italic")).

set.seed(123)

df <- data.frame(
  col1 = round(rnorm(150), 2),
  col2 = c(rep("c1", times = 50), rep("c2", times = 50), rep("c3", times = 50))
)

library(ggplot2)

ggplot(df) +
  geom_histogram(aes(x = col1, fill = col2),
    position = "stack", col = "black", bins = 30, alpha = 0.6
  ) +
  scale_fill_manual(
    values = c("steelblue1", "yellow", "darkolivegreen2"),
    breaks = c("c1", "c2", "c3"),
    labels = c(
      expression(italic("c1")),
      expression(italic("c2")),
      expression(italic("c3"))
    ),
    name = "Factor"
  ) +
  theme_classic()

Collected from the Internet

Please contact [email protected] to delete if infringement.

edited at2023-11-25

Comments

0 comments

R: how to get the character representation of a ScaleDiscrete object derived from a scale_fill_manual() call to resolve correctly in ggplot2

TOP Ranking

Article

Modifying the colors with commands scale_fill_manual() and scal_fill_discrete() on a ggplot2 histogram

Modifying the colors with commands scale_fill_manual() and scal_fill_discrete() on a ggplot2 histogram

pump.io port in URL

How to import an asset in swift using Bundle.main.path() in a react-native native module

Failed to listen on localhost:8000 (reason: Cannot assign requested address)

Double spacing in rmarkdown pdf

SQL Server : need add a dot before two last character

C++ 16 bit grayscale gradient image from 2D array

JMeter: Why get error when try to save test plan

JWT gives JsonWebTokenError "invalid token"

How to make thrown errors visible outside of a Promise?

How to tell if iOS Today Widget is being updated in the background?

Calling Doctrine clear() with an argument is deprecated

Capybara Selenium Chrome opens About Google Chrome

How to update azerothcore-wotlk docker container

Adding Ripple Effect to RecyclerView item

mysql.connector.errors.InterfaceError: 2003: Can't connect to MySQL server on '127.0.0.1:3306' (111 Connection refused)

Error while applying filter on dataframe - PySpark

Unable to add slack to bluemix project

MyPy fails dataclass argument with optional list of objects type

How can I validate and parse phone numbers to extract their country calling code and area code?

Single Sign-On in Spring by using SAML Extension and Shibboleth

python how to create many-to-many of lists inside one list