问题：
我试图使用 R 生成一个随机研究设计，其中一半的参与者被随机分配到“治疗 1”，另一半被分配到“治疗 2”。但是，因为一半的受试者是男性，一半是女性，而且我还想确保每次治疗都有相同数量的男性和女性，所以应该将一半的男性和女性分配到“治疗 1”，其余的一半应分配给“治疗 2”。
这种设计有两个并发症：（1）这是一项为期一年的研究，必须每天分配参与者进行治疗；(2) 每个参与者必须在 28 天内至少接受“治疗 1”10 次。
这甚至可以在 R 界面中自动化吗？我认为是这样，但我认为我作为 R 程序员的初学者身份禁止我自己找到解决方案。几天来，我一直在努力弄清楚如何实现这一点，并且浏览了本网站上许多类似的帖子，但无法在此处成功应用。我希望那里有人知道一些可以帮助我解决这个问题的技巧，任何建议将不胜感激！
我试过的：
具体信息
# There are 16 participants
p <- c("P01", "P02", "P03", "P04", "P05", "P06", "P07", "P08", "P09", "P10", "P11", "P12", "P13", "P14", "P15", "P16")
# Half are male and half are female
g <- c(rep("M", 8), rep("F", 8))
# I make a dataframe but this may not be necessary
df <- cbind.data.frame(p,g)
# There are 365 days in one year …问题
我正在寻找一种方法来有效地对固定对象周围发生的随机选择的采样横断面进行排序。这些横断面一旦生成，就需要以一种在空间上有意义的方式进行排序，以使行进的距离最小化。这将通过确保当前横断面的终点尽可能靠近下一个横断面的起点来实现。此外，没有一个横断面可以重复。
因为有数千条断面需要订购，这是手动完成的一项非常繁琐的任务，我正在尝试使用 R 来自动化此过程。我已经生成了横断面，每个横断面都有一个起点和终点，其位置使用 360 度系统表示（例如，0 是北，90 是东，180 是南，270 是西）。我还生成了一些似乎指示下一个横断面的起点和 ID 的代码，但此代码存在一些问题：(1) 根据所考虑的起点和终点，它可能会产生错误，(2 ) 它没有实现我最终需要它实现的目标，并且 (3) 照原样，代码本身似乎过于复杂，我不禁想知道是否有更直接的方法来做到这一点。
理想情况下，代码将导致横断面被重新排序，以便它们匹配它们应该飞行的顺序，而不是它们最初输入的顺序。
数据
为简单起见，我们假设只有 10 个横断面需要排序。
# Transect ID for the start point
StID <- c(seq(1, 10, 1))
# Location of transect start point, based on a 360-degree circle
StPt <- c(342.1, 189.3, 116.5, 67.9, 72, 208.4, 173.2, 97.8, 168.7, 138.2)
# Transect ID for the end point
EndID <- c(seq(1, 10, 1))
# Location of transect start point, based on a 360-degree …