x<-c("I1","I2","I3","I4")

t(combn(x,2))

[,1] [,2]

[1,] "I1" "I2"

[2,] "I1" "I3"

[3,] "I1" "I4"

[4,] "I2" "I3"

[5,] "I2" "I4"

[6,] "I3" "I4"

用t()转置后每一行就是所需数据

t(combn(x,3))

[,1] [,2] [,3]

[1,] "I1" "I2" "I3"

[2,] "I1" "I2" "I4"

[3,] "I1" "I3" "I4"

[4,] "I2" "I3" "I4"