小编Orc*_*ory的帖子

下面是交换函数,它在列表中交换小于10的值

swapFun <- function(x, n = 10){
inx <- which(x < n)
x[sample(inx)] <- x[inx]
x
}

例如,原始列表是1,2,3,10,4,11.

在通过采样交换之后,该列表可以是2,1,1,10,1,11或1,3,2,10,4,11.

但我想将每个小于10的值交换为小于10的不同值.

例如,第一个结果(即2,1,1,10,1,11)就是我想要的,因为每个小于10的值都被交换到小于10的不同值.

然而,第二个结果(即1,3,2,10,4,11)不是我想要的,因为1和4没有交换到小于10的不同值.

如果没有可行的解决方案,只需打印"没有可行的解决方案"

有什么建议？非常感谢.

这是代码：

customers = {'CustomerID': [10, 11],
         'Name': ['Mike', 'Marcia'],
         'Address': ['Address for Mike','Address for Marcia']}
customers = pd.DataFrame(customers)
customers

我在 Jupyter 笔记本中得到的内容如下：

  CustomerID      Name           Address

0         10      Mike  Address for Mike

1         11    Marcia  Address for Marcia

我想要的是它可以打印带有实线边框的表格。

谢谢