小编dim*_*_ps的帖子

我正在尝试创建一个运动折线图。功能如下所示

library(highcharter)
library(magrittr)

highchart() %>% 
  hc_chart(type = "line") %>% 
  hc_yAxis(max = 12, min = 0) %>%
  hc_xAxis(categories = c(1, 1.7, 1, 0)) %>% 
  hc_add_series(data = list(
              list(sequence = c(1,1,1,1)),
              list(sequence = c(NA,2,2,2)),
              list(sequence = c(NA,NA,5,5)),
              list(sequence = c(NA,NA,NA,10))
            )) %>% 
  hc_motion(enabled = TRUE, labels = 1:4, series = 0)

但我希望最终结果如下所示，使用hc_motion选项

hchart(data.frame(xx=c(1, 1.7, 1, 0), yy=c(1, 2, 5, 10)), 
       type = "line", hcaes(x = xx, y = yy))

即问题是在第一种情况下，运动图将其视为xAxis类别，而我希望它像带有直线的散点图。

而不是灰色更改为自定义颜色

例如这个：

library(DT)
iris2 = head(iris, 20)
# only show the Copy and Print buttons
datatable(
  iris2,
  extensions = 'Buttons', options = list(
    dom = 'Bfrtip',
    buttons = c('copy', 'print')
  )
)

给了我们以下内容：

我想要的是更改按钮复制和打印的颜色。

我已经浏览了https://datatables.net/extensions/buttons/examples/ 但我找不到解决方案。

我正在使用Windows 7机器.是否可以从RSelenium库运行remoteDriver()$ open()并让浏览器在后台运行(即不可见).

谢谢

我有以下内容:

s <- "abc, xyz, poi (cv, r2, 44, rghj), wer"

如何拆分它,最终结果是:

c("abc", "xyz", "poi (cv, r2, 44, rghj)", "wer")

基本上,strsplit每个逗号处的字符串,但在括号外.

我有一个pandas dataFrame我想检查一列是否contained在另一列中.

假设:

df = DataFrame({'A': ['some text here', 'another text', 'and this'], 
                'B': ['some', 'somethin', 'this']})

我想检查是否df.B[0]在df.A[0],df.B[1]是否在df.A[1]等

目前的做法

我有以下apply功能实现

df.apply(lambda x: x[1] in x[0], axis=1)

结果是Series的[True, False, True]

这很好,但对于我dataFrame shape(它是数百万)它需要很长时间.
是否有更好(即更快)的植入？

Unsuccesfull方法

我尝试了这种pandas.Series.str.contains方法,但它只能为模式采用字符串.

df['A'].str.contains(df['B'], regex=False)

最好用一个例子来描述

import pandas as pd

df = pd.DataFrame({
  'a'   : ['A','B','C','A','B','C','A','B','C'],
  'b': [1,2,3,4,5,6,7,8,9]}
)

我想创建一个列，其中包含按list列b组的列元素a

导致以下

   a    b      c
0  A    1  [1, 4, 7]
1  A    4  [1, 4, 7]
2  A    7  [1, 4, 7]
3  B    2  [2, 5, 8]
4  B    5  [2, 5, 8]
5  B    8  [2, 5, 8]
6  C    3  [3, 6, 9]
7  C    6  [3, 6, 9]
8  C    9  [3, 6, 9]

我可以用groupby …

我目前正在研究一个R程序,其中有一个程序的一部分在循环中计算两个相互依赖的值.虽然因为我必须进行100,000次迭代,所以需要很长时间.

所以我想用for循环代替一个apply循环或一些更有效的函数,但我不知道怎么做.有人能帮助我吗？

p <- c()
for(i in 1:n) {
  if(i == 1) {
   x <- b[i]
  }
  else {
    x <- c(x, max(h[i - 1], p[i]))
  }
  h <- c(h, x[i] + y[i])
}

非常感谢你!!