R：饼图中使用Ploly的下标

Question

我正在尝试使用RPlotlypackage绘制一些空气污染物数据。到目前为止，我能够做到这一点。

library(plotly)
val <- c(10, 12,4, 16, 8)
ap <- c("NO2", "PM10", "PM2.5", "NOx", "SO2")
plot_ly(labels = ~ap, values = ~val, type = 'pie',
        textposition = 'inside',
        textinfo = 'label')

我想改进这个饼图。我想在PM10中将“10”显示为下标，并在标签旁边写上“自定义文本”。我的预期结果是：PM[10]（47%）等等。有人想解释一下如何做到这一点吗？

Answer 1

下面是一个关于如何在plotly中设置下标和自定义悬停文本的示例：

library(plotly)
val <- c(10, 12,4, 16, 8)
ap <- c("NO<sub>2</sub>", "PM<sub>10</sub>", "PM<sub>2.5</sub>", "NO<sub>x</sub>", "SO<sub>[2]</sub>")

自定义悬停是通过在plot\u lycall中定义text参数获得的

plot_ly(labels = ~ap, values = ~val, type = 'pie',
        hoverinfo = 'text',
        text = ~paste0(val *100/sum(val), '%'),
        textposition = 'inside',
        textinfo = 'label')

如果需要在不悬停的情况下更改标签：

plot_ly(labels = ~paste(ap, paste0('[', val *100/sum(val), '%]')),
        values = ~val, type = 'pie',
        textposition = 'inside',
        textinfo = 'label')