小编Kar*_*Woo的帖子

我有一组调查回复,受访者可以选择零或多个选项来回答"你喜欢什么类型的水果？"这个问题.还有一个写入答案的空间.在结果电子表格中,每个人的回答都在一个单元格中,不同类型的水果用逗号分隔,如下所示:

(df <- data.frame(id = c("A", "B", "C", "D", "E"), 
                 data = c("oranges, apples, peaches, cherries, pineapples, strawberries",
                          "oranges, peaches, pears", 
                          "pears, nectarines, cherries (bing, rainier)", 
                          "apples, peaches, nectarines", 
                          ""), 
                 stringsAsFactors = FALSE))

#   id                                                         data
# 1  A oranges, apples, peaches, cherries, pineapples, strawberries
# 2  B                                      oranges, peaches, pears
# 3  C                  pears, nectarines, cherries (bing, rainier)
# 4  D                                  apples, peaches, nectarines
# 5  E  

我想要做的是将响应分成一个长格式表,我几乎用底部的代码完成了.但是,有些受访者在写入回复中包含逗号,我不想将其答案分成逗号.我知道所有原始的多项选择是什么; 我怎么能只拆分这些答案,让写入(用逗号)完好无损？我想最终得到这样的数据框:

   id                               data
1   A                            oranges
2   A                             apples
3 …

我正在努力用 R 绘制 3D 气泡图。Plotly 有一个很好的 python 教程，但我无法在 R 中复制。

library(plotly)
plot_ly(mtcars, x=mpg, y=cyl, z=disp, type='scatter3d', mode='markers',
        marker=list(sizemode='diameter', sizeref=750, size=hp, color=drat, 
                    colorscale = 'Viridis'))