如何根据变量

Question

在我的df中我有一个颜色名称的列，即红色，绿色...... 我想用这些颜色来填充和着色。但是，我无法设法将其绘制成黑色，黄色是粉红色......

new.df <- structure(list(Expr = c(1, 0.75, 0.5, 0.25, 0, 1, 0.75, 0.5, 
0.25, 0, 1, 0.75, 0.5, 0.25, 0, 1, 0.75, 0.5, 0.25, 0, 1, 0.75, 
0.5, 0.25, 0, 1, 0.75, 0.5, 0.25, 0, 1, 0.75, 0.5, 0.25, 0, 1, 
0.75, 0.5, 0.25, 0), react = c(0, 0.25, 0.5, 0.75, 1, 0, 0.25, 
0.5, 0.75, 1, 0, 0.25, 0.5, 0.75, 1, 0, 0.25, 0.5, 0.75, 1, 0, 
0.25, 0.5, 0.75, 1, 0, 0.25, 0.5, 0.75, 1, 0, 0.25, 0.5, 0.75, 
1, 0, 0.25, 0.5, 0.75, 1), variable = structure(c(1L, 1L, 1L, 
1L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 
4L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L, 7L, 7L, 7L, 7L, 7L, 
8L, 8L, 8L, 8L, 8L), .Label = c("black", "blue", "brown", "green", 
"pink", "red", "turquoise", "yellow"), class = c("ordered", "factor"
)), value = c(0.230403800475059, 0.0617577197149644, 0.0843230403800475, 
0.0819477434679335, 0.0819477434679335, 0.200712589073634, 0.187648456057007, 
0.144893111638955, 0.156769596199525, 0.142517814726841, 0.0451306413301663, 
0.114014251781473, 0.125890736342043, 0.133016627078385, 0.130641330166271, 
0.328978622327791, 0.0665083135391924, 0.0902612826603325, 0.0973871733966746, 
0.0855106888361045, 0.194774346793349, 0.0605700712589074, 0.0451306413301663, 
0.0700712589073634, 0.0653206650831354, NA, 0.0617577197149644, 
0.0605700712589074, 0.0795724465558195, 0.0783847980997625, NA, 
0.336104513064133, 0.0617577197149644, 0.0819477434679335, 0.0617577197149644, 
NA, 0.111638954869359, 0.0498812351543943, 0.168646080760095, 
0.0831353919239905)), row.names = c(NA, -40L), .Names = c("Expr", 
"react", "variable", "value"), class = "data.frame")
> scal <- scale_colour_manual(name = "variable", values = new.df$variable)
>   ggplot(new.df, aes(x = value, fill = variable)) +
+     facet_wrap(~Expr+react, labeller = label_wrap_gen(multi_line = FALSE)) +
+     geom_histogram(bins = 5) + theme_bw() + scal

根据this回答，我尝试手动创建色阶，但没有成功。

Answer 1

您只需要更改代码的一行：

scal <- scale_fill_manual(values = unique(as.character(new.df$variable)))

并保留其余部分：

ggplot(new.df, aes(x = value, fill = variable)) +
  facet_wrap(~Expr+react, labeller = label_wrap_gen(multi_line = FALSE)) +
  geom_histogram(bins = 5) + theme_bw() + scal

获得此输出：

Answer 2

尝试

new.df$variable <- ordered(new.df$variable, levels = unique(new.df$variable))

ggplot(new.df, aes(x = value, fill = variable)) +
facet_wrap(~Expr+react, labeller = label_wrap_gen(multi_line = FALSE)) +
geom_histogram(bins = 5) + theme_bw() +
scale_fill_manual(name = "variable", 
                    values = unique(as.character(new.df$variable)))

然后重新执行ggplot命令。

Ps：你的代码中有一个拼写错误，我想：你写了

values = new.df$variables

而不是values = new.df$variable