R - 具有特定值的Permute（样本）列

Question

我想要置换具有特定值

的列的相关列

> mmm
   Name Value OtherVal
1  Mike     1   Value2
2  John     2   Value2
3  John     3   Value1
4  John     4   Value2
5  Mike     5   Value1
6  Mike     6   Value1
7  Mike     7   Value2
8  John     8   Value1
9  Mike     9   Value1
10 John    10   Value2

我希望所有名为John的行并置换值列，如下所示：

> mmm
   Name Value OtherVal
1  Mike     1   Value2
2  John     3   Value2
3  John     4   Value1
4  John     2   Value2
5  Mike     5   Value1
6  Mike     6   Value1
7  Mike     7   Value2
8  John     10  Value1
9  Mike     9   Value1
10 John     8   Value2

我不希望更改名称或OtherVal列。

Answer 1

mmm[mmm$Name == "John", "Value"] <- sample(mmm[mmm$Name == "John", "Value"])