如何將希臘字母和粗體字加入圖例中使用情節？

Question

我想在傳說中的希臘字母和x軸圖例中的粗體字符做一個圖。這正常工作與ggplot：

library(ggplot2) 
library(plotly) 
## Dataframe 
df <- data.frame(dose=c("D0.5", "D1", "D2"),len=c(4.2, 10, 29.5)) 

## Legend with the greek letter pi 
my.labs <- list(bquote(Pi==.(5))) 

## Plot with ggplot 
p=ggplot(data=df, aes(x=dose, y=len, group=1,colour = paste("Pi = ",5,sep=""))) + 
geom_line()+ 
geom_point()+ 
scale_colour_manual(values=3, labels=my.labs)+ 
theme(legend.title=element_blank(), legend.position = c(.1, .9),axis.title.x = element_text(face="bold", colour="black", size=10)) 

p 

然而希臘字母，爲x軸的大膽Legend採用plotly時消失：

p=plotly_build(p) 
style(p, hoverinfo = "x+y") %>% 
layout(legend = list(x = 0.1, y = 0.9, font=list(size=12))) 

Answer 1

你會需要進行兩個小的更改才能接近您的ggplot圖。

設置xaxistitle大膽手動

layout(legend = list(x = 0.1, 
        y = 0.9, 
        font=list(size=12)), 
     xaxis = list(title = "<b>dose</b>") 
) 

使用HTML代碼PI在ggplot（在Windows中RStudio作品）或添加π（在Ubuntu與RStudio作品）。

colour = paste("π = ",5,sep="") 

或

colour = paste("π = ",5,sep="") 

---

library(ggplot2) 
library(plotly) 
## Dataframe 
df <- data.frame(dose=c("D0.5", "D1", "D2"),len=c(4.2, 10, 29.5)) 

## Legend with the greek letter pi 
my.labs <- list(bquote(Pi==.(5))) 

## Plot with ggplot 
p=ggplot(data=df, aes(x=dose, y=len, group=1,colour = paste("&pi; = ",5,sep=""))) + 
    geom_line()+ 
    geom_point()+ 
    scale_colour_manual(values=3, labels=my.labs)+ 
    theme(legend.title=element_blank(), legend.position = c(.1, .9),axis.title.x = element_text(face="bold", colour="black", size=10)) 
p 
p=plotly_build(p) 
p <- style(p, hoverinfo = "x+y") %>% 
    layout(legend = list(x = 0.1, 
         y = 0.9, 
         font=list(size=12)), 
     xaxis = list(title = "<b>dose</b>") 
) 

p