ggplotly 扭曲标记大小和线条粗细，忽略 hjust/vjust

Question

当通过ggplot2 vs plotly 渲染相同的情节时，我注意到许多不同之处。它包括标记大小、线条粗细和文本标签调整等基本内容。

require(ggplot2)
require(plotly)
data(iris)

p1 <-
ggplot(data = iris, aes(x=Sepal.Length, y=Sepal.Width, shape=Species, color=Species)) + 
  geom_point(size=3) +
  geom_text(x=5.5, y=2, label='\u25BA',color='red',hjust='left',vjust='bottom')+
  coord_cartesian(xlim = c(5,6), ylim = c(2,3))+
  geom_abline(slope = 1, intercept = -3)+
  scale_shape_manual(values=c(21,22,23))

p1
ggplotly(p1)

您可以在此示例中看到，所有标记都大了大约 1/3，线条粗了 3 倍，文本标签（此处为红色三角形）的 hjust 和 vjust 被忽略。除了手动调整每一层的所有参数之外，还有什么办法可以解决这个问题？

Answer 1

请注意，使用 ggplotly 转换 ggplot 对象并不总是会产生与直接使用 plotly 获得的完全相同的输出。但是，您可以根据您对 ggplotly 的期望来调整点的大小和线宽。此外，将 hjust 和 vjust 设置为 0 或 1，查看 geom_text 的文本显示位置。当您将鼠标悬停在红色三角形上时，使用 annotate 而不是 geom_text 会显示如下所示的 x 和 y 值。

试试这个

mycolor <- c("green","blue","red")
myshape <- c(21, 22, 23)

p1 <-
  ggplot(data = iris, aes(x=Sepal.Length, y=Sepal.Width, shape=Species, color=Species)) + 
  geom_point(size=2) +
  # geom_text(x=5.5, y=2, label='abc',color='red',hjust=1,vjust=0)+ ## '\u25BA'
  annotate(geom="text", x=5.5, y=2, label='\u25BA',color='red') +
  coord_cartesian(xlim = c(4,7), ylim = c(2,5))+
  scale_color_manual(values=mycolor) +
  scale_shape_manual(values=myshape) +
  geom_abline(slope = 1, intercept = -3, lwd=0.5)+
  guides(shape = guide_legend(override.aes=list(color=myshape) ),    
         color= 'none')   ## do not display color legend
         
p1
ggplotly(p1)