箱ひげ図から外れ値を削除し、plotly

Question

私が異常値を示してdoesntのRでplotly箱ひげ図を作成しようとしています、と私はplotlyの公式ページでこのリンクを見つけた： https://plot.ly/ggplot2/box-plots/#outliers

library(plotly) 
set.seed(123) 

df <- diamonds[sample(1:nrow(diamonds), size = 1000),] 

p <- ggplot(df, aes(cut, price, fill = cut)) + 
geom_boxplot(outlier.shape = NA) + 
ggtitle("Ignore outliers in ggplot2") 

# Need to modify the plotly object and make outlier points have opacity equal 
to 0 
p <- plotly_build(p) 

p$data <- lapply(p$data, FUN = function(x){ 
x$marker = list(opacity = 0) 
return(x) 
}) 


# Create a shareable link to your chart 
# Set up API credentials: https://plot.ly/r/getting-started 
chart_link = plotly_POST(p, filename="geom_boxplot/outliers") 
chart_link 

問題があることです自分のウェブページや私のコンソールでは、異常値はまだ表示されています。 これは何らかのバグですか？

Answer 1

タイプミスのようです。おそらく、この例は、オブジェクト構造のいくつかの変更を説明するために更新されていない可能性があります。 p <- plotly_build(p)を呼び出した後、p$dataが存在しないことがわかりますが、p$x$dataがあります。だから、次のようにlapplyの呼び出しを変更：

p$x$data <- lapply(p$x$data, FUN = function(x){ 
x$marker = list(opacity = 0) 
return(x) 
}) 

は、意図したとおりにすべての作業を行います、時間の経過