具有不同列的 R plot_ly pieplot 图例

Question

我有这个数据框用于使用plot_ly() 函数构建饼图：

piedat <- data.frame("phylum" = c("Non-classified genera", "Genera with RA < 1%", "Firmicutes", "Fibrobacteres", "Bacteroidetes", "Bacteroidetes"),
                     "genus" = c("Unclassified", "RA < 1%", "Clostridium", "Fibrobacter", "Bacteroides", "Prevotella"),
                     "sunra" = c(51.123358, 24.086378, 1.798356, 2.405086, 1.115162, 19.471660),
                     "col" = c("#F8766D", "#A3A500", "#00BF7D", "#00B0F6", "#E76BF3", "#E76BF3"))

我希望饼图使用 col 作为颜色、genus 作为标签以及 phylum 和 col 列作为图例名称和颜色来表示 sunra 丰度（它们总和为 100） ， 分别。 有了这段代码，我几乎完成了所有工作，因为genus 的名字仍然保留着传说：

pie <- plot_ly(piedat) %>%
  add_trace(labels = ~genus, values = ~sunra, name = "phylum", type = 'pie', textposition = 'auto', sort = F, 
            textinfo = 'label+percent', textfont = list(size = 14), marker = list(line = list(width = 1))) %>% 
  layout(autosize = T, showlegend = T, colorway = piedat$col,
         xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
         yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))

这就是我想要的传说：

有什么线索吗？

Answer 1

如果我理解正确，您希望标签保持原样，并且仅更改图例中显示的文本。如果是这种情况，您可以通过以下方法轻松获得您想要的东西：

---

我可以使用tricky 来处理图例文本，因此为了使事情尽可能简单，请不要理会图例，而是编辑标签。只需在piedat 中添加另一列，由phylum 和sunra 组成，将labels = ~genus 更改为labels = ~phylum，将textinfo = 'label+percent' 更改为textinfo = 'text' 并在add_trace() 中包含text=~custom 以获得：

完整代码：

piedat <- data.frame("phylum" = c("Non-classified genera", "Genera with RA < 1%", "Firmicutes", "Fibrobacteres", "Bacteroidetes", "Bacteroidetes"),
                     "genus" = c("Unclassified", "RA < 1%", "Clostridium", "Fibrobacter", "Bacteroides", "Prevotella"),
                     "sunra" = c(51.123358, 24.086378, 1.798356, 2.405086, 1.115162, 19.471660),
                     "col" = c("#F8766D", "#A3A500", "#00BF7D", "#00B0F6", "#E76BF3", "#E76BF3"))

piedat$custom <- paste(piedat$genus, format(piedat$sunra, digits=2))

pie <- plot_ly(piedat) %>%
  add_trace(labels = ~phylum, values = ~sunra, name = "phylum", type = 'pie', textposition = 'auto', sort = F, 
            textinfo = 'text', text=~custom, textfont = list(size = 14), marker = list(line = list(width = 1))) %>% 
  layout(autosize = T, showlegend = T, colorway = piedat$col,
         xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
         yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))

pie