You should post the output from dput(Ft_max)
, that would make it easier for people to load your example.
Use functions from the tidyverse package to gather your data in two columns: “key” for the grouping and “values” for the actual values
require(tidyverse)
Ft_max %>%
gather("key", "values") %>%
ggplot(aes(x = values, fill = as.factor(key))) +
geom_histogram()
This will give this:
12
solved Plotting multi histograms in one