小编Jel*_*mer的帖子

我有以下数据帧:

data <- data.frame(x = c(5,1,3,2,5,7,12), y = c(5,7,6,1,3,5,6))

我可以使用ggplot函数绘制这些坐标,并在这些坐标之间绘制一条直线:

ggplot(data, aes(x, y)) + geom_point(size = 3) + geom_line() 

到目前为止,没有问题.但是通过坐标而不是单行,我希望在所有坐标之间绘制一条线.在所有坐标之间创建一种蜘蛛网.ggplot2包裹中有可能吗？

我有一列有1000万个字符串。字符串中的字符需要以某种方式重新排列。

原始字串： AAA01188P001

乱序字符串： 188A1A0AP001

现在，我正在运行一个for循环，该循环将接收每个字符串并重新定位每个字母，但这需要几个小时才能完成。有没有更快的方法来达到这个结果？

这是for循环。

for i in range(0, len(OrderProduct)):
    s = list(OrderProduct['OrderProductId'][i])
    a = s[1]
    s[1] = s[7]
    s[7] = a 
    a = s[3]
    s[3] = s[6]
    s[6] = a 
    a = s[2]
    s[2] = s[3]
    s[3] = a 
    a = s[5]
    s[5] = s[0]
    s[0] = a 
    OrderProduct['OrderProductId'][i] = ''.join(s)