在冲积地块中交换颜色

Posted 2023-02-23

【中文标题】在冲积地块中交换颜色

【英文标题】：Swap colour in alluvian plot

【发布时间】：2021-12-28 10:05:30

【问题描述】：

我创建了一个冲积地块（下图）并且想交换颜色，所以未解决的是红色和已解决的绿色，但无法做到这一点。已经尝试过更改数据框，它没有任何区别。

我使用了脚本：

ggplot(data = D180_PROPOSAL1,
       aes(axis1 = Data, axis2 = Issue,
           y = Frequency)) +
  scale_x_discrete(limits = c("Data", "Issue"), expand = c(.05, .1)) +
  xlab("Assesment at Day 180") +
  geom_alluvium(aes(fill = Unresolved)) +
  geom_stratum() +
  geom_text(stat = "stratum", aes(label = after_stat(stratum))) +
  theme_minimal() +
  ggtitle("Uncertainties in the evaluation of bevacizumab biosimilars",
          "stratified by type of data and type of issue")

Here is the picture of the plot

我还将数据集包含在链接中Dataset

【问题讨论】：

一种方法是使用scale_fill_manual() 函数，该函数允许您使用values 参数定义冲积层的颜色。你可以写scale_fill_manual(values = c("Solved" = "#7CAE00", "Unresolved" = "#F8766D"))，其中"#7CAE00"是默认的“绿色”，而“#F8766D”是默认的“红色”。

非常感谢！我试过了，但它不起作用..可能是因为我必须放入脚本的特定部分？

scale_fill_manual() 是一个 ggplot 层。因此，您可以在构建包含建议解决方案的图形（从 ggplot 开始）的代码夹中添加一行。

为了帮助我们，我们需要能够复制您的代码。为此，我们需要“D180_PROPOSAL1”数据。

嗨！谢谢！我将数据集包含在上面的超链接中

【参考方案1】：

您可以在下面找到解决问题的方法。

我所做的是使用带有参数values = c("Solved" = "#7CAE00", "Unresolved" = "#F8766D") 的scale_fill_manual() 层函数。这会将属于“已解决”的冲积层着色为默认绿色（“#7CAE00”），将属于“未解决”的冲积层着色为默认红色（“#F8766D”）。

library(readxl)
library(ggalluvial)

# Load the data: 
D180_PROPOSAL1 <- readxl::read_excel(path = "D180_PROPOSAL1.xlsx")

# Plot the original figure
p <- ggplot(data = D180_PROPOSAL1,
       aes(axis1 = Data, axis2 = Issue,
           y = Frequency)) +
  scale_x_discrete(limits = c("Data", "Issue"), expand = c(.05, .1)) +
  xlab("Assesment at Day 180") +
  geom_alluvium(aes(fill = Unresolved)) +
  geom_stratum() +
  geom_text(stat = "stratum", aes(label = after_stat(stratum))) +
  theme_minimal() +
  ggtitle("Uncertainties in the evaluation of bevacizumab biosimilars",
          "stratified by type of data and type of issue")

# modify the colors of the alluvium: 
# #7CAE00 = default green
# #F8766D = default red
p <- p +
  scale_fill_manual(values = c("Solved" = "#7CAE00", "Unresolved" = "#F8766D"))

plot(p)

得到的数字是：

【讨论】：

哇，非常感谢！这很有帮助:)