如何手动更改 ggplot2 中图例中的关键标签

Question

我正在准备要出版的情节。我创建了一个堆积箱形图来显示每组中患有血清阴性病例复杂积累的患者与非血清阴性患者的频率。图例使用数据框中的标签，这些标签适合我们正在从事该项目的人，但不适合发布。我想将这些名称更改为读者更容易理解的名称。

因此，例如运行以下脚本

grp <- gl(n=4,k=20,labels=c("group a","group b","group c", "group d"))
value <- runif(n=80, min=10, max=150)
outcome <- cut(value,2)
data <- data.frame(grp,value,outcome)
ggplot(data, aes(grp, fill=outcome)) + geom_bar() +xlab("group") 
             +ylab("number of subjects") + labs(fill="Serologic response")

该代码创建不适合发布的键标签“(10.4,80]”和“(80,150]”。相反，我想要“双负”和“a和/或b的正”我

想我可以返回数据框并进行转换以获取具有正确标签的新变量。 href="https://stackoverflow.com/questions/2339953/how-to-add-custom-series-labels-to-a-legend-in-rs-ggplot">或者我可以重新标记我的因素? 但是，我更愿意在绘图时这样做。

Answer 1

标准方法是使用比例函数来更改组的显示标签。您可以将 ggplot 调用替换为

ggplot(data, aes(grp, fill=outcome)) + geom_bar() +xlab("group") +
  ylab("number of subjects") + 
  scale_fill_discrete("Serologic response", 
                      breaks=c("(10.1,79.9]","(79.9,150]"), 
                      labels=c("double negative", "positive for a and/or b"))

注意，比例尺的标题已合并到 scale_fill_discrete 调用中。如果您愿意，也可以使用轴来完成此操作

ggplot(data, aes(grp, fill=outcome)) + geom_bar() +
  scale_x_discrete("group") +
  scale_y_continuous("number of subjects") + 
  scale_fill_discrete("Serologic response", 
                      breaks=c("(10.1,79.9]","(79.9,150]"), 
                      labels=c("double negative", "positive for a and/or b"))

Answer 2

我找到了一种混合的方法。它确实重新标记了该因素，但我不必在数据框中执行此操作。相反，我只是在 ggplot 命令中执行此操作。

ggplot(data, aes(grp, fill=factor(outcome,labels=c("low","high")))) + 
  geom_bar() +xlab("group") +ylab("number of subjects") +
   labs(fill="Serologic response")

还有其他方法吗？

Answer 3

在 ggplot2 中，您可以使用 scale_fill_manual()

colors <- c("red","blue")
outcome_labels <- c("low","high")

ggplot(data, aes(grp, fill=outcome)) + 
  geom_bar() +
  scale_fill_manual(values = colors,labels = outcome_labels) +
  xlab("group") +ylab("number of subjects") + labs(fill="Serologic response")

绘图的外观