如何将其写入R中的循环？

我正在整理我的数据。我加载的csv文件包含一个地区15个选区的结果。行数为150行，因为这10名候选人的名字在15个选区中重复出现

我的目标是将10个候选对象的名称作为列，而不重复它们的名称，并将每个候选对象的结果作为值。我使用下面的代码，但是我必须执行15次，因为我每隔10次剪切数据以提取一个选区的结果。“比诺多夫”也是一样。因为每个选区有8个候选人，所以我必须以8个为间隔削减数据

有没有办法把我的代码写成循环？谢谢

binondop1 <- binondop[1:10,]
binondop1a <- binondop1[order(binondop1[,2]),]
binondov1 <- binondov[1:8,]
binondov1a <- binondov1[order(binondov1[,2]),]
colnames(binondop1a) = colnames(binondov1a) = 
c('X', 'Candidate', 'Party', 'Vote', 'Percentage')
binondo1 <- rbind(binondop1a, binondov1a)
binondo <- rbind(t(binondo1$Vote), t(binondo2$Vote),
            t(binondo3$Vote), t(binondo4$Vote),
            t(binondo5$Vote), t(binondo6$Vote),
            t(binondo7$Vote), t(binondo8$Vote),
            t(binondo9$Vote), t(binondo10$Vote),
            t(binondo11$Vote), t(binondo12$Vote),
            t(binondo13$Vote),t(binondo14$Vote),
            t(binondo15$Vote))
colnames(binondo) <- c('Acosta', 'Aquino', 'DLReyes', 'EEjercito',
            'Gordon', 'Madrigal', 'Perlas', 'Teodoro',
            'Villanueva', 'Villar', 'Binay', 'Chipeco',
            'Fernando', 'Legarda', 'Manzano', 'Roxas',
            'Sonza', 'Yasay')

---

binondop1在没有看到样本数据集的情况下，很难准确地说出来，但类似的东西可能会帮助您找到需要的答案

library(dplyr)
library(tidyr)

df <- data.frame(Candidate = c(rep('Acosta',3), rep('Aquino',3), rep('DLReyes',3)), 
                 Party = c('R','R','R','L','L','L','D','D','D'),
                 Vote = rep(c('A','B','C'),3), 
                 Percentage = c(5,4,2,6,8,3,1,3,2))

df2 <- df %>% 
       mutate(Candidate = paste0(Candidate, ' (', Party, ')')) %>%
       select(-Party) %>%
       spread(Candidate, Percentage)

库（dplyr）
图书馆（tidyr）
df%
选择（-Party）%%>%
差价（候选人，百分比）