小编elc*_*ato的帖子

我想用曲线绘制一个条形图和R中的折线图.

我的第一次尝试是

p <- plot_ly(
  x = c(1,2,3,4,5),
  y = c(1,2,1.5,3,2),
  type='scatter',
  mode='lines',
  line = list(color = 'black')
)
add_trace(
  p,
  x = c(1,2,3,4,5),
  y = c(0.5,0.7,0.6,0.9,0.8),
  type='bar',
  marker = list(color = 'red')
)

结果是对的,但我得到以下警告:

警告消息:以下属性不存在:'mode','line'

我猜因为条形图add_trace()无法处理函数中的参数line和mode参数plot_ly().所以我改变了顺序:

p <- plot_ly(
  x = c(1,2,3,4,5),
  y = c(0.5,0.7,0.6,0.9,0.8),
  type='bar',
  marker = list(color = 'red')
)
add_trace(
  p,
  x = c(1,2,3,4,5),
  y = c(1,2,1.5,3,2),
  type='scatter',
  mode='lines',
  line = list(color = 'black')
)

这次我得到以下消息,黑色折线图上显示红色标记.

已指定标记对象,但标记不在模式中添加标记...

我怎样才能解决这个问题？(我正在使用R封装 …

我有两个列表列表:

a = [[0, 1, 5], [2], [3], [4], [6, 7], [8, 9, 10, 11], [12], [13], [14], [15]]
b = [[0, 1], [2, 3], [4], [5], [6, 7], [8, 9, 10, 11], [12], [13, 14], [15]]

如何找到列表值之间的最大重叠,并构建具有此最大重叠的新列表列表.换句话说,我正在寻找一种f通过合并具有重叠的列表来最大化列表大小的函数.

f此示例的所需函数结果为:

f(a,b) = [[0, 1, 5], [2, 3], [4], [6, 7], [8, 9, 10, 11], [12], [13, 14], [15]]