R 使用ggplotly（）时，不会显示根据颜色、形状和填充创建的散点图

我试图创建一个散点图，根据形状、颜色和填充对数据进行编码。当我使用plotly时，它与ggplot一起显示，但不显示

## app.R ##
library(shiny)
library(shinydashboard)
library(ggplot2)
library(plotly)
ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    plotOutput("plot")

  )
)

server <- function(input, output) {
  blank.test <- read.table(header=T, text="Colour Shape Fill X13C X15N
1       B     B    A   16   10
2       D     A    A   16   12
3       E     A    B   17   14
4       C     A    A   14   18
5       A     A    B   13   18
6       C     B    B   18   13
7       E     C    B   10   12
8       E     A    B   11   10
9       A     C    B   14   13
10      B     A    A   11   14
11      C     B    A   11   10
12      E     B    A   11   19
13      A     B    A   10   18
14      A     C    B   17   16
15      E     B    A   16   13
16      A     C    A   16   14") 

blank.test$inter <- with(blank.test, interaction(Shape,  Fill))
output$plot<-renderPlotly({
  p<-ggplot(blank.test, aes(x=X13C, y=X15N)) + 
    geom_point(aes(shape=inter,color=Colour)) + scale_shape_manual(name="shape", values=c(0,15,1, 16, 2, 17)) + scale_color_manual(name="colour", values=c("red","blue","yellow", "green", "purple"))
  ggplotly(p)
})
}

shinyApp(ui, server)

##app.R##
图书馆（闪亮）
图书馆（shinydashboard）
图书馆（GG2）
图书馆（绘本）
ui只需将
plotOutput
替换为
plotlyOutput