使用Plotly在R中创建多重密度图的最简单方法是什么？

Question

我一直在尝试使用Plotly在R中创建分区数据集的一些基本密度图。我想使用的方法是R-Plotly documentation提供的方法。但是，我无法在自己的脚本中成功模仿此方法：

dens <- with(partition, tapply(RN, INDEX = Target, density))
densframe <- data.frame(
  x = unlist(lapply(dens, "[[", "x")),
  y = unlist(lapply(dens, "[[", "y")),
  Target = rep(names(dens), each = length(dens[[1]]$x))
)

plot_ly(data=densframe, 
        x=~x,
        y=~y,
        color=~Target
)%>%
  add_lines()%>%

样本数据：

Target, RN
Iran, 4
Israel, 5
Israel, 6
Iran, 7
Iran, 10
Iran, 3
Israel, 6
Saudi Arabia, 1
Iran, 2
Iran, 5
Iran, 5
Israel, 3
Israel, 3
Israel, 4
Iran, 12
Iran, 7
Saudi Arabia, 1
Iraq, 4
Iran, 5
Qatar, 4
Qatar, 4
Iran, 17

我的代码在第4行失败。而且，经过一些调试之后，老实说，我还没有丝毫地了解原因。而且，正如我已经看到的很多方法可以使用Plotly进行这种绘图一样，我一直想知道哪种方法最简单。

因此，首先，我想知道如何使上面的代码正常工作。其次，我想就在R-Plotly中创建多重密度图的最简单方法提出一些意见。

更新：我的问题已解决。由于上面的代码中的分区存在问题，因此必须这样做。但是，我的问题仍然是：这是创建这种情节的最简单方法。