这似乎是一个错误或版本有关，但为了兴趣，我去挖。
如果你只是想删除文本：

# load packages:
library(ggplot2)
library(plotly)

# comment out the strip text from the ggplot call:
d1 <- diamonds %>% ggplot() + 
  geom_col(aes(x = carat, y = price, fill = cut)) +
  facet_grid(cut~clarity) +
  theme_bw()  # + 
  # theme(strip.text.y = element_blank())

# use plotly_build to create a structure you can interfere with:
d2 <- ggplotly(d1)
fig <- plotly_build(d2)

# turn off the relevant text:
# start by exploring fig$x$layout$annotations - for me these labels appear at positions 11 to 15.
# set them to NULL
fig$x$layout$annotations[11:15] <- NULL

# and plot:
fig