将图块放入R中的网页

Question

我想把这个情节带到网上，然后发送给一些人。我在R中使用了Plotly包。但似乎我需要创建一个公共帐户，问题是人们也可以访问数据集。是否有另一种方法可以将这个情节带入网络并与某些人分享，但不允许他们下载数据集？

library(plotly)
p <- plot_ly(data = iris, x = ~Sepal.Length, y = ~Petal.Length,
        marker = list(size = 10,
                       color = 'rgba(255, 182, 193, .9)',
                       line = list(color = 'rgba(152, 0, 0, .8)',
                                   width = 2))) %>%
  layout(title = 'Styled Scatter',
         yaxis = list(zeroline = FALSE),
         xaxis = list(zeroline = FALSE))

此外，似乎我通过使用“htmlwidgets :: saveWidget（as.widget（p），”index.html“）”函数在本地保存它，然后我无法与某些人分享它。我是对的吗？