Jupyter R Notebook中的HTML小部件

我在使用R时无法在Jupyter笔记本中显示HTML小部件(使用python时工作).例如,在Jupyter R笔记本中没有任何绘图图表.这有什么解决方案吗？

library(plotly)
set.seed(100)
d <- diamonds[sample(nrow(diamonds), 1000), ]
plot_ly(d, x = carat, y = price, text = paste("Clarity: ", clarity),
        mode = "markers", color = carat, size = carat)

代码执行但不显示图表